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.cloudformation
let apiVersion = "2010-05-15"
let endpointPrefix = "cloudformation"
let serviceFullName = "AWS CloudFormation"
let signatureVersion = "v4"
let protocol = "query"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let xmlNamespace = "http://cloudformation.amazonaws.com/doc/2010-05-15/"
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 ResourceDriftActualValue =
  struct
    type nonrec t = string
    let context_ = "ResourceDriftActualValue"
    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:"ResourceDriftActualValue" j
    let to_json = simple_to_json to_value
  end
module ResourceDriftPreviousValue =
  struct
    type nonrec t = string
    let context_ = "ResourceDriftPreviousValue"
    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:"ResourceDriftPreviousValue" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module PropertyDescription =
  struct
    type nonrec t = string
    let context_ = "PropertyDescription"
    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:"PropertyDescription" j
    let to_json = simple_to_json to_value
  end
module PropertyPath =
  struct
    type nonrec t = string
    let context_ = "PropertyPath"
    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:"PropertyPath" j
    let to_json = simple_to_json to_value
  end
module RequiredProperty =
  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 AfterValue =
  struct
    type nonrec t = string
    let context_ = "AfterValue"
    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:"AfterValue" j
    let to_json = simple_to_json to_value
  end
module AfterValueFrom =
  struct
    type nonrec t =
      | TEMPLATE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | TEMPLATE -> "TEMPLATE" | Non_static_id s -> s
    let of_string = function | "TEMPLATE" -> TEMPLATE | 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 AfterValueFrom" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AfterValueFrom" j)
    let to_json = simple_to_json to_value
  end
module AttributeChangeType =
  struct
    type nonrec t =
      | Add 
      | Remove 
      | Modify 
      | SyncWithActual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Add -> "Add"
      | Remove -> "Remove"
      | Modify -> "Modify"
      | SyncWithActual -> "SyncWithActual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Add" -> Add
      | "Remove" -> Remove
      | "Modify" -> Modify
      | "SyncWithActual" -> SyncWithActual
      | 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 AttributeChangeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttributeChangeType" j)
    let to_json = simple_to_json to_value
  end
module BeforeValue =
  struct
    type nonrec t = string
    let context_ = "BeforeValue"
    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:"BeforeValue" j
    let to_json = simple_to_json to_value
  end
module BeforeValueFrom =
  struct
    type nonrec t =
      | PREVIOUS_DEPLOYMENT_STATE 
      | ACTUAL_STATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PREVIOUS_DEPLOYMENT_STATE -> "PREVIOUS_DEPLOYMENT_STATE"
      | ACTUAL_STATE -> "ACTUAL_STATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PREVIOUS_DEPLOYMENT_STATE" -> PREVIOUS_DEPLOYMENT_STATE
      | "ACTUAL_STATE" -> ACTUAL_STATE
      | 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 BeforeValueFrom" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BeforeValueFrom" j)
    let to_json = simple_to_json to_value
  end
module LiveResourceDrift =
  struct
    type nonrec t =
      {
      previousValue: ResourceDriftPreviousValue.t option
        [@ocaml.doc
          "The configuration value from the previous CloudFormation deployment."];
      actualValue: ResourceDriftActualValue.t option
        [@ocaml.doc
          "The current live configuration value of the resource property."];
      driftDetectionTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when drift was detected for this resource property."]}
    let make ?previousValue =
      fun ?actualValue ->
        fun ?driftDetectionTimestamp ->
          fun () -> { previousValue; actualValue; driftDetectionTimestamp }
    let to_value x =
      structure_to_value
        [("PreviousValue",
           (Option.map x.previousValue ~f:ResourceDriftPreviousValue.to_value));
        ("ActualValue",
          (Option.map x.actualValue ~f:ResourceDriftActualValue.to_value));
        ("DriftDetectionTimestamp",
          (Option.map x.driftDetectionTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let driftDetectionTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DriftDetectionTimestamp") in
      let actualValue =
        (Option.map ~f:ResourceDriftActualValue.of_xml)
          (Xml.child xml_arg0 "ActualValue") in
      let previousValue =
        (Option.map ~f:ResourceDriftPreviousValue.of_xml)
          (Xml.child xml_arg0 "PreviousValue") in
      make ?driftDetectionTimestamp ?actualValue ?previousValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let driftDetectionTimestamp =
        field_map json__ "DriftDetectionTimestamp" Timestamp.of_json in
      let actualValue =
        field_map json__ "ActualValue" ResourceDriftActualValue.of_json in
      let previousValue =
        field_map json__ "PreviousValue" ResourceDriftPreviousValue.of_json in
      make ?driftDetectionTimestamp ?actualValue ?previousValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains drift information for a resource property, including actual value, previous deployment value, and drift detection timestamp."]
module PropertyName =
  struct
    type nonrec t = string
    let context_ = "PropertyName"
    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:"PropertyName" j
    let to_json = simple_to_json to_value
  end
module RequiresRecreation =
  struct
    type nonrec t =
      | Never 
      | Conditionally 
      | Always 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Never -> "Never"
      | Conditionally -> "Conditionally"
      | Always -> "Always"
      | Non_static_id s -> s
    let of_string =
      function
      | "Never" -> Never
      | "Conditionally" -> Conditionally
      | "Always" -> Always
      | 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 RequiresRecreation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RequiresRecreation" j)
    let to_json = simple_to_json to_value
  end
module ResourceAttribute =
  struct
    type nonrec t =
      | Properties 
      | Metadata 
      | CreationPolicy 
      | UpdatePolicy 
      | DeletionPolicy 
      | UpdateReplacePolicy 
      | Tags 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Properties -> "Properties"
      | Metadata -> "Metadata"
      | CreationPolicy -> "CreationPolicy"
      | UpdatePolicy -> "UpdatePolicy"
      | DeletionPolicy -> "DeletionPolicy"
      | UpdateReplacePolicy -> "UpdateReplacePolicy"
      | Tags -> "Tags"
      | Non_static_id s -> s
    let of_string =
      function
      | "Properties" -> Properties
      | "Metadata" -> Metadata
      | "CreationPolicy" -> CreationPolicy
      | "UpdatePolicy" -> UpdatePolicy
      | "DeletionPolicy" -> DeletionPolicy
      | "UpdateReplacePolicy" -> UpdateReplacePolicy
      | "Tags" -> Tags
      | 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 ResourceAttribute" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceAttribute" j)
    let to_json = simple_to_json to_value
  end
module ResourcePropertyPath =
  struct
    type nonrec t = string
    let context_ = "ResourcePropertyPath"
    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:"ResourcePropertyPath" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    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:"Arn" j
    let to_json = simple_to_json to_value
  end
module Type =
  struct
    type nonrec t = string
    let context_ = "Type"
    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:"Type" j
    let to_json = simple_to_json to_value
  end
module WarningProperty =
  struct
    type nonrec t =
      {
      propertyPath: PropertyPath.t option
        [@ocaml.doc
          "The path of the property. For example, if this is for the S3Bucket member of the Code property, the property path would be Code/S3Bucket."];
      required: RequiredProperty.t option
        [@ocaml.doc "If true, the specified property is required."];
      description: PropertyDescription.t option
        [@ocaml.doc
          "The description of the property from the resource provider schema."]}
    let make ?propertyPath =
      fun ?required ->
        fun ?description -> fun () -> { propertyPath; required; description }
    let to_value x =
      structure_to_value
        [("PropertyPath",
           (Option.map x.propertyPath ~f:PropertyPath.to_value));
        ("Required", (Option.map x.required ~f:RequiredProperty.to_value));
        ("Description",
          (Option.map x.description ~f:PropertyDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:PropertyDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let required =
        (Option.map ~f:RequiredProperty.of_xml)
          (Xml.child xml_arg0 "Required") in
      let propertyPath =
        (Option.map ~f:PropertyPath.of_xml)
          (Xml.child xml_arg0 "PropertyPath") in
      make ?description ?required ?propertyPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" PropertyDescription.of_json in
      let required = field_map json__ "Required" RequiredProperty.of_json in
      let propertyPath = field_map json__ "PropertyPath" PropertyPath.of_json in
      make ?description ?required ?propertyPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A specific property that is impacted by a warning."]
module CausingEntity =
  struct
    type nonrec t = string
    let context_ = "CausingEntity"
    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:"CausingEntity" j
    let to_json = simple_to_json to_value
  end
module ChangeSource =
  struct
    type nonrec t =
      | ResourceReference 
      | ParameterReference 
      | ResourceAttribute 
      | DirectModification 
      | Automatic 
      | NoModification 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ResourceReference -> "ResourceReference"
      | ParameterReference -> "ParameterReference"
      | ResourceAttribute -> "ResourceAttribute"
      | DirectModification -> "DirectModification"
      | Automatic -> "Automatic"
      | NoModification -> "NoModification"
      | Non_static_id s -> s
    let of_string =
      function
      | "ResourceReference" -> ResourceReference
      | "ParameterReference" -> ParameterReference
      | "ResourceAttribute" -> ResourceAttribute
      | "DirectModification" -> DirectModification
      | "Automatic" -> Automatic
      | "NoModification" -> NoModification
      | 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 ChangeSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeSource" j)
    let to_json = simple_to_json to_value
  end
module EvaluationType =
  struct
    type nonrec t =
      | Static 
      | Dynamic 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Static -> "Static"
      | Dynamic -> "Dynamic"
      | Non_static_id s -> s
    let of_string =
      function
      | "Static" -> Static
      | "Dynamic" -> Dynamic
      | 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 EvaluationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EvaluationType" j)
    let to_json = simple_to_json to_value
  end
module ResourceTargetDefinition =
  struct
    type nonrec t =
      {
      attribute: ResourceAttribute.t option
        [@ocaml.doc
          "Indicates which resource attribute is triggering this update, such as a change in the resource attribute's Metadata, Properties, or Tags."];
      name: PropertyName.t option
        [@ocaml.doc
          "If the Attribute value is Properties, the name of the property. For all other attributes, the value is null."];
      requiresRecreation: RequiresRecreation.t option
        [@ocaml.doc
          "If the Attribute value is Properties, indicates whether a change to this property causes the resource to be recreated. The value can be Never, Always, or Conditionally. To determine the conditions for a Conditionally recreation, see the update behavior for that property in the Amazon Web Services resource and property types reference in the CloudFormation User Guide."];
      path: ResourcePropertyPath.t option
        [@ocaml.doc "The property path of the property."];
      beforeValue: BeforeValue.t option
        [@ocaml.doc
          "The value of the property before the change is executed. Large values can be truncated."];
      afterValue: AfterValue.t option
        [@ocaml.doc
          "The value of the property after the change is executed. Large values can be truncated."];
      beforeValueFrom: BeforeValueFrom.t option
        [@ocaml.doc
          "Indicates the source of the before value. Valid values: ACTUAL_STATE \226\128\147 The before value represents current actual state. PREVIOUS_DEPLOYMENT_STATE \226\128\147 The before value represents the previous CloudFormation deployment state. Only present for drift-aware change sets."];
      afterValueFrom: AfterValueFrom.t option
        [@ocaml.doc
          "Indicates the source of the after value. Valid value: TEMPLATE \226\128\147 The after value comes from the new template. Only present for drift-aware change sets."];
      drift: LiveResourceDrift.t option
        [@ocaml.doc
          "Detailed drift information for the resource property, including actual values, previous deployment values, and drift detection timestamps."];
      attributeChangeType: AttributeChangeType.t option
        [@ocaml.doc
          "The type of change to be made to the property if the change is executed. Add The item will be added. Remove The item will be removed. Modify The item will be modified. SyncWithActual The drift status of this item will be reset but the item will not be modified."]}
    let make ?attribute =
      fun ?name ->
        fun ?requiresRecreation ->
          fun ?path ->
            fun ?beforeValue ->
              fun ?afterValue ->
                fun ?beforeValueFrom ->
                  fun ?afterValueFrom ->
                    fun ?drift ->
                      fun ?attributeChangeType ->
                        fun () ->
                          {
                            attribute;
                            name;
                            requiresRecreation;
                            path;
                            beforeValue;
                            afterValue;
                            beforeValueFrom;
                            afterValueFrom;
                            drift;
                            attributeChangeType
                          }
    let to_value x =
      structure_to_value
        [("Attribute",
           (Option.map x.attribute ~f:ResourceAttribute.to_value));
        ("Name", (Option.map x.name ~f:PropertyName.to_value));
        ("RequiresRecreation",
          (Option.map x.requiresRecreation ~f:RequiresRecreation.to_value));
        ("Path", (Option.map x.path ~f:ResourcePropertyPath.to_value));
        ("BeforeValue", (Option.map x.beforeValue ~f:BeforeValue.to_value));
        ("AfterValue", (Option.map x.afterValue ~f:AfterValue.to_value));
        ("BeforeValueFrom",
          (Option.map x.beforeValueFrom ~f:BeforeValueFrom.to_value));
        ("AfterValueFrom",
          (Option.map x.afterValueFrom ~f:AfterValueFrom.to_value));
        ("Drift", (Option.map x.drift ~f:LiveResourceDrift.to_value));
        ("AttributeChangeType",
          (Option.map x.attributeChangeType ~f:AttributeChangeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeChangeType =
        (Option.map ~f:AttributeChangeType.of_xml)
          (Xml.child xml_arg0 "AttributeChangeType") in
      let drift =
        (Option.map ~f:LiveResourceDrift.of_xml) (Xml.child xml_arg0 "Drift") in
      let afterValueFrom =
        (Option.map ~f:AfterValueFrom.of_xml)
          (Xml.child xml_arg0 "AfterValueFrom") in
      let beforeValueFrom =
        (Option.map ~f:BeforeValueFrom.of_xml)
          (Xml.child xml_arg0 "BeforeValueFrom") in
      let afterValue =
        (Option.map ~f:AfterValue.of_xml) (Xml.child xml_arg0 "AfterValue") in
      let beforeValue =
        (Option.map ~f:BeforeValue.of_xml) (Xml.child xml_arg0 "BeforeValue") in
      let path =
        (Option.map ~f:ResourcePropertyPath.of_xml)
          (Xml.child xml_arg0 "Path") in
      let requiresRecreation =
        (Option.map ~f:RequiresRecreation.of_xml)
          (Xml.child xml_arg0 "RequiresRecreation") in
      let name =
        (Option.map ~f:PropertyName.of_xml) (Xml.child xml_arg0 "Name") in
      let attribute =
        (Option.map ~f:ResourceAttribute.of_xml)
          (Xml.child xml_arg0 "Attribute") in
      make ?attributeChangeType ?drift ?afterValueFrom ?beforeValueFrom
        ?afterValue ?beforeValue ?path ?requiresRecreation ?name ?attribute
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeChangeType =
        field_map json__ "AttributeChangeType" AttributeChangeType.of_json in
      let drift = field_map json__ "Drift" LiveResourceDrift.of_json in
      let afterValueFrom =
        field_map json__ "AfterValueFrom" AfterValueFrom.of_json in
      let beforeValueFrom =
        field_map json__ "BeforeValueFrom" BeforeValueFrom.of_json in
      let afterValue = field_map json__ "AfterValue" AfterValue.of_json in
      let beforeValue = field_map json__ "BeforeValue" BeforeValue.of_json in
      let path = field_map json__ "Path" ResourcePropertyPath.of_json in
      let requiresRecreation =
        field_map json__ "RequiresRecreation" RequiresRecreation.of_json in
      let name = field_map json__ "Name" PropertyName.of_json in
      let attribute = field_map json__ "Attribute" ResourceAttribute.of_json in
      make ?attributeChangeType ?drift ?afterValueFrom ?beforeValueFrom
        ?afterValue ?beforeValue ?path ?requiresRecreation ?name ?attribute
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The field that CloudFormation will change, such as the name of a resource's property, and whether the resource will be recreated."]
module DriftIgnoredReason =
  struct
    type nonrec t =
      | MANAGED_BY_AWS 
      | WRITE_ONLY_PROPERTY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MANAGED_BY_AWS -> "MANAGED_BY_AWS"
      | WRITE_ONLY_PROPERTY -> "WRITE_ONLY_PROPERTY"
      | Non_static_id s -> s
    let of_string =
      function
      | "MANAGED_BY_AWS" -> MANAGED_BY_AWS
      | "WRITE_ONLY_PROPERTY" -> WRITE_ONLY_PROPERTY
      | 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 DriftIgnoredReason" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DriftIgnoredReason" j)
    let to_json = simple_to_json to_value
  end
module OperationId =
  struct
    type nonrec t = string
    let context_ = "OperationId"
    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:"OperationId" j
    let to_json = simple_to_json to_value
  end
module OperationType =
  struct
    type nonrec t =
      | CREATE_STACK 
      | UPDATE_STACK 
      | DELETE_STACK 
      | CONTINUE_ROLLBACK 
      | ROLLBACK 
      | CREATE_CHANGESET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_STACK -> "CREATE_STACK"
      | UPDATE_STACK -> "UPDATE_STACK"
      | DELETE_STACK -> "DELETE_STACK"
      | CONTINUE_ROLLBACK -> "CONTINUE_ROLLBACK"
      | ROLLBACK -> "ROLLBACK"
      | CREATE_CHANGESET -> "CREATE_CHANGESET"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_STACK" -> CREATE_STACK
      | "UPDATE_STACK" -> UPDATE_STACK
      | "DELETE_STACK" -> DELETE_STACK
      | "CONTINUE_ROLLBACK" -> CONTINUE_ROLLBACK
      | "ROLLBACK" -> ROLLBACK
      | "CREATE_CHANGESET" -> CREATE_CHANGESET
      | 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 OperationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationType" j)
    let to_json = simple_to_json to_value
  end
module StackSetARN =
  struct
    type nonrec t = string
    let context_ = "StackSetARN"
    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:"StackSetARN" j
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith (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:"Region" j
    let to_json = simple_to_json to_value
  end
module LogicalResourceId =
  struct
    type nonrec t = string
    let context_ = "LogicalResourceId"
    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:"LogicalResourceId" j
    let to_json = simple_to_json to_value
  end
module StackName =
  struct
    type nonrec t = string
    let context_ = "StackName"
    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:"StackName" 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_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Key =
  struct
    type nonrec t = string
    let context_ = "Key"
    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:"Key" j
    let to_json = simple_to_json to_value
  end
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    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:"Value" j
    let to_json = simple_to_json to_value
  end
module DifferenceType =
  struct
    type nonrec t =
      | ADD 
      | REMOVE 
      | NOT_EQUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ADD -> "ADD"
      | REMOVE -> "REMOVE"
      | NOT_EQUAL -> "NOT_EQUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "ADD" -> ADD
      | "REMOVE" -> REMOVE
      | "NOT_EQUAL" -> NOT_EQUAL
      | 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 DifferenceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DifferenceType" j)
    let to_json = simple_to_json to_value
  end
module PropertyValue =
  struct
    type nonrec t = string
    let context_ = "PropertyValue"
    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:"PropertyValue" j
    let to_json = simple_to_json to_value
  end
module AllowedValue =
  struct
    type nonrec t = string
    let context_ = "AllowedValue"
    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:"AllowedValue" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module ExportName =
  struct
    type nonrec t = string
    let context_ = "ExportName"
    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:"ExportName" j
    let to_json = simple_to_json to_value
  end
module OutputKey =
  struct
    type nonrec t = string
    let context_ = "OutputKey"
    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:"OutputKey" j
    let to_json = simple_to_json to_value
  end
module OutputValue =
  struct
    type nonrec t = string
    let context_ = "OutputValue"
    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:"OutputValue" j
    let to_json = simple_to_json to_value
  end
module ParameterKey =
  struct
    type nonrec t = string
    let context_ = "ParameterKey"
    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:"ParameterKey" j
    let to_json = simple_to_json to_value
  end
module ParameterValue =
  struct
    type nonrec t = string
    let context_ = "ParameterValue"
    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:"ParameterValue" j
    let to_json = simple_to_json to_value
  end
module UsePreviousValue =
  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 RollbackTrigger =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rollback trigger. If a specified trigger is missing, the entire stack operation fails and is rolled back."];
      type_: Type.t
        [@ocaml.doc
          "The resource type of the rollback trigger. Specify either AWS::CloudWatch::Alarm or AWS::CloudWatch::CompositeAlarm resource types."]}
    let context_ = "RollbackTrigger"
    let make ~arn = fun ~type_ -> fun () -> { arn; type_ }
    let to_value x =
      structure_to_value
        [("Arn", (Some (Arn.to_value x.arn)));
        ("Type", (Some (Type.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~type_ ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Type.of_json in
      let arn = field_map_exn json__ "Arn" Arn.of_json in make ~type_ ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A rollback trigger CloudFormation monitors during creation and updating of stacks. If any of the alarms you specify goes to ALARM state during the stack operation or within the specified monitoring period afterwards, CloudFormation rolls back the entire stack operation."]
module WarningProperties =
  struct
    type nonrec t = WarningProperty.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:WarningProperty.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:WarningProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"WarningProperties" ~of_json:WarningProperty.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module WarningType =
  struct
    type nonrec t =
      | MUTUALLY_EXCLUSIVE_PROPERTIES 
      | UNSUPPORTED_PROPERTIES 
      | MUTUALLY_EXCLUSIVE_TYPES 
      | EXCLUDED_PROPERTIES 
      | EXCLUDED_RESOURCES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MUTUALLY_EXCLUSIVE_PROPERTIES -> "MUTUALLY_EXCLUSIVE_PROPERTIES"
      | UNSUPPORTED_PROPERTIES -> "UNSUPPORTED_PROPERTIES"
      | MUTUALLY_EXCLUSIVE_TYPES -> "MUTUALLY_EXCLUSIVE_TYPES"
      | EXCLUDED_PROPERTIES -> "EXCLUDED_PROPERTIES"
      | EXCLUDED_RESOURCES -> "EXCLUDED_RESOURCES"
      | Non_static_id s -> s
    let of_string =
      function
      | "MUTUALLY_EXCLUSIVE_PROPERTIES" -> MUTUALLY_EXCLUSIVE_PROPERTIES
      | "UNSUPPORTED_PROPERTIES" -> UNSUPPORTED_PROPERTIES
      | "MUTUALLY_EXCLUSIVE_TYPES" -> MUTUALLY_EXCLUSIVE_TYPES
      | "EXCLUDED_PROPERTIES" -> EXCLUDED_PROPERTIES
      | "EXCLUDED_RESOURCES" -> EXCLUDED_RESOURCES
      | 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 WarningType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WarningType" j)
    let to_json = simple_to_json to_value
  end
module LogicalIdHierarchy =
  struct
    type nonrec t = string
    let context_ = "LogicalIdHierarchy"
    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:"LogicalIdHierarchy" j
    let to_json = simple_to_json to_value
  end
module TypeHierarchy =
  struct
    type nonrec t = string
    let context_ = "TypeHierarchy"
    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:"TypeHierarchy" j
    let to_json = simple_to_json to_value
  end
module ResourceChangeDetail =
  struct
    type nonrec t =
      {
      target: ResourceTargetDefinition.t option
        [@ocaml.doc
          "A ResourceTargetDefinition structure that describes the field that CloudFormation will change and whether the resource will be recreated."];
      evaluation: EvaluationType.t option
        [@ocaml.doc
          "Indicates whether CloudFormation can determine the target value, and whether the target value will change before you execute a change set. For Static evaluations, CloudFormation can determine that the target value will change, and its value. For example, if you directly modify the InstanceType property of an EC2 instance, CloudFormation knows that this property value will change, and its value, so this is a Static evaluation. For Dynamic evaluations, can't determine the target value because it depends on the result of an intrinsic function, such as a Ref or Fn::GetAtt intrinsic function, when the stack is updated. For example, if your template includes a reference to a resource that's conditionally recreated, the value of the reference (the physical ID of the resource) might change, depending on if the resource is recreated. If the resource is recreated, it will have a new physical ID, so all references to that resource will also be updated."];
      changeSource: ChangeSource.t option
        [@ocaml.doc
          "The group to which the CausingEntity value belongs. There are five entity groups: ResourceReference entities are Ref intrinsic functions that refer to resources in the template, such as \\{ \"Ref\" : \"MyEC2InstanceResource\" \\}. ParameterReference entities are Ref intrinsic functions that get template parameter values, such as \\{ \"Ref\" : \"MyPasswordParameter\" \\}. ResourceAttribute entities are Fn::GetAtt intrinsic functions that get resource attribute values, such as \\{ \"Fn::GetAtt\" : \\[ \"MyEC2InstanceResource\", \"PublicDnsName\" \\] \\}. DirectModification entities are changes that are made directly to the template. Automatic entities are AWS::CloudFormation::Stack resource types, which are also known as nested stacks. If you made no changes to the AWS::CloudFormation::Stack resource, CloudFormation sets the ChangeSource to Automatic because the nested stack's template might have changed. Changes to a nested stack's template aren't visible to CloudFormation until you run an update on the parent stack. NoModification entities are changes made to the template that matches the actual state of the resource."];
      causingEntity: CausingEntity.t option
        [@ocaml.doc
          "The identity of the entity that triggered this change. This entity is a member of the group that's specified by the ChangeSource field. For example, if you modified the value of the KeyPairName parameter, the CausingEntity is the name of the parameter (KeyPairName). If the ChangeSource value is DirectModification, no value is given for CausingEntity."]}
    let make ?target =
      fun ?evaluation ->
        fun ?changeSource ->
          fun ?causingEntity ->
            fun () -> { target; evaluation; changeSource; causingEntity }
    let to_value x =
      structure_to_value
        [("Target",
           (Option.map x.target ~f:ResourceTargetDefinition.to_value));
        ("Evaluation", (Option.map x.evaluation ~f:EvaluationType.to_value));
        ("ChangeSource",
          (Option.map x.changeSource ~f:ChangeSource.to_value));
        ("CausingEntity",
          (Option.map x.causingEntity ~f:CausingEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let causingEntity =
        (Option.map ~f:CausingEntity.of_xml)
          (Xml.child xml_arg0 "CausingEntity") in
      let changeSource =
        (Option.map ~f:ChangeSource.of_xml)
          (Xml.child xml_arg0 "ChangeSource") in
      let evaluation =
        (Option.map ~f:EvaluationType.of_xml)
          (Xml.child xml_arg0 "Evaluation") in
      let target =
        (Option.map ~f:ResourceTargetDefinition.of_xml)
          (Xml.child xml_arg0 "Target") in
      make ?causingEntity ?changeSource ?evaluation ?target ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let causingEntity =
        field_map json__ "CausingEntity" CausingEntity.of_json in
      let changeSource = field_map json__ "ChangeSource" ChangeSource.of_json in
      let evaluation = field_map json__ "Evaluation" EvaluationType.of_json in
      let target = field_map json__ "Target" ResourceTargetDefinition.of_json in
      make ?causingEntity ?changeSource ?evaluation ?target ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For a resource with Modify as the action, the ResourceChange structure describes the changes CloudFormation will make to that resource."]
module ResourceDriftIgnoredAttribute =
  struct
    type nonrec t =
      {
      path: ResourcePropertyPath.t option
        [@ocaml.doc
          "Path of the resource attribute for which drift was ignored."];
      reason: DriftIgnoredReason.t option
        [@ocaml.doc
          "Reason why drift was ignored for the attribute, can have 2 possible values: WRITE_ONLY_PROPERTY - Property is not included in read response for the resource\226\128\153s live state. MANAGED_BY_AWS - Property is managed by an Amazon Web Services service and is expected to be dynamically modified."]}
    let make ?path = fun ?reason -> fun () -> { path; reason }
    let to_value x =
      structure_to_value
        [("Path", (Option.map x.path ~f:ResourcePropertyPath.to_value));
        ("Reason", (Option.map x.reason ~f:DriftIgnoredReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:DriftIgnoredReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let path =
        (Option.map ~f:ResourcePropertyPath.of_xml)
          (Xml.child xml_arg0 "Path") in
      make ?reason ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "Reason" DriftIgnoredReason.of_json in
      let path = field_map json__ "Path" ResourcePropertyPath.of_json in
      make ?reason ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The ResourceDriftIgnoredAttribute data type."]
module ChangeAction =
  struct
    type nonrec t =
      | Add 
      | Modify 
      | Remove 
      | Import 
      | Dynamic 
      | SyncWithActual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Add -> "Add"
      | Modify -> "Modify"
      | Remove -> "Remove"
      | Import -> "Import"
      | Dynamic -> "Dynamic"
      | SyncWithActual -> "SyncWithActual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Add" -> Add
      | "Modify" -> Modify
      | "Remove" -> Remove
      | "Import" -> Import
      | "Dynamic" -> Dynamic
      | "SyncWithActual" -> SyncWithActual
      | 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 ChangeAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeAction" j)
    let to_json = simple_to_json to_value
  end
module HookTargetTypeName =
  struct
    type nonrec t = string
    let context_ = "HookTargetTypeName"
    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:"^[a-zA-Z0-9]{2,64}::[a-zA-Z0-9]{2,64}::[a-zA-Z0-9]{2,64}$")));
        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:"HookTargetTypeName" j
    let to_json = simple_to_json to_value
  end
module ResourceIdentifierPropertyKey =
  struct
    type nonrec t = string
    let context_ = "ResourceIdentifierPropertyKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdentifierPropertyKey" j
    let to_json = simple_to_json to_value
  end
module ResourceIdentifierPropertyValue =
  struct
    type nonrec t = string
    let context_ = "ResourceIdentifierPropertyValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdentifierPropertyValue" j
    let to_json = simple_to_json to_value
  end
module ResourceTypeFilter =
  struct
    type nonrec t = string
    let context_ = "ResourceTypeFilter"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceTypeFilter" j
    let to_json = simple_to_json to_value
  end
module OperationEntry =
  struct
    type nonrec t =
      {
      operationType: OperationType.t option
        [@ocaml.doc "The type of operation."];
      operationId: OperationId.t option
        [@ocaml.doc "The unique identifier for the operation."]}
    let make ?operationType =
      fun ?operationId -> fun () -> { operationType; operationId }
    let to_value x =
      structure_to_value
        [("OperationType",
           (Option.map x.operationType ~f:OperationType.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let operationType =
        (Option.map ~f:OperationType.of_xml)
          (Xml.child xml_arg0 "OperationType") in
      make ?operationId ?operationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let operationType =
        field_map json__ "OperationType" OperationType.of_json in
      make ?operationId ?operationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a CloudFormation operation."]
module StackDriftStatus =
  struct
    type nonrec t =
      | DRIFTED 
      | IN_SYNC 
      | UNKNOWN 
      | NOT_CHECKED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRIFTED -> "DRIFTED"
      | IN_SYNC -> "IN_SYNC"
      | UNKNOWN -> "UNKNOWN"
      | NOT_CHECKED -> "NOT_CHECKED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRIFTED" -> DRIFTED
      | "IN_SYNC" -> IN_SYNC
      | "UNKNOWN" -> UNKNOWN
      | "NOT_CHECKED" -> NOT_CHECKED
      | 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 StackDriftStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackDriftStatus" j)
    let to_json = simple_to_json to_value
  end
module AutoDeploymentNullable =
  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 RetainStacksOnAccountRemovalNullable =
  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 StackSetARNList =
  struct
    type nonrec t = StackSetARN.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:StackSetARN.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:StackSetARN.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSetARNList" ~of_json:StackSetARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module ManagedExecutionNullable =
  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 ConcurrencyMode =
  struct
    type nonrec t =
      | STRICT_FAILURE_TOLERANCE 
      | SOFT_FAILURE_TOLERANCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STRICT_FAILURE_TOLERANCE -> "STRICT_FAILURE_TOLERANCE"
      | SOFT_FAILURE_TOLERANCE -> "SOFT_FAILURE_TOLERANCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "STRICT_FAILURE_TOLERANCE" -> STRICT_FAILURE_TOLERANCE
      | "SOFT_FAILURE_TOLERANCE" -> SOFT_FAILURE_TOLERANCE
      | 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 ConcurrencyMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConcurrencyMode" j)
    let to_json = simple_to_json to_value
  end
module FailureToleranceCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for FailureToleranceCount" 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 FailureTolerancePercentage =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for FailureTolerancePercentage"
           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 MaxConcurrentCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxConcurrentCount" 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 MaxConcurrentPercentage =
  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 MaxConcurrentPercentage"
           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 RegionConcurrencyType =
  struct
    type nonrec t =
      | SEQUENTIAL 
      | PARALLEL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEQUENTIAL -> "SEQUENTIAL"
      | PARALLEL -> "PARALLEL"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEQUENTIAL" -> SEQUENTIAL
      | "PARALLEL" -> PARALLEL
      | 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 RegionConcurrencyType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegionConcurrencyType" j)
    let to_json = simple_to_json to_value
  end
module RegionList =
  struct
    type nonrec t = Region.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:Region.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:Region.of_xml)
    let of_json j = list_of_json ~kind:"RegionList" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailedStackInstancesCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for FailedStackInstancesCount"
           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 AccountGateStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | SKIPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | SKIPPED -> "SKIPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "SKIPPED" -> SKIPPED
      | 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 AccountGateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountGateStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountGateStatusReason =
  struct
    type nonrec t = string
    let context_ = "AccountGateStatusReason"
    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:"AccountGateStatusReason" j
    let to_json = simple_to_json to_value
  end
module StackResourceDriftStatus =
  struct
    type nonrec t =
      | IN_SYNC 
      | MODIFIED 
      | DELETED 
      | NOT_CHECKED 
      | UNKNOWN 
      | UNSUPPORTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_SYNC -> "IN_SYNC"
      | MODIFIED -> "MODIFIED"
      | DELETED -> "DELETED"
      | NOT_CHECKED -> "NOT_CHECKED"
      | UNKNOWN -> "UNKNOWN"
      | UNSUPPORTED -> "UNSUPPORTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_SYNC" -> IN_SYNC
      | "MODIFIED" -> MODIFIED
      | "DELETED" -> DELETED
      | "NOT_CHECKED" -> NOT_CHECKED
      | "UNKNOWN" -> UNKNOWN
      | "UNSUPPORTED" -> UNSUPPORTED
      | 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 StackResourceDriftStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackResourceDriftStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceLocation =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc "The name associated with the stack."];
      logicalResourceId: LogicalResourceId.t
        [@ocaml.doc
          "The logical name of the resource specified in the template."]}
    let context_ = "ResourceLocation"
    let make ~stackName =
      fun ~logicalResourceId -> fun () -> { stackName; logicalResourceId }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("LogicalResourceId",
          (Some (LogicalResourceId.to_value x.logicalResourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalResourceId =
        LogicalResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogicalResourceId") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ~logicalResourceId ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalResourceId =
        field_map_exn json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ~logicalResourceId ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The location of the resource in a stack template."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "A string used to identify this tag. You can specify a maximum of 128 characters for a tag key. Tags owned by Amazon Web Services have the reserved prefix: aws:."];
      value: TagValue.t
        [@ocaml.doc
          "A string that contains the value for this tag. You can specify a maximum of 256 characters for a tag value."]}
    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
       "The Tag type enables you to specify a key-value pair that can be used to store information about an CloudFormation stack."]
module StackInstanceDetailedStatus =
  struct
    type nonrec t =
      | PENDING 
      | RUNNING 
      | SUCCEEDED 
      | FAILED 
      | CANCELLED 
      | INOPERABLE 
      | SKIPPED_SUSPENDED_ACCOUNT 
      | FAILED_IMPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | CANCELLED -> "CANCELLED"
      | INOPERABLE -> "INOPERABLE"
      | SKIPPED_SUSPENDED_ACCOUNT -> "SKIPPED_SUSPENDED_ACCOUNT"
      | FAILED_IMPORT -> "FAILED_IMPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "CANCELLED" -> CANCELLED
      | "INOPERABLE" -> INOPERABLE
      | "SKIPPED_SUSPENDED_ACCOUNT" -> SKIPPED_SUSPENDED_ACCOUNT
      | "FAILED_IMPORT" -> FAILED_IMPORT
      | 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 StackInstanceDetailedStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackInstanceDetailedStatus" j)
    let to_json = simple_to_json to_value
  end
module PhysicalResourceIdContextKeyValuePair =
  struct
    type nonrec t =
      {
      key: Key.t option [@ocaml.doc "The resource context key."];
      value: Value.t option [@ocaml.doc "The resource context value."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:Key.to_value));
        ("Value", (Option.map x.value ~f:Value.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Value.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:Key.of_xml) (Xml.child 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 json__ "Value" Value.of_json in
      let key = field_map json__ "Key" Key.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Context information that enables CloudFormation to uniquely identify a resource. CloudFormation uses context key-value pairs in cases where a resource's logical and physical IDs aren't enough to uniquely identify that resource. Each context key-value pair specifies a resource that contains the targeted resource."]
module PropertyDifference =
  struct
    type nonrec t =
      {
      propertyPath: PropertyPath.t option
        [@ocaml.doc "The fully-qualified path to the resource property."];
      expectedValue: PropertyValue.t option
        [@ocaml.doc
          "The expected property value of the resource property, as defined in the stack template and any values specified as template parameters."];
      actualValue: PropertyValue.t option
        [@ocaml.doc "The actual property value of the resource property."];
      differenceType: DifferenceType.t option
        [@ocaml.doc
          "The type of property difference. ADD: A value has been added to a resource property that's an array or list data type. REMOVE: The property has been removed from the current resource configuration. NOT_EQUAL: The current property value differs from its expected value (as defined in the stack template and any values specified as template parameters)."]}
    let make ?propertyPath =
      fun ?expectedValue ->
        fun ?actualValue ->
          fun ?differenceType ->
            fun () ->
              { propertyPath; expectedValue; actualValue; differenceType }
    let to_value x =
      structure_to_value
        [("PropertyPath",
           (Option.map x.propertyPath ~f:PropertyPath.to_value));
        ("ExpectedValue",
          (Option.map x.expectedValue ~f:PropertyValue.to_value));
        ("ActualValue", (Option.map x.actualValue ~f:PropertyValue.to_value));
        ("DifferenceType",
          (Option.map x.differenceType ~f:DifferenceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let differenceType =
        (Option.map ~f:DifferenceType.of_xml)
          (Xml.child xml_arg0 "DifferenceType") in
      let actualValue =
        (Option.map ~f:PropertyValue.of_xml)
          (Xml.child xml_arg0 "ActualValue") in
      let expectedValue =
        (Option.map ~f:PropertyValue.of_xml)
          (Xml.child xml_arg0 "ExpectedValue") in
      let propertyPath =
        (Option.map ~f:PropertyPath.of_xml)
          (Xml.child xml_arg0 "PropertyPath") in
      make ?differenceType ?actualValue ?expectedValue ?propertyPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let differenceType =
        field_map json__ "DifferenceType" DifferenceType.of_json in
      let actualValue = field_map json__ "ActualValue" PropertyValue.of_json in
      let expectedValue =
        field_map json__ "ExpectedValue" PropertyValue.of_json in
      let propertyPath = field_map json__ "PropertyPath" PropertyPath.of_json in
      make ?differenceType ?actualValue ?expectedValue ?propertyPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a resource property whose actual value differs from its expected value, as defined in the stack template and any values specified as template parameters. These will be present only for resources whose StackResourceDriftStatus is MODIFIED. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."]
module JazzResourceIdentifierPropertyKey =
  struct
    type nonrec t = string
    let context_ = "JazzResourceIdentifierPropertyKey"
    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:"JazzResourceIdentifierPropertyKey" j
    let to_json = simple_to_json to_value
  end
module JazzResourceIdentifierPropertyValue =
  struct
    type nonrec t = string
    let context_ = "JazzResourceIdentifierPropertyValue"
    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:"JazzResourceIdentifierPropertyValue" j
    let to_json = simple_to_json to_value
  end
module AllowedValues =
  struct
    type nonrec t = AllowedValue.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:AllowedValue.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:AllowedValue.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedValues" ~of_json:AllowedValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupportedMajorVersion =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (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 SupportedMajorVersion" 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 Capability =
  struct
    type nonrec t =
      | CAPABILITY_IAM 
      | CAPABILITY_NAMED_IAM 
      | CAPABILITY_AUTO_EXPAND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CAPABILITY_IAM -> "CAPABILITY_IAM"
      | CAPABILITY_NAMED_IAM -> "CAPABILITY_NAMED_IAM"
      | CAPABILITY_AUTO_EXPAND -> "CAPABILITY_AUTO_EXPAND"
      | Non_static_id s -> s
    let of_string =
      function
      | "CAPABILITY_IAM" -> CAPABILITY_IAM
      | "CAPABILITY_NAMED_IAM" -> CAPABILITY_NAMED_IAM
      | "CAPABILITY_AUTO_EXPAND" -> CAPABILITY_AUTO_EXPAND
      | 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 Capability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Capability" j)
    let to_json = simple_to_json to_value
  end
module NotificationARN =
  struct
    type nonrec t = string
    let context_ = "NotificationARN"
    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:"NotificationARN" j
    let to_json = simple_to_json to_value
  end
module Output =
  struct
    type nonrec t =
      {
      outputKey: OutputKey.t option
        [@ocaml.doc "The key associated with the output."];
      outputValue: OutputValue.t option
        [@ocaml.doc "The value associated with the output."];
      description: Description.t option
        [@ocaml.doc "User defined description associated with the output."];
      exportName: ExportName.t option
        [@ocaml.doc "The name of the export associated with the output."]}
    let make ?outputKey =
      fun ?outputValue ->
        fun ?description ->
          fun ?exportName ->
            fun () -> { outputKey; outputValue; description; exportName }
    let to_value x =
      structure_to_value
        [("OutputKey", (Option.map x.outputKey ~f:OutputKey.to_value));
        ("OutputValue", (Option.map x.outputValue ~f:OutputValue.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ExportName", (Option.map x.exportName ~f:ExportName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportName =
        (Option.map ~f:ExportName.of_xml) (Xml.child xml_arg0 "ExportName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let outputValue =
        (Option.map ~f:OutputValue.of_xml) (Xml.child xml_arg0 "OutputValue") in
      let outputKey =
        (Option.map ~f:OutputKey.of_xml) (Xml.child xml_arg0 "OutputKey") in
      make ?exportName ?description ?outputValue ?outputKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportName = field_map json__ "ExportName" ExportName.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let outputValue = field_map json__ "OutputValue" OutputValue.of_json in
      let outputKey = field_map json__ "OutputKey" OutputKey.of_json in
      make ?exportName ?description ?outputValue ?outputKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Output data type."]
module Parameter =
  struct
    type nonrec t =
      {
      parameterKey: ParameterKey.t option
        [@ocaml.doc
          "The key associated with the parameter. If you don't specify a key and value for a particular parameter, CloudFormation uses the default value that's specified in your template."];
      parameterValue: ParameterValue.t option
        [@ocaml.doc "The input value associated with the parameter."];
      usePreviousValue: UsePreviousValue.t option
        [@ocaml.doc
          "During a stack update, use the existing parameter value that the stack is using for a given parameter key. If you specify true, do not specify a parameter value."];
      resolvedValue: ParameterValue.t option
        [@ocaml.doc
          "Read-only. The value that corresponds to a Systems Manager parameter key. This field is returned only for Systems Manager parameter types in the template. For more information, see Specify existing resources at runtime with CloudFormation-supplied parameter types in the CloudFormation User Guide."]}
    let make ?parameterKey =
      fun ?parameterValue ->
        fun ?usePreviousValue ->
          fun ?resolvedValue ->
            fun () ->
              { parameterKey; parameterValue; usePreviousValue; resolvedValue
              }
    let to_value x =
      structure_to_value
        [("ParameterKey",
           (Option.map x.parameterKey ~f:ParameterKey.to_value));
        ("ParameterValue",
          (Option.map x.parameterValue ~f:ParameterValue.to_value));
        ("UsePreviousValue",
          (Option.map x.usePreviousValue ~f:UsePreviousValue.to_value));
        ("ResolvedValue",
          (Option.map x.resolvedValue ~f:ParameterValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedValue =
        (Option.map ~f:ParameterValue.of_xml)
          (Xml.child xml_arg0 "ResolvedValue") in
      let usePreviousValue =
        (Option.map ~f:UsePreviousValue.of_xml)
          (Xml.child xml_arg0 "UsePreviousValue") in
      let parameterValue =
        (Option.map ~f:ParameterValue.of_xml)
          (Xml.child xml_arg0 "ParameterValue") in
      let parameterKey =
        (Option.map ~f:ParameterKey.of_xml)
          (Xml.child xml_arg0 "ParameterKey") in
      make ?resolvedValue ?usePreviousValue ?parameterValue ?parameterKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedValue =
        field_map json__ "ResolvedValue" ParameterValue.of_json in
      let usePreviousValue =
        field_map json__ "UsePreviousValue" UsePreviousValue.of_json in
      let parameterValue =
        field_map json__ "ParameterValue" ParameterValue.of_json in
      let parameterKey = field_map json__ "ParameterKey" ParameterKey.of_json in
      make ?resolvedValue ?usePreviousValue ?parameterValue ?parameterKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Parameter data type."]
module MonitoringTimeInMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:180) >>= (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 MonitoringTimeInMinutes"
           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 RollbackTriggers =
  struct
    type nonrec t = RollbackTrigger.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RollbackTrigger.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:RollbackTrigger.of_xml)
    let of_json j =
      list_of_json ~kind:"RollbackTriggers" ~of_json:RollbackTrigger.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Account =
  struct
    type nonrec t = string
    let context_ = "Account"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[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:"Account" j
    let to_json = simple_to_json to_value
  end
module OrganizationalUnitId =
  struct
    type nonrec t = string
    let context_ = "OrganizationalUnitId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(ou-[a-z0-9]{4,32}-[a-z0-9]{8,32}|r-[a-z0-9]{4,32})$");
        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:"OrganizationalUnitId" j
    let to_json = simple_to_json to_value
  end
module WarningDetail =
  struct
    type nonrec t =
      {
      type_: WarningType.t option
        [@ocaml.doc
          "The type of this warning. For more information, see Resolve write-only properties in the CloudFormation User Guide. MUTUALLY_EXCLUSIVE_PROPERTIES - The resource requires mutually-exclusive write-only properties. The IaC generator selects one set of mutually exclusive properties and converts the included properties into parameters. The parameter names have a suffix OneOf and the parameter descriptions indicate that the corresponding property can be replaced with other exclusive properties. UNSUPPORTED_PROPERTIES - Unsupported properties are present in the resource. One example of unsupported properties would be a required write-only property that is an array, because a parameter cannot be an array. Another example is an optional write-only property. MUTUALLY_EXCLUSIVE_TYPES - One or more required write-only properties are found in the resource, and the type of that property can be any of several types. Currently the resource and property reference documentation does not indicate if a property uses a type of oneOf or anyOf. You need to look at the resource provider schema."];
      properties: WarningProperties.t option
        [@ocaml.doc
          "The properties of the resource that are impacted by this warning."]}
    let make ?type_ = fun ?properties -> fun () -> { type_; properties }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:WarningType.to_value));
        ("Properties",
          (Option.map x.properties ~f:WarningProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let properties =
        (Option.map ~f:WarningProperties.of_xml)
          (Xml.child xml_arg0 "Properties") in
      let type_ =
        (Option.map ~f:WarningType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?properties ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let properties =
        field_map json__ "Properties" WarningProperties.of_json in
      let type_ = field_map json__ "Type" WarningType.of_json in
      make ?properties ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The warnings generated for a specific resource for this generated template."]
module AfterContext =
  struct
    type nonrec t = string
    let context_ = "AfterContext"
    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:"AfterContext" j
    let to_json = simple_to_json to_value
  end
module BeforeContext =
  struct
    type nonrec t = string
    let context_ = "BeforeContext"
    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:"BeforeContext" j
    let to_json = simple_to_json to_value
  end
module ChangeSetId =
  struct
    type nonrec t = string
    let context_ = "ChangeSetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_pattern i ~pattern:"arn:[-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:"ChangeSetId" j
    let to_json = simple_to_json to_value
  end
module ModuleInfo =
  struct
    type nonrec t =
      {
      typeHierarchy: TypeHierarchy.t option
        [@ocaml.doc
          "A concatenated list of the module type or types that contains the resource. Module types are listed starting with the inner-most nested module, and separated by /. In the following example, the resource was created from a module of type AWS::First::Example::MODULE, that's nested inside a parent module of type AWS::Second::Example::MODULE. AWS::First::Example::MODULE/AWS::Second::Example::MODULE"];
      logicalIdHierarchy: LogicalIdHierarchy.t option
        [@ocaml.doc
          "A concatenated list of the logical IDs of the module or modules that contains the resource. Modules are listed starting with the inner-most nested module, and separated by /. In the following example, the resource was created from a module, moduleA, that's nested inside a parent module, moduleB. moduleA/moduleB For more information, see Reference module resources in CloudFormation templates in the CloudFormation User Guide."]}
    let make ?typeHierarchy =
      fun ?logicalIdHierarchy ->
        fun () -> { typeHierarchy; logicalIdHierarchy }
    let to_value x =
      structure_to_value
        [("TypeHierarchy",
           (Option.map x.typeHierarchy ~f:TypeHierarchy.to_value));
        ("LogicalIdHierarchy",
          (Option.map x.logicalIdHierarchy ~f:LogicalIdHierarchy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalIdHierarchy =
        (Option.map ~f:LogicalIdHierarchy.of_xml)
          (Xml.child xml_arg0 "LogicalIdHierarchy") in
      let typeHierarchy =
        (Option.map ~f:TypeHierarchy.of_xml)
          (Xml.child xml_arg0 "TypeHierarchy") in
      make ?logicalIdHierarchy ?typeHierarchy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalIdHierarchy =
        field_map json__ "LogicalIdHierarchy" LogicalIdHierarchy.of_json in
      let typeHierarchy =
        field_map json__ "TypeHierarchy" TypeHierarchy.of_json in
      make ?logicalIdHierarchy ?typeHierarchy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template. For more information about modules, see Create reusable resource configurations that can be included across templates with CloudFormation modules in the CloudFormation User Guide."]
module PhysicalResourceId =
  struct
    type nonrec t = string
    let context_ = "PhysicalResourceId"
    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:"PhysicalResourceId" j
    let to_json = simple_to_json to_value
  end
module PolicyAction =
  struct
    type nonrec t =
      | Delete 
      | Retain 
      | Snapshot 
      | ReplaceAndDelete 
      | ReplaceAndRetain 
      | ReplaceAndSnapshot 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Delete -> "Delete"
      | Retain -> "Retain"
      | Snapshot -> "Snapshot"
      | ReplaceAndDelete -> "ReplaceAndDelete"
      | ReplaceAndRetain -> "ReplaceAndRetain"
      | ReplaceAndSnapshot -> "ReplaceAndSnapshot"
      | Non_static_id s -> s
    let of_string =
      function
      | "Delete" -> Delete
      | "Retain" -> Retain
      | "Snapshot" -> Snapshot
      | "ReplaceAndDelete" -> ReplaceAndDelete
      | "ReplaceAndRetain" -> ReplaceAndRetain
      | "ReplaceAndSnapshot" -> ReplaceAndSnapshot
      | 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 PolicyAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PolicyAction" j)
    let to_json = simple_to_json to_value
  end
module PreviousDeploymentContext =
  struct
    type nonrec t = string
    let context_ = "PreviousDeploymentContext"
    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:"PreviousDeploymentContext" j
    let to_json = simple_to_json to_value
  end
module Replacement =
  struct
    type nonrec t =
      | True 
      | False 
      | Conditional 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | True -> "True"
      | False -> "False"
      | Conditional -> "Conditional"
      | Non_static_id s -> s
    let of_string =
      function
      | "True" -> True
      | "False" -> False
      | "Conditional" -> Conditional
      | 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 Replacement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Replacement" j)
    let to_json = simple_to_json to_value
  end
module ResourceChangeDetails =
  struct
    type nonrec t = ResourceChangeDetail.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:ResourceChangeDetail.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:ResourceChangeDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceChangeDetails"
        ~of_json:ResourceChangeDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceDriftIgnoredAttributes =
  struct
    type nonrec t = ResourceDriftIgnoredAttribute.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:ResourceDriftIgnoredAttribute.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:ResourceDriftIgnoredAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceDriftIgnoredAttributes"
        ~of_json:ResourceDriftIgnoredAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module Scope =
  struct
    type nonrec t = ResourceAttribute.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:ResourceAttribute.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:ResourceAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"Scope" ~of_json:ResourceAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeSetHookResourceTargetDetails =
  struct
    type nonrec t =
      {
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The resource's logical ID, which is defined in the stack's template."];
      resourceType: HookTargetTypeName.t option
        [@ocaml.doc
          "The type of CloudFormation resource, such as AWS::S3::Bucket."];
      resourceAction: ChangeAction.t option
        [@ocaml.doc "Specifies the action of the resource."]}
    let make ?logicalResourceId =
      fun ?resourceType ->
        fun ?resourceAction ->
          fun () -> { logicalResourceId; resourceType; resourceAction }
    let to_value x =
      structure_to_value
        [("LogicalResourceId",
           (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:HookTargetTypeName.to_value));
        ("ResourceAction",
          (Option.map x.resourceAction ~f:ChangeAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceAction =
        (Option.map ~f:ChangeAction.of_xml)
          (Xml.child xml_arg0 "ResourceAction") in
      let resourceType =
        (Option.map ~f:HookTargetTypeName.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      make ?resourceAction ?resourceType ?logicalResourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceAction =
        field_map json__ "ResourceAction" ChangeAction.of_json in
      let resourceType =
        field_map json__ "ResourceType" HookTargetTypeName.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      make ?resourceAction ?resourceType ?logicalResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies RESOURCE type target details for activated Hooks."]
module HookTargetType =
  struct
    type nonrec t =
      | RESOURCE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | RESOURCE -> "RESOURCE" | Non_static_id s -> s
    let of_string = function | "RESOURCE" -> RESOURCE | 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 HookTargetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HookTargetType" j)
    let to_json = simple_to_json to_value
  end
module ThirdPartyType =
  struct
    type nonrec t =
      | RESOURCE 
      | MODULE 
      | HOOK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE -> "RESOURCE"
      | MODULE -> "MODULE"
      | HOOK -> "HOOK"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE" -> RESOURCE
      | "MODULE" -> MODULE
      | "HOOK" -> HOOK
      | 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 ThirdPartyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ThirdPartyType" j)
    let to_json = simple_to_json to_value
  end
module TypeArn =
  struct
    type nonrec t = string
    let context_ = "TypeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[A-Za-z0-9-]{0,64}:cloudformation:[A-Za-z0-9-]{1,64}:([0-9]{12})?:type/.+"));
        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:"TypeArn" j
    let to_json = simple_to_json to_value
  end
module TypeConfigurationAlias =
  struct
    type nonrec t = string
    let context_ = "TypeConfigurationAlias"
    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:"^[a-zA-Z0-9]{1,256}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeConfigurationAlias" j
    let to_json = simple_to_json to_value
  end
module TypeConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "TypeConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[A-Za-z0-9-]{0,64}:cloudformation:[A-Za-z0-9-]{1,64}:([0-9]{12})?:type-configuration/.+"));
        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:"TypeConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module TypeName =
  struct
    type nonrec t = string
    let context_ = "TypeName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:204) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9]{2,64}::[A-Za-z0-9]{2,64}::[A-Za-z0-9]{2,64}(::MODULE){0,1}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeName" j
    let to_json = simple_to_json to_value
  end
module NoEcho =
  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 ResourceIdentifierProperties =
  struct
    type nonrec t =
      (ResourceIdentifierPropertyKey.t * ResourceIdentifierPropertyValue.t)
        list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:256) >>=
             (fun () -> check_list_min i ~min:1));
        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 ->
                            ((ResourceIdentifierPropertyKey.of_string chopped),
                              (ResourceIdentifierPropertyValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ResourceIdentifierPropertyKey.to_value x) |>
                    (fun x ->
                       (ResourceIdentifierPropertyValue.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:ResourceIdentifierPropertyKey.of_string
        ~of_json:ResourceIdentifierPropertyValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceTypeFilters =
  struct
    type nonrec t = ResourceTypeFilter.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:100); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceTypeFilter.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:ResourceTypeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTypeFilters"
        ~of_json:ResourceTypeFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentityProvider =
  struct
    type nonrec t =
      | AWS_Marketplace 
      | GitHub 
      | Bitbucket 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_Marketplace -> "AWS_Marketplace"
      | GitHub -> "GitHub"
      | Bitbucket -> "Bitbucket"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_Marketplace" -> AWS_Marketplace
      | "GitHub" -> GitHub
      | "Bitbucket" -> Bitbucket
      | 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 IdentityProvider" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentityProvider" j)
    let to_json = simple_to_json to_value
  end
module IsActivated =
  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 PublicVersionNumber =
  struct
    type nonrec t = string
    let context_ = "PublicVersionNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(0|[1-9]\\d*)\\.(0|[1-9]\\d*)\\.(.*)$"));
        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:"PublicVersionNumber" j
    let to_json = simple_to_json to_value
  end
module PublisherId =
  struct
    type nonrec t = string
    let context_ = "PublisherId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-zA-Z]{12,40}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PublisherId" j
    let to_json = simple_to_json to_value
  end
module PublisherName =
  struct
    type nonrec t = string
    let context_ = "PublisherName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PublisherName" j
    let to_json = simple_to_json to_value
  end
module RegistryType =
  struct
    type nonrec t =
      | RESOURCE 
      | MODULE 
      | HOOK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE -> "RESOURCE"
      | MODULE -> "MODULE"
      | HOOK -> "HOOK"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE" -> RESOURCE
      | "MODULE" -> MODULE
      | "HOOK" -> HOOK
      | 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 RegistryType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistryType" j)
    let to_json = simple_to_json to_value
  end
module TypeVersionId =
  struct
    type nonrec t = string
    let context_ = "TypeVersionId"
    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-]+")));
        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:"TypeVersionId" j
    let to_json = simple_to_json to_value
  end
module IsDefaultVersion =
  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 CreationTime =
  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 DeletionTime =
  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 LastOperations =
  struct
    type nonrec t = OperationEntry.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:OperationEntry.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:OperationEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"LastOperations" ~of_json:OperationEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module LastUpdatedTime =
  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 StackDriftInformationSummary =
  struct
    type nonrec t =
      {
      stackDriftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the stack's actual configuration compared to its expected template configuration. DRIFTED: The stack differs from its expected template configuration. A stack is considered to have drifted if one or more of its resources have drifted. NOT_CHECKED: CloudFormation hasn't checked if the stack differs from its expected template configuration. IN_SYNC: The stack's actual configuration matches its expected template configuration. UNKNOWN: CloudFormation could not run drift detection for a resource in the stack."];
      lastCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when a drift detection operation was initiated on the stack, or any of its individual resources that support drift detection."]}
    let make ?stackDriftStatus =
      fun ?lastCheckTimestamp ->
        fun () -> { stackDriftStatus; lastCheckTimestamp }
    let to_value x =
      structure_to_value
        [("StackDriftStatus",
           (Option.map x.stackDriftStatus ~f:StackDriftStatus.to_value));
        ("LastCheckTimestamp",
          (Option.map x.lastCheckTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastCheckTimestamp") in
      let stackDriftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackDriftStatus") in
      make ?lastCheckTimestamp ?stackDriftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastCheckTimestamp =
        field_map json__ "LastCheckTimestamp" Timestamp.of_json in
      let stackDriftStatus =
        field_map json__ "StackDriftStatus" StackDriftStatus.of_json in
      make ?lastCheckTimestamp ?stackDriftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about whether the stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. A stack is considered to have drifted if one or more of its resources have drifted."]
module StackId =
  struct
    type nonrec t = string
    let context_ = "StackId"
    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:"StackId" j
    let to_json = simple_to_json to_value
  end
module StackStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | CREATE_FAILED 
      | CREATE_COMPLETE 
      | ROLLBACK_IN_PROGRESS 
      | ROLLBACK_FAILED 
      | ROLLBACK_COMPLETE 
      | DELETE_IN_PROGRESS 
      | DELETE_FAILED 
      | DELETE_COMPLETE 
      | UPDATE_IN_PROGRESS 
      | UPDATE_COMPLETE_CLEANUP_IN_PROGRESS 
      | UPDATE_COMPLETE 
      | UPDATE_FAILED 
      | UPDATE_ROLLBACK_IN_PROGRESS 
      | UPDATE_ROLLBACK_FAILED 
      | UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS 
      | UPDATE_ROLLBACK_COMPLETE 
      | REVIEW_IN_PROGRESS 
      | IMPORT_IN_PROGRESS 
      | IMPORT_COMPLETE 
      | IMPORT_ROLLBACK_IN_PROGRESS 
      | IMPORT_ROLLBACK_FAILED 
      | IMPORT_ROLLBACK_COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | ROLLBACK_IN_PROGRESS -> "ROLLBACK_IN_PROGRESS"
      | ROLLBACK_FAILED -> "ROLLBACK_FAILED"
      | ROLLBACK_COMPLETE -> "ROLLBACK_COMPLETE"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_FAILED -> "DELETE_FAILED"
      | DELETE_COMPLETE -> "DELETE_COMPLETE"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | UPDATE_COMPLETE_CLEANUP_IN_PROGRESS ->
          "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS"
      | UPDATE_COMPLETE -> "UPDATE_COMPLETE"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | UPDATE_ROLLBACK_IN_PROGRESS -> "UPDATE_ROLLBACK_IN_PROGRESS"
      | UPDATE_ROLLBACK_FAILED -> "UPDATE_ROLLBACK_FAILED"
      | UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS ->
          "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS"
      | UPDATE_ROLLBACK_COMPLETE -> "UPDATE_ROLLBACK_COMPLETE"
      | REVIEW_IN_PROGRESS -> "REVIEW_IN_PROGRESS"
      | IMPORT_IN_PROGRESS -> "IMPORT_IN_PROGRESS"
      | IMPORT_COMPLETE -> "IMPORT_COMPLETE"
      | IMPORT_ROLLBACK_IN_PROGRESS -> "IMPORT_ROLLBACK_IN_PROGRESS"
      | IMPORT_ROLLBACK_FAILED -> "IMPORT_ROLLBACK_FAILED"
      | IMPORT_ROLLBACK_COMPLETE -> "IMPORT_ROLLBACK_COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "ROLLBACK_IN_PROGRESS" -> ROLLBACK_IN_PROGRESS
      | "ROLLBACK_FAILED" -> ROLLBACK_FAILED
      | "ROLLBACK_COMPLETE" -> ROLLBACK_COMPLETE
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_FAILED" -> DELETE_FAILED
      | "DELETE_COMPLETE" -> DELETE_COMPLETE
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS" ->
          UPDATE_COMPLETE_CLEANUP_IN_PROGRESS
      | "UPDATE_COMPLETE" -> UPDATE_COMPLETE
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "UPDATE_ROLLBACK_IN_PROGRESS" -> UPDATE_ROLLBACK_IN_PROGRESS
      | "UPDATE_ROLLBACK_FAILED" -> UPDATE_ROLLBACK_FAILED
      | "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS" ->
          UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS
      | "UPDATE_ROLLBACK_COMPLETE" -> UPDATE_ROLLBACK_COMPLETE
      | "REVIEW_IN_PROGRESS" -> REVIEW_IN_PROGRESS
      | "IMPORT_IN_PROGRESS" -> IMPORT_IN_PROGRESS
      | "IMPORT_COMPLETE" -> IMPORT_COMPLETE
      | "IMPORT_ROLLBACK_IN_PROGRESS" -> IMPORT_ROLLBACK_IN_PROGRESS
      | "IMPORT_ROLLBACK_FAILED" -> IMPORT_ROLLBACK_FAILED
      | "IMPORT_ROLLBACK_COMPLETE" -> IMPORT_ROLLBACK_COMPLETE
      | 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 StackStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackStatus" j)
    let to_json = simple_to_json to_value
  end
module StackStatusReason =
  struct
    type nonrec t = string
    let context_ = "StackStatusReason"
    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:"StackStatusReason" j
    let to_json = simple_to_json to_value
  end
module TemplateDescription =
  struct
    type nonrec t = string
    let context_ = "TemplateDescription"
    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:"TemplateDescription" j
    let to_json = simple_to_json to_value
  end
module AutoDeployment =
  struct
    type nonrec t =
      {
      enabled: AutoDeploymentNullable.t option
        [@ocaml.doc
          "If set to true, StackSets automatically deploys additional stack instances to Organizations accounts that are added to a target organization or organizational unit (OU) in the specified Regions. If an account is removed from a target organization or OU, StackSets deletes stack instances from the account in the specified Regions."];
      retainStacksOnAccountRemoval:
        RetainStacksOnAccountRemovalNullable.t option
        [@ocaml.doc
          "If set to true, stack resources are retained when an account is removed from a target organization or OU. If set to false, stack resources are deleted. Specify only if Enabled is set to True."];
      dependsOn: StackSetARNList.t option
        [@ocaml.doc
          "A list of StackSet ARNs that this StackSet depends on for auto-deployment operations. When auto-deployment is triggered, operations will be sequenced to ensure all dependencies complete successfully before this StackSet's operation begins."]}
    let make ?enabled =
      fun ?retainStacksOnAccountRemoval ->
        fun ?dependsOn ->
          fun () -> { enabled; retainStacksOnAccountRemoval; dependsOn }
    let to_value x =
      structure_to_value
        [("Enabled",
           (Option.map x.enabled ~f:AutoDeploymentNullable.to_value));
        ("RetainStacksOnAccountRemoval",
          (Option.map x.retainStacksOnAccountRemoval
             ~f:RetainStacksOnAccountRemovalNullable.to_value));
        ("DependsOn", (Option.map x.dependsOn ~f:StackSetARNList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dependsOn =
        (Option.map ~f:StackSetARNList.of_xml)
          (Xml.child xml_arg0 "DependsOn") in
      let retainStacksOnAccountRemoval =
        (Option.map ~f:RetainStacksOnAccountRemovalNullable.of_xml)
          (Xml.child xml_arg0 "RetainStacksOnAccountRemoval") in
      let enabled =
        (Option.map ~f:AutoDeploymentNullable.of_xml)
          (Xml.child xml_arg0 "Enabled") in
      make ?dependsOn ?retainStacksOnAccountRemoval ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dependsOn = field_map json__ "DependsOn" StackSetARNList.of_json in
      let retainStacksOnAccountRemoval =
        field_map json__ "RetainStacksOnAccountRemoval"
          RetainStacksOnAccountRemovalNullable.of_json in
      let enabled = field_map json__ "Enabled" AutoDeploymentNullable.of_json in
      make ?dependsOn ?retainStacksOnAccountRemoval ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes whether StackSets automatically deploys to Organizations accounts that are added to a target organization or organizational unit (OU). For more information, see Enable or disable automatic deployments for StackSets in Organizations in the CloudFormation User Guide."]
module ManagedExecution =
  struct
    type nonrec t =
      {
      active: ManagedExecutionNullable.t option
        [@ocaml.doc
          "When true, CloudFormation performs non-conflicting operations concurrently and queues conflicting operations. After conflicting operations finish, CloudFormation starts queued operations in request order. If there are already running or queued operations, CloudFormation queues all incoming operations even if they are non-conflicting. You can't modify your StackSet's execution configuration while there are running or queued operations for that StackSet. When false (default), StackSets performs one operation at a time in request order."]}
    let make ?active = fun () -> { active }
    let to_value x =
      structure_to_value
        [("Active",
           (Option.map x.active ~f:ManagedExecutionNullable.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let active =
        (Option.map ~f:ManagedExecutionNullable.of_xml)
          (Xml.child xml_arg0 "Active") in
      make ?active ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let active = field_map json__ "Active" ManagedExecutionNullable.of_json in
      make ?active ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes whether StackSets performs non-conflicting operations concurrently and queues conflicting operations."]
module PermissionModels =
  struct
    type nonrec t =
      | SERVICE_MANAGED 
      | SELF_MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE_MANAGED -> "SERVICE_MANAGED"
      | SELF_MANAGED -> "SELF_MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE_MANAGED" -> SERVICE_MANAGED
      | "SELF_MANAGED" -> SELF_MANAGED
      | 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 PermissionModels" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PermissionModels" j)
    let to_json = simple_to_json to_value
  end
module StackSetId =
  struct
    type nonrec t = string
    let context_ = "StackSetId"
    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:"StackSetId" j
    let to_json = simple_to_json to_value
  end
module StackSetName =
  struct
    type nonrec t = string
    let context_ = "StackSetName"
    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:"StackSetName" j
    let to_json = simple_to_json to_value
  end
module StackSetStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StackSetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackSetStatus" j)
    let to_json = simple_to_json to_value
  end
module ClientRequestToken =
  struct
    type nonrec t = string
    let context_ = "ClientRequestToken"
    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][-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:"ClientRequestToken" j
    let to_json = simple_to_json to_value
  end
module StackSetOperationAction =
  struct
    type nonrec t =
      | CREATE 
      | UPDATE 
      | DELETE 
      | DETECT_DRIFT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE -> "CREATE"
      | UPDATE -> "UPDATE"
      | DELETE -> "DELETE"
      | DETECT_DRIFT -> "DETECT_DRIFT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE" -> CREATE
      | "UPDATE" -> UPDATE
      | "DELETE" -> DELETE
      | "DETECT_DRIFT" -> DETECT_DRIFT
      | 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 StackSetOperationAction" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackSetOperationAction" j)
    let to_json = simple_to_json to_value
  end
module StackSetOperationPreferences =
  struct
    type nonrec t =
      {
      regionConcurrencyType: RegionConcurrencyType.t option
        [@ocaml.doc
          "The concurrency type of deploying StackSets operations in Regions, could be in parallel or one Region at a time."];
      regionOrder: RegionList.t option
        [@ocaml.doc
          "The order of the Regions where you want to perform the stack operation."];
      failureToleranceCount: FailureToleranceCount.t option
        [@ocaml.doc
          "The number of accounts per Region this operation can fail in before CloudFormation stops the operation in that Region. If the operation is stopped in a Region, CloudFormation doesn't attempt the operation in any subsequent Regions. You can specify either FailureToleranceCount or FailureTolerancePercentage, but not both. By default, 0 is specified."];
      failureTolerancePercentage: FailureTolerancePercentage.t option
        [@ocaml.doc
          "The percentage of accounts per Region this stack operation can fail in before CloudFormation stops the operation in that Region. If the operation is stopped in a Region, CloudFormation doesn't attempt the operation in any subsequent Regions. When calculating the number of accounts based on the specified percentage, CloudFormation rounds down to the next whole number. You can specify either FailureToleranceCount or FailureTolerancePercentage, but not both. By default, 0 is specified."];
      maxConcurrentCount: MaxConcurrentCount.t option
        [@ocaml.doc
          "The maximum number of accounts in which to perform this operation at one time. This can depend on the value of FailureToleranceCount depending on your ConcurrencyMode. MaxConcurrentCount is at most one more than the FailureToleranceCount if you're using STRICT_FAILURE_TOLERANCE. Note that this setting lets you specify the maximum for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. You can specify either MaxConcurrentCount or MaxConcurrentPercentage, but not both. By default, 1 is specified."];
      maxConcurrentPercentage: MaxConcurrentPercentage.t option
        [@ocaml.doc
          "The maximum percentage of accounts in which to perform this operation at one time. When calculating the number of accounts based on the specified percentage, CloudFormation rounds down to the next whole number. This is true except in cases where rounding down would result is zero. In this case, CloudFormation sets the number as one instead. Note that this setting lets you specify the maximum for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. You can specify either MaxConcurrentCount or MaxConcurrentPercentage, but not both. By default, 1 is specified."];
      concurrencyMode: ConcurrencyMode.t option
        [@ocaml.doc
          "Specifies how the concurrency level behaves during the operation execution. STRICT_FAILURE_TOLERANCE: This option dynamically lowers the concurrency level to ensure the number of failed accounts never exceeds the value of FailureToleranceCount +1. The initial actual concurrency is set to the lower of either the value of the MaxConcurrentCount, or the value of FailureToleranceCount +1. The actual concurrency is then reduced proportionally by the number of failures. This is the default behavior. If failure tolerance or Maximum concurrent accounts are set to percentages, the behavior is similar. SOFT_FAILURE_TOLERANCE: This option decouples FailureToleranceCount from the actual concurrency. This allows StackSet operations to run at the concurrency level set by the MaxConcurrentCount value, or MaxConcurrentPercentage, regardless of the number of failures."]}
    let make ?regionConcurrencyType =
      fun ?regionOrder ->
        fun ?failureToleranceCount ->
          fun ?failureTolerancePercentage ->
            fun ?maxConcurrentCount ->
              fun ?maxConcurrentPercentage ->
                fun ?concurrencyMode ->
                  fun () ->
                    {
                      regionConcurrencyType;
                      regionOrder;
                      failureToleranceCount;
                      failureTolerancePercentage;
                      maxConcurrentCount;
                      maxConcurrentPercentage;
                      concurrencyMode
                    }
    let to_value x =
      structure_to_value
        [("RegionConcurrencyType",
           (Option.map x.regionConcurrencyType
              ~f:RegionConcurrencyType.to_value));
        ("RegionOrder", (Option.map x.regionOrder ~f:RegionList.to_value));
        ("FailureToleranceCount",
          (Option.map x.failureToleranceCount
             ~f:FailureToleranceCount.to_value));
        ("FailureTolerancePercentage",
          (Option.map x.failureTolerancePercentage
             ~f:FailureTolerancePercentage.to_value));
        ("MaxConcurrentCount",
          (Option.map x.maxConcurrentCount ~f:MaxConcurrentCount.to_value));
        ("MaxConcurrentPercentage",
          (Option.map x.maxConcurrentPercentage
             ~f:MaxConcurrentPercentage.to_value));
        ("ConcurrencyMode",
          (Option.map x.concurrencyMode ~f:ConcurrencyMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let concurrencyMode =
        (Option.map ~f:ConcurrencyMode.of_xml)
          (Xml.child xml_arg0 "ConcurrencyMode") in
      let maxConcurrentPercentage =
        (Option.map ~f:MaxConcurrentPercentage.of_xml)
          (Xml.child xml_arg0 "MaxConcurrentPercentage") in
      let maxConcurrentCount =
        (Option.map ~f:MaxConcurrentCount.of_xml)
          (Xml.child xml_arg0 "MaxConcurrentCount") in
      let failureTolerancePercentage =
        (Option.map ~f:FailureTolerancePercentage.of_xml)
          (Xml.child xml_arg0 "FailureTolerancePercentage") in
      let failureToleranceCount =
        (Option.map ~f:FailureToleranceCount.of_xml)
          (Xml.child xml_arg0 "FailureToleranceCount") in
      let regionOrder =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "RegionOrder") in
      let regionConcurrencyType =
        (Option.map ~f:RegionConcurrencyType.of_xml)
          (Xml.child xml_arg0 "RegionConcurrencyType") in
      make ?concurrencyMode ?maxConcurrentPercentage ?maxConcurrentCount
        ?failureTolerancePercentage ?failureToleranceCount ?regionOrder
        ?regionConcurrencyType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let concurrencyMode =
        field_map json__ "ConcurrencyMode" ConcurrencyMode.of_json in
      let maxConcurrentPercentage =
        field_map json__ "MaxConcurrentPercentage"
          MaxConcurrentPercentage.of_json in
      let maxConcurrentCount =
        field_map json__ "MaxConcurrentCount" MaxConcurrentCount.of_json in
      let failureTolerancePercentage =
        field_map json__ "FailureTolerancePercentage"
          FailureTolerancePercentage.of_json in
      let failureToleranceCount =
        field_map json__ "FailureToleranceCount"
          FailureToleranceCount.of_json in
      let regionOrder = field_map json__ "RegionOrder" RegionList.of_json in
      let regionConcurrencyType =
        field_map json__ "RegionConcurrencyType"
          RegionConcurrencyType.of_json in
      make ?concurrencyMode ?maxConcurrentPercentage ?maxConcurrentCount
        ?failureTolerancePercentage ?failureToleranceCount ?regionOrder
        ?regionConcurrencyType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user-specified preferences for how CloudFormation performs a StackSet operation. For more information about maximum concurrent accounts and failure tolerance, see StackSet operation options. StackSetOperationPreferences don't apply to AutoDeployment, even if it's enabled."]
module StackSetOperationStatus =
  struct
    type nonrec t =
      | RUNNING 
      | SUCCEEDED 
      | FAILED 
      | STOPPING 
      | STOPPED 
      | QUEUED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | QUEUED -> "QUEUED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "QUEUED" -> QUEUED
      | 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 StackSetOperationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackSetOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module StackSetOperationStatusDetails =
  struct
    type nonrec t =
      {
      failedStackInstancesCount: FailedStackInstancesCount.t option
        [@ocaml.doc
          "The number of stack instances for which the StackSet operation failed."]}
    let make ?failedStackInstancesCount =
      fun () -> { failedStackInstancesCount }
    let to_value x =
      structure_to_value
        [("FailedStackInstancesCount",
           (Option.map x.failedStackInstancesCount
              ~f:FailedStackInstancesCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedStackInstancesCount =
        (Option.map ~f:FailedStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "FailedStackInstancesCount") in
      make ?failedStackInstancesCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedStackInstancesCount =
        field_map json__ "FailedStackInstancesCount"
          FailedStackInstancesCount.of_json in
      make ?failedStackInstancesCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information about the StackSet operation."]
module StackSetOperationStatusReason =
  struct
    type nonrec t = string
    let context_ = "StackSetOperationStatusReason"
    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:"StackSetOperationStatusReason" j
    let to_json = simple_to_json to_value
  end
module AccountGateResult =
  struct
    type nonrec t =
      {
      status: AccountGateStatus.t option
        [@ocaml.doc
          "The status of the account gate function. SUCCEEDED: The account gate function has determined that the account and Region passes any requirements for a StackSet operation to occur. CloudFormation proceeds with the stack operation in that account and Region. FAILED: The account gate function has determined that the account and Region doesn't meet the requirements for a StackSet operation to occur. CloudFormation cancels the StackSet operation in that account and Region, and sets the StackSet operation result status for that account and Region to FAILED. SKIPPED: CloudFormation has skipped calling the account gate function for this account and Region, for one of the following reasons: An account gate function hasn't been specified for the account and Region. CloudFormation proceeds with the StackSet operation in this account and Region. The AWSCloudFormationStackSetExecutionRole of the administration account lacks permissions to invoke the function. CloudFormation proceeds with the StackSet operation in this account and Region. Either no action is necessary, or no action is possible, on the stack. CloudFormation skips the StackSet operation in this account and Region."];
      statusReason: AccountGateStatusReason.t option
        [@ocaml.doc
          "The reason for the account gate status assigned to this account and Region for the StackSet operation."]}
    let make ?status =
      fun ?statusReason -> fun () -> { status; statusReason }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:AccountGateStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:AccountGateStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:AccountGateStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:AccountGateStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?statusReason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason =
        field_map json__ "StatusReason" AccountGateStatusReason.of_json in
      let status = field_map json__ "Status" AccountGateStatus.of_json in
      make ?statusReason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Structure that contains the results of the account gate function which CloudFormation invokes, if present, before proceeding with a StackSet operation in an account and Region. For each account and Region, CloudFormation lets you specify a Lambda function that encapsulates any requirements that must be met before CloudFormation can proceed with a StackSet operation in that account and Region. CloudFormation invokes the function each time a StackSet operation is requested for that account and Region; if the function returns FAILED, CloudFormation cancels the operation in that account and Region, and sets the StackSet operation result status for that account and Region to FAILED. For more information, see Prevent failed StackSets deployments using target account gates in the CloudFormation User Guide."]
module Reason =
  struct
    type nonrec t = string
    let context_ = "Reason"
    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:"Reason" j
    let to_json = simple_to_json to_value
  end
module StackSetOperationResultStatus =
  struct
    type nonrec t =
      | PENDING 
      | RUNNING 
      | SUCCEEDED 
      | FAILED 
      | CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | CANCELLED -> "CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "CANCELLED" -> CANCELLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration StackSetOperationResultStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackSetOperationResultStatus" j)
    let to_json = simple_to_json to_value
  end
module OperationResultFilterName =
  struct
    type nonrec t =
      | OPERATION_RESULT_STATUS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OPERATION_RESULT_STATUS -> "OPERATION_RESULT_STATUS"
      | Non_static_id s -> s
    let of_string =
      function
      | "OPERATION_RESULT_STATUS" -> OPERATION_RESULT_STATUS
      | 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 OperationResultFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OperationResultFilterName" j)
    let to_json = simple_to_json to_value
  end
module OperationResultFilterValues =
  struct
    type nonrec t = string
    let context_ = "OperationResultFilterValues"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:9) >>=
                  (fun () -> check_pattern i ~pattern:"^\\S{6,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:"OperationResultFilterValues" j
    let to_json = simple_to_json to_value
  end
module ResourceStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | CREATE_FAILED 
      | CREATE_COMPLETE 
      | DELETE_IN_PROGRESS 
      | DELETE_FAILED 
      | DELETE_COMPLETE 
      | DELETE_SKIPPED 
      | UPDATE_IN_PROGRESS 
      | UPDATE_FAILED 
      | UPDATE_COMPLETE 
      | IMPORT_FAILED 
      | IMPORT_COMPLETE 
      | IMPORT_IN_PROGRESS 
      | IMPORT_ROLLBACK_IN_PROGRESS 
      | IMPORT_ROLLBACK_FAILED 
      | IMPORT_ROLLBACK_COMPLETE 
      | EXPORT_FAILED 
      | EXPORT_COMPLETE 
      | EXPORT_IN_PROGRESS 
      | EXPORT_ROLLBACK_IN_PROGRESS 
      | EXPORT_ROLLBACK_FAILED 
      | EXPORT_ROLLBACK_COMPLETE 
      | UPDATE_ROLLBACK_IN_PROGRESS 
      | UPDATE_ROLLBACK_COMPLETE 
      | UPDATE_ROLLBACK_FAILED 
      | ROLLBACK_IN_PROGRESS 
      | ROLLBACK_COMPLETE 
      | ROLLBACK_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_FAILED -> "DELETE_FAILED"
      | DELETE_COMPLETE -> "DELETE_COMPLETE"
      | DELETE_SKIPPED -> "DELETE_SKIPPED"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | UPDATE_COMPLETE -> "UPDATE_COMPLETE"
      | IMPORT_FAILED -> "IMPORT_FAILED"
      | IMPORT_COMPLETE -> "IMPORT_COMPLETE"
      | IMPORT_IN_PROGRESS -> "IMPORT_IN_PROGRESS"
      | IMPORT_ROLLBACK_IN_PROGRESS -> "IMPORT_ROLLBACK_IN_PROGRESS"
      | IMPORT_ROLLBACK_FAILED -> "IMPORT_ROLLBACK_FAILED"
      | IMPORT_ROLLBACK_COMPLETE -> "IMPORT_ROLLBACK_COMPLETE"
      | EXPORT_FAILED -> "EXPORT_FAILED"
      | EXPORT_COMPLETE -> "EXPORT_COMPLETE"
      | EXPORT_IN_PROGRESS -> "EXPORT_IN_PROGRESS"
      | EXPORT_ROLLBACK_IN_PROGRESS -> "EXPORT_ROLLBACK_IN_PROGRESS"
      | EXPORT_ROLLBACK_FAILED -> "EXPORT_ROLLBACK_FAILED"
      | EXPORT_ROLLBACK_COMPLETE -> "EXPORT_ROLLBACK_COMPLETE"
      | UPDATE_ROLLBACK_IN_PROGRESS -> "UPDATE_ROLLBACK_IN_PROGRESS"
      | UPDATE_ROLLBACK_COMPLETE -> "UPDATE_ROLLBACK_COMPLETE"
      | UPDATE_ROLLBACK_FAILED -> "UPDATE_ROLLBACK_FAILED"
      | ROLLBACK_IN_PROGRESS -> "ROLLBACK_IN_PROGRESS"
      | ROLLBACK_COMPLETE -> "ROLLBACK_COMPLETE"
      | ROLLBACK_FAILED -> "ROLLBACK_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_FAILED" -> DELETE_FAILED
      | "DELETE_COMPLETE" -> DELETE_COMPLETE
      | "DELETE_SKIPPED" -> DELETE_SKIPPED
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "UPDATE_COMPLETE" -> UPDATE_COMPLETE
      | "IMPORT_FAILED" -> IMPORT_FAILED
      | "IMPORT_COMPLETE" -> IMPORT_COMPLETE
      | "IMPORT_IN_PROGRESS" -> IMPORT_IN_PROGRESS
      | "IMPORT_ROLLBACK_IN_PROGRESS" -> IMPORT_ROLLBACK_IN_PROGRESS
      | "IMPORT_ROLLBACK_FAILED" -> IMPORT_ROLLBACK_FAILED
      | "IMPORT_ROLLBACK_COMPLETE" -> IMPORT_ROLLBACK_COMPLETE
      | "EXPORT_FAILED" -> EXPORT_FAILED
      | "EXPORT_COMPLETE" -> EXPORT_COMPLETE
      | "EXPORT_IN_PROGRESS" -> EXPORT_IN_PROGRESS
      | "EXPORT_ROLLBACK_IN_PROGRESS" -> EXPORT_ROLLBACK_IN_PROGRESS
      | "EXPORT_ROLLBACK_FAILED" -> EXPORT_ROLLBACK_FAILED
      | "EXPORT_ROLLBACK_COMPLETE" -> EXPORT_ROLLBACK_COMPLETE
      | "UPDATE_ROLLBACK_IN_PROGRESS" -> UPDATE_ROLLBACK_IN_PROGRESS
      | "UPDATE_ROLLBACK_COMPLETE" -> UPDATE_ROLLBACK_COMPLETE
      | "UPDATE_ROLLBACK_FAILED" -> UPDATE_ROLLBACK_FAILED
      | "ROLLBACK_IN_PROGRESS" -> ROLLBACK_IN_PROGRESS
      | "ROLLBACK_COMPLETE" -> ROLLBACK_COMPLETE
      | "ROLLBACK_FAILED" -> ROLLBACK_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 ResourceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceStatusReason =
  struct
    type nonrec t = string
    let context_ = "ResourceStatusReason"
    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:"ResourceStatusReason" j
    let to_json = simple_to_json to_value
  end
module StackResourceDriftInformationSummary =
  struct
    type nonrec t =
      {
      stackResourceDriftStatus: StackResourceDriftStatus.t option
        [@ocaml.doc
          "Status of the resource's actual configuration compared to its expected configuration. DELETED: The resource differs from its expected configuration in that it has been deleted. MODIFIED: The resource differs from its expected configuration. NOT_CHECKED: CloudFormation hasn't checked if the resource differs from its expected configuration. Any resources that don't currently support drift detection have a status of NOT_CHECKED. For more information, see Resource type support for imports and drift detection. If you performed an ContinueUpdateRollback operation on a stack, any resources included in ResourcesToSkip will also have a status of NOT_CHECKED. For more information about skipping resources during rollback operations, see Continue rolling back an update in the CloudFormation User Guide. IN_SYNC: The resource's actual configuration matches its expected configuration."];
      lastCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "When CloudFormation last checked if the resource had drifted from its expected configuration."]}
    let make ?stackResourceDriftStatus =
      fun ?lastCheckTimestamp ->
        fun () -> { stackResourceDriftStatus; lastCheckTimestamp }
    let to_value x =
      structure_to_value
        [("StackResourceDriftStatus",
           (Option.map x.stackResourceDriftStatus
              ~f:StackResourceDriftStatus.to_value));
        ("LastCheckTimestamp",
          (Option.map x.lastCheckTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastCheckTimestamp") in
      let stackResourceDriftStatus =
        (Option.map ~f:StackResourceDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackResourceDriftStatus") in
      make ?lastCheckTimestamp ?stackResourceDriftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastCheckTimestamp =
        field_map json__ "LastCheckTimestamp" Timestamp.of_json in
      let stackResourceDriftStatus =
        field_map json__ "StackResourceDriftStatus"
          StackResourceDriftStatus.of_json in
      make ?lastCheckTimestamp ?stackResourceDriftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summarizes information about whether the resource's actual configuration differs, or has drifted, from its expected configuration."]
module ExecutionStatusReason =
  struct
    type nonrec t = string
    let context_ = "ExecutionStatusReason"
    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:"ExecutionStatusReason" j
    let to_json = simple_to_json to_value
  end
module StackRefactorExecutionStatus =
  struct
    type nonrec t =
      | UNAVAILABLE 
      | AVAILABLE 
      | OBSOLETE 
      | EXECUTE_IN_PROGRESS 
      | EXECUTE_COMPLETE 
      | EXECUTE_FAILED 
      | ROLLBACK_IN_PROGRESS 
      | ROLLBACK_COMPLETE 
      | ROLLBACK_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNAVAILABLE -> "UNAVAILABLE"
      | AVAILABLE -> "AVAILABLE"
      | OBSOLETE -> "OBSOLETE"
      | EXECUTE_IN_PROGRESS -> "EXECUTE_IN_PROGRESS"
      | EXECUTE_COMPLETE -> "EXECUTE_COMPLETE"
      | EXECUTE_FAILED -> "EXECUTE_FAILED"
      | ROLLBACK_IN_PROGRESS -> "ROLLBACK_IN_PROGRESS"
      | ROLLBACK_COMPLETE -> "ROLLBACK_COMPLETE"
      | ROLLBACK_FAILED -> "ROLLBACK_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNAVAILABLE" -> UNAVAILABLE
      | "AVAILABLE" -> AVAILABLE
      | "OBSOLETE" -> OBSOLETE
      | "EXECUTE_IN_PROGRESS" -> EXECUTE_IN_PROGRESS
      | "EXECUTE_COMPLETE" -> EXECUTE_COMPLETE
      | "EXECUTE_FAILED" -> EXECUTE_FAILED
      | "ROLLBACK_IN_PROGRESS" -> ROLLBACK_IN_PROGRESS
      | "ROLLBACK_COMPLETE" -> ROLLBACK_COMPLETE
      | "ROLLBACK_FAILED" -> ROLLBACK_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 StackRefactorExecutionStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackRefactorExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module StackRefactorId =
  struct
    type nonrec t = string
    let context_ = "StackRefactorId"
    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:"StackRefactorId" j
    let to_json = simple_to_json to_value
  end
module StackRefactorStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | CREATE_COMPLETE 
      | CREATE_FAILED 
      | DELETE_IN_PROGRESS 
      | DELETE_COMPLETE 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_COMPLETE -> "DELETE_COMPLETE"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_COMPLETE" -> DELETE_COMPLETE
      | "DELETE_FAILED" -> DELETE_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 StackRefactorStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackRefactorStatus" j)
    let to_json = simple_to_json to_value
  end
module StackRefactorStatusReason =
  struct
    type nonrec t = string
    let context_ = "StackRefactorStatusReason"
    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:"StackRefactorStatusReason" j
    let to_json = simple_to_json to_value
  end
module DetectionReason =
  struct
    type nonrec t = string
    let context_ = "DetectionReason"
    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:"DetectionReason" j
    let to_json = simple_to_json to_value
  end
module ResourceMapping =
  struct
    type nonrec t =
      {
      source: ResourceLocation.t
        [@ocaml.doc
          "The source stack StackName and LogicalResourceId for the resource being refactored."];
      destination: ResourceLocation.t
        [@ocaml.doc
          "The destination stack StackName and LogicalResourceId for the resource being refactored."]}
    let context_ = "ResourceMapping"
    let make ~source = fun ~destination -> fun () -> { source; destination }
    let to_value x =
      structure_to_value
        [("Source", (Some (ResourceLocation.to_value x.source)));
        ("Destination", (Some (ResourceLocation.to_value x.destination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        ResourceLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      let source =
        ResourceLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Source") in
      make ~destination ~source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination =
        field_map_exn json__ "Destination" ResourceLocation.of_json in
      let source = field_map_exn json__ "Source" ResourceLocation.of_json in
      make ~destination ~source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the current source of the resource and the destination of where it will be moved to."]
module StackRefactorActionEntity =
  struct
    type nonrec t =
      | RESOURCE 
      | STACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE -> "RESOURCE"
      | STACK -> "STACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE" -> RESOURCE
      | "STACK" -> STACK
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration StackRefactorActionEntity" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackRefactorActionEntity" j)
    let to_json = simple_to_json to_value
  end
module StackRefactorActionType =
  struct
    type nonrec t =
      | MOVE 
      | CREATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | MOVE -> "MOVE" | CREATE -> "CREATE" | Non_static_id s -> s
    let of_string =
      function | "MOVE" -> MOVE | "CREATE" -> CREATE | 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 StackRefactorActionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackRefactorActionType" j)
    let to_json = simple_to_json to_value
  end
module StackRefactorDetection =
  struct
    type nonrec t =
      | AUTO 
      | MANUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AUTO -> "AUTO" | MANUAL -> "MANUAL" | Non_static_id s -> s
    let of_string =
      function | "AUTO" -> AUTO | "MANUAL" -> MANUAL | 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 StackRefactorDetection" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackRefactorDetection" j)
    let to_json = simple_to_json to_value
  end
module StackRefactorResourceIdentifier =
  struct
    type nonrec t = string
    let context_ = "StackRefactorResourceIdentifier"
    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:"StackRefactorResourceIdentifier" j
    let to_json = simple_to_json to_value
  end
module StackRefactorTagResources =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j =
      list_of_json ~kind:"StackRefactorTagResources" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackRefactorUntagResources =
  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:"StackRefactorUntagResources"
        ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackInstanceComprehensiveStatus =
  struct
    type nonrec t =
      {
      detailedStatus: StackInstanceDetailedStatus.t option
        [@ocaml.doc
          "CANCELLED: The operation in the specified account and Region has been canceled. This is either because a user has stopped the StackSet operation, or because the failure tolerance of the StackSet operation has been exceeded. FAILED: The operation in the specified account and Region failed. If the StackSet operation fails in enough accounts within a Region, the failure tolerance for the StackSet operation as a whole might be exceeded. FAILED_IMPORT: The import of the stack instance in the specified account and Region failed and left the stack in an unstable state. Once the issues causing the failure are fixed, the import operation can be retried. If enough StackSet operations fail in enough accounts within a Region, the failure tolerance for the StackSet operation as a whole might be exceeded. INOPERABLE: A DeleteStackInstances operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further UpdateStackSet operations. You might need to perform a DeleteStackInstances operation, with RetainStacks set to true, to delete the stack instance, and then delete the stack manually. PENDING: The operation in the specified account and Region has yet to start. RUNNING: The operation in the specified account and Region is currently in progress. SKIPPED_SUSPENDED_ACCOUNT: The operation in the specified account and Region has been skipped because the account was suspended at the time of the operation. SUCCEEDED: The operation in the specified account and Region completed successfully."]}
    let make ?detailedStatus = fun () -> { detailedStatus }
    let to_value x =
      structure_to_value
        [("DetailedStatus",
           (Option.map x.detailedStatus
              ~f:StackInstanceDetailedStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detailedStatus =
        (Option.map ~f:StackInstanceDetailedStatus.of_xml)
          (Xml.child xml_arg0 "DetailedStatus") in
      make ?detailedStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detailedStatus =
        field_map json__ "DetailedStatus" StackInstanceDetailedStatus.of_json in
      make ?detailedStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The detailed status of the stack instance."]
module StackInstanceStatus =
  struct
    type nonrec t =
      | CURRENT 
      | OUTDATED 
      | INOPERABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CURRENT -> "CURRENT"
      | OUTDATED -> "OUTDATED"
      | INOPERABLE -> "INOPERABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CURRENT" -> CURRENT
      | "OUTDATED" -> OUTDATED
      | "INOPERABLE" -> INOPERABLE
      | 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 StackInstanceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackInstanceStatus" j)
    let to_json = simple_to_json to_value
  end
module StackInstanceFilterName =
  struct
    type nonrec t =
      | DETAILED_STATUS 
      | LAST_OPERATION_ID 
      | DRIFT_STATUS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DETAILED_STATUS -> "DETAILED_STATUS"
      | LAST_OPERATION_ID -> "LAST_OPERATION_ID"
      | DRIFT_STATUS -> "DRIFT_STATUS"
      | Non_static_id s -> s
    let of_string =
      function
      | "DETAILED_STATUS" -> DETAILED_STATUS
      | "LAST_OPERATION_ID" -> LAST_OPERATION_ID
      | "DRIFT_STATUS" -> DRIFT_STATUS
      | 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 StackInstanceFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackInstanceFilterName" j)
    let to_json = simple_to_json to_value
  end
module StackInstanceFilterValues =
  struct
    type nonrec t = string
    let context_ = "StackInstanceFilterValues"
    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:"^\\S{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:"StackInstanceFilterValues" j
    let to_json = simple_to_json to_value
  end
module PhysicalResourceIdContext =
  struct
    type nonrec t = PhysicalResourceIdContextKeyValuePair.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhysicalResourceIdContextKeyValuePair.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:PhysicalResourceIdContextKeyValuePair.of_xml)
    let of_json j =
      list_of_json ~kind:"PhysicalResourceIdContext"
        ~of_json:PhysicalResourceIdContextKeyValuePair.of_json j
    let to_json v = composed_to_json to_value v
  end
module PropertyDifferences =
  struct
    type nonrec t = PropertyDifference.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:PropertyDifference.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:PropertyDifference.of_xml)
    let of_json j =
      list_of_json ~kind:"PropertyDifferences"
        ~of_json:PropertyDifference.of_json j
    let to_json v = composed_to_json to_value v
  end
module PercentageCompleted =
  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 ResourceScanId =
  struct
    type nonrec t = string
    let context_ = "ResourceScanId"
    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:"ResourceScanId" j
    let to_json = simple_to_json to_value
  end
module ResourceScanStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | FAILED 
      | COMPLETE 
      | EXPIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | COMPLETE -> "COMPLETE"
      | EXPIRED -> "EXPIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "COMPLETE" -> COMPLETE
      | "EXPIRED" -> EXPIRED
      | 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 ResourceScanStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceScanStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceScanStatusReason =
  struct
    type nonrec t = string
    let context_ = "ResourceScanStatusReason"
    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:"ResourceScanStatusReason" j
    let to_json = simple_to_json to_value
  end
module ScanType =
  struct
    type nonrec t =
      | FULL 
      | PARTIAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FULL -> "FULL" | PARTIAL -> "PARTIAL" | Non_static_id s -> s
    let of_string =
      function | "FULL" -> FULL | "PARTIAL" -> PARTIAL | 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 ScanType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ScanType" j)
    let to_json = simple_to_json to_value
  end
module JazzResourceIdentifierProperties =
  struct
    type nonrec t =
      (JazzResourceIdentifierPropertyKey.t *
        JazzResourceIdentifierPropertyValue.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 ->
                            ((JazzResourceIdentifierPropertyKey.of_string
                                chopped),
                              (JazzResourceIdentifierPropertyValue.of_string
                                 v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (JazzResourceIdentifierPropertyKey.to_value x) |>
                    (fun x ->
                       (JazzResourceIdentifierPropertyValue.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:JazzResourceIdentifierPropertyKey.of_string
        ~of_json:JazzResourceIdentifierPropertyValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ManagedByStack =
  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 HookFailureMode =
  struct
    type nonrec t =
      | FAIL 
      | WARN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FAIL -> "FAIL" | WARN -> "WARN" | Non_static_id s -> s
    let of_string =
      function | "FAIL" -> FAIL | "WARN" -> WARN | 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 HookFailureMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HookFailureMode" j)
    let to_json = simple_to_json to_value
  end
module HookInvocationId =
  struct
    type nonrec t = string
    let context_ = "HookInvocationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"HookInvocationId" j
    let to_json = simple_to_json to_value
  end
module HookInvocationPoint =
  struct
    type nonrec t =
      | PRE_PROVISION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | PRE_PROVISION -> "PRE_PROVISION" | Non_static_id s -> s
    let of_string =
      function | "PRE_PROVISION" -> PRE_PROVISION | 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 HookInvocationPoint" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HookInvocationPoint" j)
    let to_json = simple_to_json to_value
  end
module HookResultId =
  struct
    type nonrec t = string
    let context_ = "HookResultId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z][-a-zA-Z0-9]*|arn:[-a-zA-Z0-9:/]*|^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"HookResultId" j
    let to_json = simple_to_json to_value
  end
module HookStatus =
  struct
    type nonrec t =
      | HOOK_IN_PROGRESS 
      | HOOK_COMPLETE_SUCCEEDED 
      | HOOK_COMPLETE_FAILED 
      | HOOK_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HOOK_IN_PROGRESS -> "HOOK_IN_PROGRESS"
      | HOOK_COMPLETE_SUCCEEDED -> "HOOK_COMPLETE_SUCCEEDED"
      | HOOK_COMPLETE_FAILED -> "HOOK_COMPLETE_FAILED"
      | HOOK_FAILED -> "HOOK_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "HOOK_IN_PROGRESS" -> HOOK_IN_PROGRESS
      | "HOOK_COMPLETE_SUCCEEDED" -> HOOK_COMPLETE_SUCCEEDED
      | "HOOK_COMPLETE_FAILED" -> HOOK_COMPLETE_FAILED
      | "HOOK_FAILED" -> HOOK_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 HookStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HookStatus" j)
    let to_json = simple_to_json to_value
  end
module HookStatusReason =
  struct
    type nonrec t = string
    let context_ = "HookStatusReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HookStatusReason" j
    let to_json = simple_to_json to_value
  end
module HookTypeArn =
  struct
    type nonrec t = string
    let context_ = "HookTypeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[A-Za-z0-9-]{0,64}:cloudformation:[A-Za-z0-9-]{1,64}:([0-9]{12})?:type/hook/[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:"HookTypeArn" j
    let to_json = simple_to_json to_value
  end
module HookTypeConfigurationVersionId =
  struct
    type nonrec t = string
    let context_ = "HookTypeConfigurationVersionId"
    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-]+")));
        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:"HookTypeConfigurationVersionId" j
    let to_json = simple_to_json to_value
  end
module HookTypeName =
  struct
    type nonrec t = string
    let context_ = "HookTypeName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:196) >>=
             (fun () -> check_string_min i ~min:10));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HookTypeName" j
    let to_json = simple_to_json to_value
  end
module HookTypeVersionId =
  struct
    type nonrec t = string
    let context_ = "HookTypeVersionId"
    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-]+")));
        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:"HookTypeVersionId" j
    let to_json = simple_to_json to_value
  end
module ListHookResultsTargetType =
  struct
    type nonrec t =
      | CHANGE_SET 
      | STACK 
      | RESOURCE 
      | CLOUD_CONTROL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CHANGE_SET -> "CHANGE_SET"
      | STACK -> "STACK"
      | RESOURCE -> "RESOURCE"
      | CLOUD_CONTROL -> "CLOUD_CONTROL"
      | Non_static_id s -> s
    let of_string =
      function
      | "CHANGE_SET" -> CHANGE_SET
      | "STACK" -> STACK
      | "RESOURCE" -> RESOURCE
      | "CLOUD_CONTROL" -> CLOUD_CONTROL
      | 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 ListHookResultsTargetType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListHookResultsTargetType" j)
    let to_json = simple_to_json to_value
  end
module GeneratedTemplateId =
  struct
    type nonrec t = string
    let context_ = "GeneratedTemplateId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GeneratedTemplateId" j
    let to_json = simple_to_json to_value
  end
module GeneratedTemplateName =
  struct
    type nonrec t = string
    let context_ = "GeneratedTemplateName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GeneratedTemplateName" j
    let to_json = simple_to_json to_value
  end
module GeneratedTemplateStatus =
  struct
    type nonrec t =
      | CREATE_PENDING 
      | UPDATE_PENDING 
      | DELETE_PENDING 
      | CREATE_IN_PROGRESS 
      | UPDATE_IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | FAILED 
      | COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_PENDING -> "CREATE_PENDING"
      | UPDATE_PENDING -> "UPDATE_PENDING"
      | DELETE_PENDING -> "DELETE_PENDING"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | FAILED -> "FAILED"
      | COMPLETE -> "COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_PENDING" -> CREATE_PENDING
      | "UPDATE_PENDING" -> UPDATE_PENDING
      | "DELETE_PENDING" -> DELETE_PENDING
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "FAILED" -> FAILED
      | "COMPLETE" -> COMPLETE
      | 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 GeneratedTemplateStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"GeneratedTemplateStatus" j)
    let to_json = simple_to_json to_value
  end
module NumberOfResources =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NumberOfResources" 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 TemplateStatusReason =
  struct
    type nonrec t = string
    let context_ = "TemplateStatusReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TemplateStatusReason" j
    let to_json = simple_to_json to_value
  end
module ExportValue =
  struct
    type nonrec t = string
    let context_ = "ExportValue"
    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:"ExportValue" j
    let to_json = simple_to_json to_value
  end
module ChangeSetName =
  struct
    type nonrec t = string
    let context_ = "ChangeSetName"
    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:"ChangeSetName" j
    let to_json = simple_to_json to_value
  end
module ChangeSetStatus =
  struct
    type nonrec t =
      | CREATE_PENDING 
      | CREATE_IN_PROGRESS 
      | CREATE_COMPLETE 
      | DELETE_PENDING 
      | DELETE_IN_PROGRESS 
      | DELETE_COMPLETE 
      | DELETE_FAILED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_PENDING -> "CREATE_PENDING"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | DELETE_PENDING -> "DELETE_PENDING"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_COMPLETE -> "DELETE_COMPLETE"
      | DELETE_FAILED -> "DELETE_FAILED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_PENDING" -> CREATE_PENDING
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "DELETE_PENDING" -> DELETE_PENDING
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_COMPLETE" -> DELETE_COMPLETE
      | "DELETE_FAILED" -> DELETE_FAILED
      | "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 ChangeSetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeSetStatus" j)
    let to_json = simple_to_json to_value
  end
module ChangeSetStatusReason =
  struct
    type nonrec t = string
    let context_ = "ChangeSetStatusReason"
    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:"ChangeSetStatusReason" j
    let to_json = simple_to_json to_value
  end
module ExecutionStatus =
  struct
    type nonrec t =
      | UNAVAILABLE 
      | AVAILABLE 
      | EXECUTE_IN_PROGRESS 
      | EXECUTE_COMPLETE 
      | EXECUTE_FAILED 
      | OBSOLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNAVAILABLE -> "UNAVAILABLE"
      | AVAILABLE -> "AVAILABLE"
      | EXECUTE_IN_PROGRESS -> "EXECUTE_IN_PROGRESS"
      | EXECUTE_COMPLETE -> "EXECUTE_COMPLETE"
      | EXECUTE_FAILED -> "EXECUTE_FAILED"
      | OBSOLETE -> "OBSOLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNAVAILABLE" -> UNAVAILABLE
      | "AVAILABLE" -> AVAILABLE
      | "EXECUTE_IN_PROGRESS" -> EXECUTE_IN_PROGRESS
      | "EXECUTE_COMPLETE" -> EXECUTE_COMPLETE
      | "EXECUTE_FAILED" -> EXECUTE_FAILED
      | "OBSOLETE" -> OBSOLETE
      | 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 ExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module ImportExistingResources =
  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 IncludeNestedStacks =
  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 ParameterConstraints =
  struct
    type nonrec t =
      {
      allowedValues: AllowedValues.t option
        [@ocaml.doc "A list of values that are permitted for a parameter."]}
    let make ?allowedValues = fun () -> { allowedValues }
    let to_value x =
      structure_to_value
        [("AllowedValues",
           (Option.map x.allowedValues ~f:AllowedValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedValues =
        (Option.map ~f:AllowedValues.of_xml)
          (Xml.child xml_arg0 "AllowedValues") in
      make ?allowedValues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedValues =
        field_map json__ "AllowedValues" AllowedValues.of_json in
      make ?allowedValues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of criteria that CloudFormation uses to validate parameter values. Although other constraints might be defined in the stack template, CloudFormation returns only the AllowedValues property."]
module ParameterType =
  struct
    type nonrec t = string
    let context_ = "ParameterType"
    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:"ParameterType" j
    let to_json = simple_to_json to_value
  end
module LogicalResourceIds =
  struct
    type nonrec t = LogicalResourceId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LogicalResourceId.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:LogicalResourceId.of_xml)
    let of_json j =
      list_of_json ~kind:"LogicalResourceIds"
        ~of_json:LogicalResourceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceIdentifiers =
  struct
    type nonrec t = ResourceIdentifierPropertyKey.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:ResourceIdentifierPropertyKey.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:ResourceIdentifierPropertyKey.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceIdentifiers"
        ~of_json:ResourceIdentifierPropertyKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnnotationName =
  struct
    type nonrec t = string
    let context_ = "AnnotationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AnnotationName" j
    let to_json = simple_to_json to_value
  end
module AnnotationRemediationLink =
  struct
    type nonrec t = string
    let context_ = "AnnotationRemediationLink"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5120) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AnnotationRemediationLink" j
    let to_json = simple_to_json to_value
  end
module AnnotationSeverityLevel =
  struct
    type nonrec t =
      | INFORMATIONAL 
      | LOW 
      | MEDIUM 
      | HIGH 
      | CRITICAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INFORMATIONAL -> "INFORMATIONAL"
      | LOW -> "LOW"
      | MEDIUM -> "MEDIUM"
      | HIGH -> "HIGH"
      | CRITICAL -> "CRITICAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "INFORMATIONAL" -> INFORMATIONAL
      | "LOW" -> LOW
      | "MEDIUM" -> MEDIUM
      | "HIGH" -> HIGH
      | "CRITICAL" -> CRITICAL
      | 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 AnnotationSeverityLevel" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AnnotationSeverityLevel" j)
    let to_json = simple_to_json to_value
  end
module AnnotationStatus =
  struct
    type nonrec t =
      | PASSED 
      | FAILED 
      | SKIPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASSED -> "PASSED"
      | FAILED -> "FAILED"
      | SKIPPED -> "SKIPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASSED" -> PASSED
      | "FAILED" -> FAILED
      | "SKIPPED" -> SKIPPED
      | 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 AnnotationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AnnotationStatus" j)
    let to_json = simple_to_json to_value
  end
module RemediationMessageRemediationMessage =
  struct
    type nonrec t = string
    let context_ = "RemediationMessageRemediationMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"RemediationMessageRemediationMessage" j
    let to_json = simple_to_json to_value
  end
module RemediationMessageStatusMessage =
  struct
    type nonrec t = string
    let context_ = "RemediationMessageStatusMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RemediationMessageStatusMessage" j
    let to_json = simple_to_json to_value
  end
module SupportedMajorVersions =
  struct
    type nonrec t = SupportedMajorVersion.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:SupportedMajorVersion.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:SupportedMajorVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedMajorVersions"
        ~of_json:SupportedMajorVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module Capabilities =
  struct
    type nonrec t = Capability.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:Capability.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:Capability.of_xml)
    let of_json j =
      list_of_json ~kind:"Capabilities" ~of_json:Capability.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeletionMode =
  struct
    type nonrec t =
      | STANDARD 
      | FORCE_DELETE_STACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | FORCE_DELETE_STACK -> "FORCE_DELETE_STACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "FORCE_DELETE_STACK" -> FORCE_DELETE_STACK
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DeletionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeletionMode" j)
    let to_json = simple_to_json to_value
  end
module DetailedStatus =
  struct
    type nonrec t =
      | CONFIGURATION_COMPLETE 
      | VALIDATION_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONFIGURATION_COMPLETE -> "CONFIGURATION_COMPLETE"
      | VALIDATION_FAILED -> "VALIDATION_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONFIGURATION_COMPLETE" -> CONFIGURATION_COMPLETE
      | "VALIDATION_FAILED" -> VALIDATION_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 DetailedStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DetailedStatus" j)
    let to_json = simple_to_json to_value
  end
module DisableRollback =
  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 EnableTerminationProtection =
  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 NotificationARNs =
  struct
    type nonrec t = NotificationARN.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NotificationARN.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:NotificationARN.of_xml)
    let of_json j =
      list_of_json ~kind:"NotificationARNs" ~of_json:NotificationARN.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Outputs =
  struct
    type nonrec t = Output.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:Output.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:Output.of_xml)
    let of_json j = list_of_json ~kind:"Outputs" ~of_json:Output.of_json j
    let to_json v = composed_to_json to_value v
  end
module Parameters =
  struct
    type nonrec t = Parameter.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:Parameter.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:Parameter.of_xml)
    let of_json j =
      list_of_json ~kind:"Parameters" ~of_json:Parameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RetainExceptOnCreate =
  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 RoleARN =
  struct
    type nonrec t = string
    let context_ = "RoleARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:20));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleARN" j
    let to_json = simple_to_json to_value
  end
module RollbackConfiguration =
  struct
    type nonrec t =
      {
      rollbackTriggers: RollbackTriggers.t option
        [@ocaml.doc
          "The triggers to monitor during stack creation or update actions. By default, CloudFormation saves the rollback triggers specified for a stack and applies them to any subsequent update operations for the stack, unless you specify otherwise. If you do specify rollback triggers for this parameter, those triggers replace any list of triggers previously specified for the stack. This means: To use the rollback triggers previously specified for this stack, if any, don't specify this parameter. To specify new or updated rollback triggers, you must specify all the triggers that you want used for this stack, even triggers you've specified before (for example, when creating the stack or during a previous stack update). Any triggers that you don't include in the updated list of triggers are no longer applied to the stack. To remove all currently specified triggers, specify an empty list for this parameter. If a specified trigger is missing, the entire stack operation fails and is rolled back."];
      monitoringTimeInMinutes: MonitoringTimeInMinutes.t option
        [@ocaml.doc
          "The amount of time, in minutes, during which CloudFormation should monitor all the rollback triggers after the stack creation or update operation deploys all necessary resources. The default is 0 minutes. If you specify a monitoring period but don't specify any rollback triggers, CloudFormation still waits the specified period of time before cleaning up old resources after update operations. You can use this monitoring period to perform any manual stack validation desired, and manually cancel the stack creation or update (using CancelUpdateStack, for example) as necessary. If you specify 0 for this parameter, CloudFormation still monitors the specified rollback triggers during stack creation and update operations. Then, for update operations, it begins disposing of old resources immediately once the operation completes."]}
    let make ?rollbackTriggers =
      fun ?monitoringTimeInMinutes ->
        fun () -> { rollbackTriggers; monitoringTimeInMinutes }
    let to_value x =
      structure_to_value
        [("RollbackTriggers",
           (Option.map x.rollbackTriggers ~f:RollbackTriggers.to_value));
        ("MonitoringTimeInMinutes",
          (Option.map x.monitoringTimeInMinutes
             ~f:MonitoringTimeInMinutes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monitoringTimeInMinutes =
        (Option.map ~f:MonitoringTimeInMinutes.of_xml)
          (Xml.child xml_arg0 "MonitoringTimeInMinutes") in
      let rollbackTriggers =
        (Option.map ~f:RollbackTriggers.of_xml)
          (Xml.child xml_arg0 "RollbackTriggers") in
      make ?monitoringTimeInMinutes ?rollbackTriggers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monitoringTimeInMinutes =
        field_map json__ "MonitoringTimeInMinutes"
          MonitoringTimeInMinutes.of_json in
      let rollbackTriggers =
        field_map json__ "RollbackTriggers" RollbackTriggers.of_json in
      make ?monitoringTimeInMinutes ?rollbackTriggers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Structure that contains the rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. Rollback triggers enable you to have CloudFormation monitor the state of your application during stack creation and updating, and to roll back that operation if the application breaches the threshold of any of the alarms you've specified. For more information, see Roll back your CloudFormation stack on alarm breach with rollback triggers."]
module StackDriftInformation =
  struct
    type nonrec t =
      {
      stackDriftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the stack's actual configuration compared to its expected template configuration. DRIFTED: The stack differs from its expected template configuration. A stack is considered to have drifted if one or more of its resources have drifted. NOT_CHECKED: CloudFormation hasn't checked if the stack differs from its expected template configuration. IN_SYNC: The stack's actual configuration matches its expected template configuration. UNKNOWN: CloudFormation could not run drift detection for a resource in the stack."];
      lastCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when a drift detection operation was initiated on the stack, or any of its individual resources that support drift detection."]}
    let make ?stackDriftStatus =
      fun ?lastCheckTimestamp ->
        fun () -> { stackDriftStatus; lastCheckTimestamp }
    let to_value x =
      structure_to_value
        [("StackDriftStatus",
           (Option.map x.stackDriftStatus ~f:StackDriftStatus.to_value));
        ("LastCheckTimestamp",
          (Option.map x.lastCheckTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastCheckTimestamp") in
      let stackDriftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackDriftStatus") in
      make ?lastCheckTimestamp ?stackDriftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastCheckTimestamp =
        field_map json__ "LastCheckTimestamp" Timestamp.of_json in
      let stackDriftStatus =
        field_map json__ "StackDriftStatus" StackDriftStatus.of_json in
      make ?lastCheckTimestamp ?stackDriftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about whether the stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. A stack is considered to have drifted if one or more of its resources have drifted."]
module Tags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimeoutMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for TimeoutMinutes" 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 DriftedStackInstancesCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DriftedStackInstancesCount"
           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 InProgressStackInstancesCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InProgressStackInstancesCount"
           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 InSyncStackInstancesCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InSyncStackInstancesCount"
           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 StackSetDriftDetectionStatus =
  struct
    type nonrec t =
      | COMPLETED 
      | FAILED 
      | PARTIAL_SUCCESS 
      | IN_PROGRESS 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | PARTIAL_SUCCESS -> "PARTIAL_SUCCESS"
      | IN_PROGRESS -> "IN_PROGRESS"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "PARTIAL_SUCCESS" -> PARTIAL_SUCCESS
      | "IN_PROGRESS" -> IN_PROGRESS
      | "STOPPED" -> STOPPED
      | 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 StackSetDriftDetectionStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackSetDriftDetectionStatus" j)
    let to_json = simple_to_json to_value
  end
module StackSetDriftStatus =
  struct
    type nonrec t =
      | DRIFTED 
      | IN_SYNC 
      | NOT_CHECKED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRIFTED -> "DRIFTED"
      | IN_SYNC -> "IN_SYNC"
      | NOT_CHECKED -> "NOT_CHECKED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRIFTED" -> DRIFTED
      | "IN_SYNC" -> IN_SYNC
      | "NOT_CHECKED" -> NOT_CHECKED
      | 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 StackSetDriftStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StackSetDriftStatus" j)
    let to_json = simple_to_json to_value
  end
module TotalStackInstancesCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for TotalStackInstancesCount"
           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 AccountFilterType =
  struct
    type nonrec t =
      | NONE 
      | INTERSECTION 
      | DIFFERENCE 
      | UNION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | INTERSECTION -> "INTERSECTION"
      | DIFFERENCE -> "DIFFERENCE"
      | UNION -> "UNION"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "INTERSECTION" -> INTERSECTION
      | "DIFFERENCE" -> DIFFERENCE
      | "UNION" -> UNION
      | 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 AccountFilterType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountFilterType" j)
    let to_json = simple_to_json to_value
  end
module AccountList =
  struct
    type nonrec t = Account.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:Account.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:Account.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountList" ~of_json:Account.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountsUrl =
  struct
    type nonrec t = string
    let context_ = "AccountsUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:5120) >>=
                  (fun () -> check_pattern i ~pattern:"(s3://|http(s?)://).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountsUrl" j
    let to_json = simple_to_json to_value
  end
module OrganizationalUnitIdList =
  struct
    type nonrec t = OrganizationalUnitId.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:OrganizationalUnitId.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:OrganizationalUnitId.of_xml)
    let of_json j =
      list_of_json ~kind:"OrganizationalUnitIdList"
        ~of_json:OrganizationalUnitId.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackResourceDriftInformation =
  struct
    type nonrec t =
      {
      stackResourceDriftStatus: StackResourceDriftStatus.t option
        [@ocaml.doc
          "Status of the resource's actual configuration compared to its expected configuration DELETED: The resource differs from its expected configuration in that it has been deleted. MODIFIED: The resource differs from its expected configuration. NOT_CHECKED: CloudFormation has not checked if the resource differs from its expected configuration. Any resources that do not currently support drift detection have a status of NOT_CHECKED. For more information, see Resource type support for imports and drift detection. IN_SYNC: The resource's actual configuration matches its expected configuration."];
      lastCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "When CloudFormation last checked if the resource had drifted from its expected configuration."]}
    let make ?stackResourceDriftStatus =
      fun ?lastCheckTimestamp ->
        fun () -> { stackResourceDriftStatus; lastCheckTimestamp }
    let to_value x =
      structure_to_value
        [("StackResourceDriftStatus",
           (Option.map x.stackResourceDriftStatus
              ~f:StackResourceDriftStatus.to_value));
        ("LastCheckTimestamp",
          (Option.map x.lastCheckTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastCheckTimestamp") in
      let stackResourceDriftStatus =
        (Option.map ~f:StackResourceDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackResourceDriftStatus") in
      make ?lastCheckTimestamp ?stackResourceDriftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastCheckTimestamp =
        field_map json__ "LastCheckTimestamp" Timestamp.of_json in
      let stackResourceDriftStatus =
        field_map json__ "StackResourceDriftStatus"
          StackResourceDriftStatus.of_json in
      make ?lastCheckTimestamp ?stackResourceDriftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about whether the resource's actual configuration differs, or has drifted, from its expected configuration."]
module Properties =
  struct
    type nonrec t = string
    let context_ = "Properties"
    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:"Properties" j
    let to_json = simple_to_json to_value
  end
module StackResourceDriftStatusReason =
  struct
    type nonrec t = string
    let context_ = "StackResourceDriftStatusReason"
    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:"StackResourceDriftStatusReason" j
    let to_json = simple_to_json to_value
  end
module EventId =
  struct
    type nonrec t = string
    let context_ = "EventId"
    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:"EventId" j
    let to_json = simple_to_json to_value
  end
module HookType =
  struct
    type nonrec t = string
    let context_ = "HookType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HookType" j
    let to_json = simple_to_json to_value
  end
module ResourceProperties =
  struct
    type nonrec t = string
    let context_ = "ResourceProperties"
    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:"ResourceProperties" j
    let to_json = simple_to_json to_value
  end
module GeneratedTemplateResourceStatus =
  struct
    type nonrec t =
      | PENDING 
      | IN_PROGRESS 
      | FAILED 
      | COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | COMPLETE -> "COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "COMPLETE" -> COMPLETE
      | 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 GeneratedTemplateResourceStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"GeneratedTemplateResourceStatus" j)
    let to_json = simple_to_json to_value
  end
module WarningDetails =
  struct
    type nonrec t = WarningDetail.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:WarningDetail.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:WarningDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"WarningDetails" ~of_json:WarningDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module BeaconStackOperationStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | SUCCEEDED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BeaconStackOperationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BeaconStackOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module EventType =
  struct
    type nonrec t =
      | STACK_EVENT 
      | PROGRESS_EVENT 
      | VALIDATION_ERROR 
      | PROVISIONING_ERROR 
      | HOOK_INVOCATION_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STACK_EVENT -> "STACK_EVENT"
      | PROGRESS_EVENT -> "PROGRESS_EVENT"
      | VALIDATION_ERROR -> "VALIDATION_ERROR"
      | PROVISIONING_ERROR -> "PROVISIONING_ERROR"
      | HOOK_INVOCATION_ERROR -> "HOOK_INVOCATION_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "STACK_EVENT" -> STACK_EVENT
      | "PROGRESS_EVENT" -> PROGRESS_EVENT
      | "VALIDATION_ERROR" -> VALIDATION_ERROR
      | "PROVISIONING_ERROR" -> PROVISIONING_ERROR
      | "HOOK_INVOCATION_ERROR" -> HOOK_INVOCATION_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 EventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventType" j)
    let to_json = simple_to_json to_value
  end
module ValidationName =
  struct
    type nonrec t = string
    let context_ = "ValidationName"
    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:"ValidationName" j
    let to_json = simple_to_json to_value
  end
module ValidationPath =
  struct
    type nonrec t = string
    let context_ = "ValidationPath"
    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:"ValidationPath" j
    let to_json = simple_to_json to_value
  end
module ValidationStatus =
  struct
    type nonrec t =
      | FAILED 
      | SKIPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAILED -> "FAILED"
      | SKIPPED -> "SKIPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAILED" -> FAILED
      | "SKIPPED" -> SKIPPED
      | 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 ValidationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ValidationStatus" j)
    let to_json = simple_to_json to_value
  end
module ValidationStatusReason =
  struct
    type nonrec t = string
    let context_ = "ValidationStatusReason"
    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:"ValidationStatusReason" j
    let to_json = simple_to_json to_value
  end
module ChangeType =
  struct
    type nonrec t =
      | Resource 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Resource -> "Resource" | Non_static_id s -> s
    let of_string = function | "Resource" -> Resource | 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 ChangeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeType" j)
    let to_json = simple_to_json to_value
  end
module HookInvocationCount =
  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 HookInvocationCount" 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 ResourceChange =
  struct
    type nonrec t =
      {
      policyAction: PolicyAction.t option
        [@ocaml.doc
          "The action that will be taken on the physical resource when the change set is executed. Delete The resource will be deleted. Retain The resource will be retained. Snapshot The resource will have a snapshot taken. ReplaceAndDelete The resource will be replaced and then deleted. ReplaceAndRetain The resource will be replaced and then retained. ReplaceAndSnapshot The resource will be replaced and then have a snapshot taken."];
      action: ChangeAction.t option
        [@ocaml.doc
          "The action that CloudFormation takes on the resource, such as Add (adds a new resource), Modify (changes a resource), Remove (deletes a resource), Import (imports a resource), Dynamic (exact action for the resource can't be determined), or SyncWithActual (resource will not be changed, only CloudFormation metadata will change)."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The resource's logical ID, which is defined in the stack's template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The resource's physical ID (resource name). Resources that you are adding don't have physical IDs because they haven't been created."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of CloudFormation resource, such as AWS::S3::Bucket."];
      replacement: Replacement.t option
        [@ocaml.doc
          "For the Modify action, indicates whether CloudFormation will replace the resource by creating a new one and deleting the old one. This value depends on the value of the RequiresRecreation property in the ResourceTargetDefinition structure. For example, if the RequiresRecreation field is Always and the Evaluation field is Static, Replacement is True. If the RequiresRecreation field is Always and the Evaluation field is Dynamic, Replacement is Conditional. If you have multiple changes with different RequiresRecreation values, the Replacement value depends on the change with the most impact. A RequiresRecreation value of Always has the most impact, followed by Conditional, and then Never."];
      scope: Scope.t option
        [@ocaml.doc
          "For the Modify action, indicates which resource attribute is triggering this update, such as a change in the resource attribute's Metadata, Properties, or Tags."];
      resourceDriftStatus: StackResourceDriftStatus.t option
        [@ocaml.doc
          "The drift status of the resource. Valid values: IN_SYNC \226\128\147 The resource matches its template definition. MODIFIED \226\128\147 Resource properties were modified outside CloudFormation. DELETED \226\128\147 The resource was deleted outside CloudFormation. NOT_CHECKED \226\128\147 CloudFormation doesn\226\128\153t currently return this value. UNKNOWN \226\128\147 Drift status could not be determined. UNSUPPORTED \226\128\147 Resource type does not support actual state comparison. Only present for drift-aware change sets."];
      resourceDriftIgnoredAttributes: ResourceDriftIgnoredAttributes.t option
        [@ocaml.doc
          "List of resource attributes for which drift was ignored."];
      details: ResourceChangeDetails.t option
        [@ocaml.doc
          "For the Modify action, a list of ResourceChangeDetail structures that describes the changes that CloudFormation will make to the resource."];
      changeSetId: ChangeSetId.t option
        [@ocaml.doc "The change set ID of the nested change set."];
      moduleInfo: ModuleInfo.t option
        [@ocaml.doc
          "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template."];
      beforeContext: BeforeContext.t option
        [@ocaml.doc
          "An encoded JSON string that contains the context of the resource before the change is executed."];
      afterContext: AfterContext.t option
        [@ocaml.doc
          "An encoded JSON string that contains the context of the resource after the change is executed."];
      previousDeploymentContext: PreviousDeploymentContext.t option
        [@ocaml.doc
          "Information about the resource's state from the previous CloudFormation deployment."]}
    let make ?policyAction =
      fun ?action ->
        fun ?logicalResourceId ->
          fun ?physicalResourceId ->
            fun ?resourceType ->
              fun ?replacement ->
                fun ?scope ->
                  fun ?resourceDriftStatus ->
                    fun ?resourceDriftIgnoredAttributes ->
                      fun ?details ->
                        fun ?changeSetId ->
                          fun ?moduleInfo ->
                            fun ?beforeContext ->
                              fun ?afterContext ->
                                fun ?previousDeploymentContext ->
                                  fun () ->
                                    {
                                      policyAction;
                                      action;
                                      logicalResourceId;
                                      physicalResourceId;
                                      resourceType;
                                      replacement;
                                      scope;
                                      resourceDriftStatus;
                                      resourceDriftIgnoredAttributes;
                                      details;
                                      changeSetId;
                                      moduleInfo;
                                      beforeContext;
                                      afterContext;
                                      previousDeploymentContext
                                    }
    let to_value x =
      structure_to_value
        [("PolicyAction",
           (Option.map x.policyAction ~f:PolicyAction.to_value));
        ("Action", (Option.map x.action ~f:ChangeAction.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("Replacement", (Option.map x.replacement ~f:Replacement.to_value));
        ("Scope", (Option.map x.scope ~f:Scope.to_value));
        ("ResourceDriftStatus",
          (Option.map x.resourceDriftStatus
             ~f:StackResourceDriftStatus.to_value));
        ("ResourceDriftIgnoredAttributes",
          (Option.map x.resourceDriftIgnoredAttributes
             ~f:ResourceDriftIgnoredAttributes.to_value));
        ("Details", (Option.map x.details ~f:ResourceChangeDetails.to_value));
        ("ChangeSetId", (Option.map x.changeSetId ~f:ChangeSetId.to_value));
        ("ModuleInfo", (Option.map x.moduleInfo ~f:ModuleInfo.to_value));
        ("BeforeContext",
          (Option.map x.beforeContext ~f:BeforeContext.to_value));
        ("AfterContext",
          (Option.map x.afterContext ~f:AfterContext.to_value));
        ("PreviousDeploymentContext",
          (Option.map x.previousDeploymentContext
             ~f:PreviousDeploymentContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let previousDeploymentContext =
        (Option.map ~f:PreviousDeploymentContext.of_xml)
          (Xml.child xml_arg0 "PreviousDeploymentContext") in
      let afterContext =
        (Option.map ~f:AfterContext.of_xml)
          (Xml.child xml_arg0 "AfterContext") in
      let beforeContext =
        (Option.map ~f:BeforeContext.of_xml)
          (Xml.child xml_arg0 "BeforeContext") in
      let moduleInfo =
        (Option.map ~f:ModuleInfo.of_xml) (Xml.child xml_arg0 "ModuleInfo") in
      let changeSetId =
        (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "ChangeSetId") in
      let details =
        (Option.map ~f:ResourceChangeDetails.of_xml)
          (Xml.child xml_arg0 "Details") in
      let resourceDriftIgnoredAttributes =
        (Option.map ~f:ResourceDriftIgnoredAttributes.of_xml)
          (Xml.child xml_arg0 "ResourceDriftIgnoredAttributes") in
      let resourceDriftStatus =
        (Option.map ~f:StackResourceDriftStatus.of_xml)
          (Xml.child xml_arg0 "ResourceDriftStatus") in
      let scope = (Option.map ~f:Scope.of_xml) (Xml.child xml_arg0 "Scope") in
      let replacement =
        (Option.map ~f:Replacement.of_xml) (Xml.child xml_arg0 "Replacement") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let action =
        (Option.map ~f:ChangeAction.of_xml) (Xml.child xml_arg0 "Action") in
      let policyAction =
        (Option.map ~f:PolicyAction.of_xml)
          (Xml.child xml_arg0 "PolicyAction") in
      make ?previousDeploymentContext ?afterContext ?beforeContext
        ?moduleInfo ?changeSetId ?details ?resourceDriftIgnoredAttributes
        ?resourceDriftStatus ?scope ?replacement ?resourceType
        ?physicalResourceId ?logicalResourceId ?action ?policyAction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let previousDeploymentContext =
        field_map json__ "PreviousDeploymentContext"
          PreviousDeploymentContext.of_json in
      let afterContext = field_map json__ "AfterContext" AfterContext.of_json in
      let beforeContext =
        field_map json__ "BeforeContext" BeforeContext.of_json in
      let moduleInfo = field_map json__ "ModuleInfo" ModuleInfo.of_json in
      let changeSetId = field_map json__ "ChangeSetId" ChangeSetId.of_json in
      let details = field_map json__ "Details" ResourceChangeDetails.of_json in
      let resourceDriftIgnoredAttributes =
        field_map json__ "ResourceDriftIgnoredAttributes"
          ResourceDriftIgnoredAttributes.of_json in
      let resourceDriftStatus =
        field_map json__ "ResourceDriftStatus"
          StackResourceDriftStatus.of_json in
      let scope = field_map json__ "Scope" Scope.of_json in
      let replacement = field_map json__ "Replacement" Replacement.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let action = field_map json__ "Action" ChangeAction.of_json in
      let policyAction = field_map json__ "PolicyAction" PolicyAction.of_json in
      make ?previousDeploymentContext ?afterContext ?beforeContext
        ?moduleInfo ?changeSetId ?details ?resourceDriftIgnoredAttributes
        ?resourceDriftStatus ?scope ?replacement ?resourceType
        ?physicalResourceId ?logicalResourceId ?action ?policyAction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ResourceChange structure describes the resource and the action that CloudFormation will perform on it if you execute this change set."]
module ChangeSetHookTargetDetails =
  struct
    type nonrec t =
      {
      targetType: HookTargetType.t option
        [@ocaml.doc "The Hook target type."];
      resourceTargetDetails: ChangeSetHookResourceTargetDetails.t option
        [@ocaml.doc "Required if TargetType is RESOURCE."]}
    let make ?targetType =
      fun ?resourceTargetDetails ->
        fun () -> { targetType; resourceTargetDetails }
    let to_value x =
      structure_to_value
        [("TargetType", (Option.map x.targetType ~f:HookTargetType.to_value));
        ("ResourceTargetDetails",
          (Option.map x.resourceTargetDetails
             ~f:ChangeSetHookResourceTargetDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTargetDetails =
        (Option.map ~f:ChangeSetHookResourceTargetDetails.of_xml)
          (Xml.child xml_arg0 "ResourceTargetDetails") in
      let targetType =
        (Option.map ~f:HookTargetType.of_xml)
          (Xml.child xml_arg0 "TargetType") in
      make ?resourceTargetDetails ?targetType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTargetDetails =
        field_map json__ "ResourceTargetDetails"
          ChangeSetHookResourceTargetDetails.of_json in
      let targetType = field_map json__ "TargetType" HookTargetType.of_json in
      make ?resourceTargetDetails ?targetType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies target details for an activated Hook."]
module LimitName =
  struct
    type nonrec t = string
    let context_ = "LimitName"
    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:"LimitName" j
    let to_json = simple_to_json to_value
  end
module LimitValue =
  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 LimitValue" 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 TemplateBody =
  struct
    type nonrec t = string
    let context_ = "TemplateBody"
    let make i =
      let open Result in ok_or_failwith (check_string_min i ~min:1); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TemplateBody" j
    let to_json = simple_to_json to_value
  end
module TemplateURL =
  struct
    type nonrec t = string
    let context_ = "TemplateURL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5120) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TemplateURL" j
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module TypeConfigurationIdentifier =
  struct
    type nonrec t =
      {
      typeArn: TypeArn.t option
        [@ocaml.doc
          "The ARN for the extension, in this account and Region. For public extensions, this will be the ARN assigned when you call the ActivateType API operation in this account and Region. For private extensions, this will be the ARN assigned when you call the RegisterType API operation in this account and Region."];
      typeConfigurationAlias: TypeConfigurationAlias.t option
        [@ocaml.doc
          "The alias specified for this configuration, if one was specified when the configuration was set."];
      typeConfigurationArn: TypeConfigurationArn.t option
        [@ocaml.doc
          "The ARN for the configuration, in this account and Region."];
      type_: ThirdPartyType.t option [@ocaml.doc "The type of extension."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension type to which this configuration applies."]}
    let make ?typeArn =
      fun ?typeConfigurationAlias ->
        fun ?typeConfigurationArn ->
          fun ?type_ ->
            fun ?typeName ->
              fun () ->
                {
                  typeArn;
                  typeConfigurationAlias;
                  typeConfigurationArn;
                  type_;
                  typeName
                }
    let to_value x =
      structure_to_value
        [("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("TypeConfigurationAlias",
          (Option.map x.typeConfigurationAlias
             ~f:TypeConfigurationAlias.to_value));
        ("TypeConfigurationArn",
          (Option.map x.typeConfigurationArn ~f:TypeConfigurationArn.to_value));
        ("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      let typeConfigurationArn =
        (Option.map ~f:TypeConfigurationArn.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationArn") in
      let typeConfigurationAlias =
        (Option.map ~f:TypeConfigurationAlias.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationAlias") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      make ?typeName ?type_ ?typeConfigurationArn ?typeConfigurationAlias
        ?typeArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      let typeConfigurationArn =
        field_map json__ "TypeConfigurationArn" TypeConfigurationArn.of_json in
      let typeConfigurationAlias =
        field_map json__ "TypeConfigurationAlias"
          TypeConfigurationAlias.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      make ?typeName ?type_ ?typeConfigurationArn ?typeConfigurationAlias
        ?typeArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifying information for the configuration of a CloudFormation extension."]
module IsDefaultConfiguration =
  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 TypeConfiguration =
  struct
    type nonrec t = string
    let context_ = "TypeConfiguration"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:204800) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeConfiguration" j
    let to_json = simple_to_json to_value
  end
module TemplateParameter =
  struct
    type nonrec t =
      {
      parameterKey: ParameterKey.t option
        [@ocaml.doc "The name associated with the parameter."];
      defaultValue: ParameterValue.t option
        [@ocaml.doc "The default value associated with the parameter."];
      noEcho: NoEcho.t option
        [@ocaml.doc
          "Flag indicating whether the parameter should be displayed as plain text in logs and UIs."];
      description: Description.t option
        [@ocaml.doc
          "User defined description associated with the parameter."]}
    let make ?parameterKey =
      fun ?defaultValue ->
        fun ?noEcho ->
          fun ?description ->
            fun () -> { parameterKey; defaultValue; noEcho; description }
    let to_value x =
      structure_to_value
        [("ParameterKey",
           (Option.map x.parameterKey ~f:ParameterKey.to_value));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:ParameterValue.to_value));
        ("NoEcho", (Option.map x.noEcho ~f:NoEcho.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let noEcho =
        (Option.map ~f:NoEcho.of_xml) (Xml.child xml_arg0 "NoEcho") in
      let defaultValue =
        (Option.map ~f:ParameterValue.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let parameterKey =
        (Option.map ~f:ParameterKey.of_xml)
          (Xml.child xml_arg0 "ParameterKey") in
      make ?description ?noEcho ?defaultValue ?parameterKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Description.of_json in
      let noEcho = field_map json__ "NoEcho" NoEcho.of_json in
      let defaultValue =
        field_map json__ "DefaultValue" ParameterValue.of_json in
      let parameterKey = field_map json__ "ParameterKey" ParameterKey.of_json in
      make ?description ?noEcho ?defaultValue ?parameterKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The TemplateParameter data type."]
module TransformName =
  struct
    type nonrec t = string
    let context_ = "TransformName"
    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:"TransformName" j
    let to_json = simple_to_json to_value
  end
module ResourceDefinition =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t
        [@ocaml.doc
          "The type of the resource, such as AWS::DynamoDB::Table. For the list of supported resources, see Resource type support for imports and drift detection in the CloudFormation User Guide"];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical resource id for this resource in the generated template."];
      resourceIdentifier: ResourceIdentifierProperties.t
        [@ocaml.doc
          "A list of up to 256 key-value pairs that identifies the scanned resource. The key is the name of one of the primary identifiers for the resource. (Primary identifiers are specified in the primaryIdentifier list in the resource schema.) The value is the value of that primary identifier. For example, for a AWS::DynamoDB::Table resource, the primary identifiers is TableName so the key-value pair could be \"TableName\": \"MyDDBTable\". For more information, see primaryIdentifier in the CloudFormation Command Line Interface (CLI) User Guide."]}
    let context_ = "ResourceDefinition"
    let make ?logicalResourceId =
      fun ~resourceType ->
        fun ~resourceIdentifier ->
          fun () -> { logicalResourceId; resourceType; resourceIdentifier }
    let to_value x =
      structure_to_value
        [("ResourceType", (Some (ResourceType.to_value x.resourceType)));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("ResourceIdentifier",
          (Some (ResourceIdentifierProperties.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        ResourceIdentifierProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceIdentifier") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceType") in
      make ~resourceIdentifier ?logicalResourceId ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "ResourceIdentifier"
          ResourceIdentifierProperties.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let resourceType =
        field_map_exn json__ "ResourceType" ResourceType.of_json in
      make ~resourceIdentifier ?logicalResourceId ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource included in a generated template. This data type is used with the CreateGeneratedTemplate and UpdateGeneratedTemplate API actions."]
module GeneratedTemplateDeletionPolicy =
  struct
    type nonrec t =
      | DELETE 
      | RETAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELETE -> "DELETE"
      | RETAIN -> "RETAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELETE" -> DELETE
      | "RETAIN" -> RETAIN
      | 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 GeneratedTemplateDeletionPolicy"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"GeneratedTemplateDeletionPolicy" j)
    let to_json = simple_to_json to_value
  end
module GeneratedTemplateUpdateReplacePolicy =
  struct
    type nonrec t =
      | DELETE 
      | RETAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELETE -> "DELETE"
      | RETAIN -> "RETAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELETE" -> DELETE
      | "RETAIN" -> RETAIN
      | 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 GeneratedTemplateUpdateReplacePolicy" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"GeneratedTemplateUpdateReplacePolicy" j)
    let to_json = simple_to_json to_value
  end
module ScanFilter =
  struct
    type nonrec t =
      {
      types: ResourceTypeFilters.t option
        [@ocaml.doc
          "An array of strings where each string represents an Amazon Web Services resource type you want to scan. Each string defines the resource type using the format AWS::ServiceName::ResourceType, for example, AWS::DynamoDB::Table. For the full list of supported resource types, see the Resource type support table in the CloudFormation User Guide. To scan all resource types within a service, you can use a wildcard, represented by an asterisk (*). You can place an asterisk at only the end of the string, for example, AWS::S3::*."]}
    let make ?types = fun () -> { types }
    let to_value x =
      structure_to_value
        [("Types", (Option.map x.types ~f:ResourceTypeFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:ResourceTypeFilters.of_xml)
          (Xml.child xml_arg0 "Types") in
      make ?types ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types = field_map json__ "Types" ResourceTypeFilters.of_json in
      make ?types ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that is used to specify which resource types to scan."]
module LogGroupName =
  struct
    type nonrec t = string
    let context_ = "LogGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"[\\.\\-_/#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:"LogGroupName" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:.+:iam::[0-9]{12}:role/.+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module TypeSummary =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option [@ocaml.doc "The kind of extension."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. If you specified a TypeNameAlias when you call the ActivateType API operation in your account and Region, CloudFormation considers that alias as the type name."];
      defaultVersionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of the default version of the extension. The default version is used when the extension version isn't specified. This applies only to private extensions you have registered in your account. For public extensions, both those provided by Amazon and published by third parties, CloudFormation returns null. For more information, see RegisterType. To set the default version of an extension, use SetTypeDefaultVersion."];
      typeArn: TypeArn.t option [@ocaml.doc "The ARN of the extension."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "When the specified extension version was registered. This applies only to: Private extensions you have registered in your account. For more information, see RegisterType. Public extensions you have activated in your account with auto-update specified. For more information, see ActivateType. For all other extension types, CloudFormation returns null."];
      description: Description.t option
        [@ocaml.doc "The description of the extension."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The ID of the extension publisher, if the extension is published by a third party. Extensions published by Amazon don't return a publisher ID."];
      originalTypeName: TypeName.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the type name of the public extension. If you specified a TypeNameAlias when enabling the extension in this account and Region, CloudFormation treats that alias as the extension's type name within the account and Region, not the type name of the public extension. For more information, see Use aliases to refer to extensions in the CloudFormation User Guide."];
      publicVersionNumber: PublicVersionNumber.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the version of the public extension to be used for CloudFormation operations in this account and Region. How you specified AutoUpdate when enabling the extension affects whether CloudFormation automatically updates the extension in this account and Region when a new version is released. For more information, see Automatically use new versions of extensions in the CloudFormation User Guide."];
      latestPublicVersion: PublicVersionNumber.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the latest version of the public extension that is available. For any extensions other than activated third-party extensions, CloudFormation returns null. How you specified AutoUpdate when enabling the extension affects whether CloudFormation automatically updates the extension in this account and Region when a new version is released. For more information, see Automatically use new versions of extensions in the CloudFormation User Guide."];
      publisherIdentity: IdentityProvider.t option
        [@ocaml.doc
          "The service used to verify the publisher identity. For more information, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide."];
      publisherName: PublisherName.t option
        [@ocaml.doc
          "The publisher name, as defined in the public profile for that publisher in the service used to verify the publisher identity."];
      isActivated: IsActivated.t option
        [@ocaml.doc
          "Whether the extension is activated for this account and Region. This applies only to third-party public extensions. Extensions published by Amazon are activated by default."]}
    let make ?type_ =
      fun ?typeName ->
        fun ?defaultVersionId ->
          fun ?typeArn ->
            fun ?lastUpdated ->
              fun ?description ->
                fun ?publisherId ->
                  fun ?originalTypeName ->
                    fun ?publicVersionNumber ->
                      fun ?latestPublicVersion ->
                        fun ?publisherIdentity ->
                          fun ?publisherName ->
                            fun ?isActivated ->
                              fun () ->
                                {
                                  type_;
                                  typeName;
                                  defaultVersionId;
                                  typeArn;
                                  lastUpdated;
                                  description;
                                  publisherId;
                                  originalTypeName;
                                  publicVersionNumber;
                                  latestPublicVersion;
                                  publisherIdentity;
                                  publisherName;
                                  isActivated
                                }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("DefaultVersionId",
          (Option.map x.defaultVersionId ~f:TypeVersionId.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("OriginalTypeName",
          (Option.map x.originalTypeName ~f:TypeName.to_value));
        ("PublicVersionNumber",
          (Option.map x.publicVersionNumber ~f:PublicVersionNumber.to_value));
        ("LatestPublicVersion",
          (Option.map x.latestPublicVersion ~f:PublicVersionNumber.to_value));
        ("PublisherIdentity",
          (Option.map x.publisherIdentity ~f:IdentityProvider.to_value));
        ("PublisherName",
          (Option.map x.publisherName ~f:PublisherName.to_value));
        ("IsActivated", (Option.map x.isActivated ~f:IsActivated.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isActivated =
        (Option.map ~f:IsActivated.of_xml) (Xml.child xml_arg0 "IsActivated") in
      let publisherName =
        (Option.map ~f:PublisherName.of_xml)
          (Xml.child xml_arg0 "PublisherName") in
      let publisherIdentity =
        (Option.map ~f:IdentityProvider.of_xml)
          (Xml.child xml_arg0 "PublisherIdentity") in
      let latestPublicVersion =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "LatestPublicVersion") in
      let publicVersionNumber =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "PublicVersionNumber") in
      let originalTypeName =
        (Option.map ~f:TypeName.of_xml)
          (Xml.child xml_arg0 "OriginalTypeName") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let defaultVersionId =
        (Option.map ~f:TypeVersionId.of_xml)
          (Xml.child xml_arg0 "DefaultVersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?isActivated ?publisherName ?publisherIdentity
        ?latestPublicVersion ?publicVersionNumber ?originalTypeName
        ?publisherId ?description ?lastUpdated ?typeArn ?defaultVersionId
        ?typeName ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isActivated = field_map json__ "IsActivated" IsActivated.of_json in
      let publisherName =
        field_map json__ "PublisherName" PublisherName.of_json in
      let publisherIdentity =
        field_map json__ "PublisherIdentity" IdentityProvider.of_json in
      let latestPublicVersion =
        field_map json__ "LatestPublicVersion" PublicVersionNumber.of_json in
      let publicVersionNumber =
        field_map json__ "PublicVersionNumber" PublicVersionNumber.of_json in
      let originalTypeName =
        field_map json__ "OriginalTypeName" TypeName.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let lastUpdated = field_map json__ "LastUpdated" Timestamp.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      let defaultVersionId =
        field_map json__ "DefaultVersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?isActivated ?publisherName ?publisherIdentity
        ?latestPublicVersion ?publicVersionNumber ?originalTypeName
        ?publisherId ?description ?lastUpdated ?typeArn ?defaultVersionId
        ?typeName ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains summary information about the specified CloudFormation extension."]
module Category =
  struct
    type nonrec t =
      | REGISTERED 
      | ACTIVATED 
      | THIRD_PARTY 
      | AWS_TYPES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGISTERED -> "REGISTERED"
      | ACTIVATED -> "ACTIVATED"
      | THIRD_PARTY -> "THIRD_PARTY"
      | AWS_TYPES -> "AWS_TYPES"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGISTERED" -> REGISTERED
      | "ACTIVATED" -> ACTIVATED
      | "THIRD_PARTY" -> THIRD_PARTY
      | "AWS_TYPES" -> AWS_TYPES
      | 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 Category" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Category" j)
    let to_json = simple_to_json to_value
  end
module TypeNamePrefix =
  struct
    type nonrec t = string
    let context_ = "TypeNamePrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:204) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([A-Za-z0-9]{2,64}::){0,2}([A-Za-z0-9]{2,64}:?){0,1}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeNamePrefix" j
    let to_json = simple_to_json to_value
  end
module TypeVersionSummary =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option [@ocaml.doc "The kind of extension."];
      typeName: TypeName.t option [@ocaml.doc "The name of the extension."];
      versionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of a specific version of the extension. The version ID is the value at the end of the ARN assigned to the extension version when it's registered."];
      isDefaultVersion: IsDefaultVersion.t option
        [@ocaml.doc
          "Whether the specified extension version is set as the default version. This applies only to private extensions you have registered in your account, and extensions published by Amazon. For public third-party extensions, CloudFormation returns null."];
      arn: TypeArn.t option [@ocaml.doc "The ARN of the extension version."];
      timeCreated: Timestamp.t option
        [@ocaml.doc "When the version was registered."];
      description: Description.t option
        [@ocaml.doc "The description of the extension version."];
      publicVersionNumber: PublicVersionNumber.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the version of the public extension to be used for CloudFormation operations in this account and Region. For any extensions other than activated third-party extensions, CloudFormation returns null. How you specified AutoUpdate when enabling the extension affects whether CloudFormation automatically updates the extension in this account and Region when a new version is released. For more information, see Automatically use new versions of extensions in the CloudFormation User Guide."]}
    let make ?type_ =
      fun ?typeName ->
        fun ?versionId ->
          fun ?isDefaultVersion ->
            fun ?arn ->
              fun ?timeCreated ->
                fun ?description ->
                  fun ?publicVersionNumber ->
                    fun () ->
                      {
                        type_;
                        typeName;
                        versionId;
                        isDefaultVersion;
                        arn;
                        timeCreated;
                        description;
                        publicVersionNumber
                      }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("VersionId", (Option.map x.versionId ~f:TypeVersionId.to_value));
        ("IsDefaultVersion",
          (Option.map x.isDefaultVersion ~f:IsDefaultVersion.to_value));
        ("Arn", (Option.map x.arn ~f:TypeArn.to_value));
        ("TimeCreated", (Option.map x.timeCreated ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("PublicVersionNumber",
          (Option.map x.publicVersionNumber ~f:PublicVersionNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicVersionNumber =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "PublicVersionNumber") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let timeCreated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "TimeCreated") in
      let arn = (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let isDefaultVersion =
        (Option.map ~f:IsDefaultVersion.of_xml)
          (Xml.child xml_arg0 "IsDefaultVersion") in
      let versionId =
        (Option.map ~f:TypeVersionId.of_xml) (Xml.child xml_arg0 "VersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?publicVersionNumber ?description ?timeCreated ?arn
        ?isDefaultVersion ?versionId ?typeName ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicVersionNumber =
        field_map json__ "PublicVersionNumber" PublicVersionNumber.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let timeCreated = field_map json__ "TimeCreated" Timestamp.of_json in
      let arn = field_map json__ "Arn" TypeArn.of_json in
      let isDefaultVersion =
        field_map json__ "IsDefaultVersion" IsDefaultVersion.of_json in
      let versionId = field_map json__ "VersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?publicVersionNumber ?description ?timeCreated ?arn
        ?isDefaultVersion ?versionId ?typeName ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains summary information about a specific version of a CloudFormation extension."]
module RegistrationToken =
  struct
    type nonrec t = string
    let context_ = "RegistrationToken"
    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][-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:"RegistrationToken" j
    let to_json = simple_to_json to_value
  end
module StackSummary =
  struct
    type nonrec t =
      {
      stackId: StackId.t option [@ocaml.doc "Unique stack identifier."];
      stackName: StackName.t option
        [@ocaml.doc "The name associated with the stack."];
      templateDescription: TemplateDescription.t option
        [@ocaml.doc
          "The template description of the template used to create the stack."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The time the stack was created."];
      lastUpdatedTime: LastUpdatedTime.t option
        [@ocaml.doc
          "The time the stack was last updated. This field will only be returned if the stack has been updated at least once."];
      deletionTime: DeletionTime.t option
        [@ocaml.doc "The time the stack was deleted."];
      stackStatus: StackStatus.t option
        [@ocaml.doc "The current status of the stack."];
      stackStatusReason: StackStatusReason.t option
        [@ocaml.doc
          "Success/Failure message associated with the stack status."];
      parentId: StackId.t option
        [@ocaml.doc
          "For nested stacks, the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see Nested stacks in the CloudFormation User Guide."];
      rootId: StackId.t option
        [@ocaml.doc
          "For nested stacks, the stack ID of the top-level stack to which the nested stack ultimately belongs. For more information, see Nested stacks in the CloudFormation User Guide."];
      driftInformation: StackDriftInformationSummary.t option
        [@ocaml.doc
          "Summarizes information about whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."];
      lastOperations: LastOperations.t option
        [@ocaml.doc
          "Information about the most recent operations performed on this stack."]}
    let make ?stackId =
      fun ?stackName ->
        fun ?templateDescription ->
          fun ?creationTime ->
            fun ?lastUpdatedTime ->
              fun ?deletionTime ->
                fun ?stackStatus ->
                  fun ?stackStatusReason ->
                    fun ?parentId ->
                      fun ?rootId ->
                        fun ?driftInformation ->
                          fun ?lastOperations ->
                            fun () ->
                              {
                                stackId;
                                stackName;
                                templateDescription;
                                creationTime;
                                lastUpdatedTime;
                                deletionTime;
                                stackStatus;
                                stackStatusReason;
                                parentId;
                                rootId;
                                driftInformation;
                                lastOperations
                              }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("TemplateDescription",
          (Option.map x.templateDescription ~f:TemplateDescription.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:LastUpdatedTime.to_value));
        ("DeletionTime",
          (Option.map x.deletionTime ~f:DeletionTime.to_value));
        ("StackStatus", (Option.map x.stackStatus ~f:StackStatus.to_value));
        ("StackStatusReason",
          (Option.map x.stackStatusReason ~f:StackStatusReason.to_value));
        ("ParentId", (Option.map x.parentId ~f:StackId.to_value));
        ("RootId", (Option.map x.rootId ~f:StackId.to_value));
        ("DriftInformation",
          (Option.map x.driftInformation
             ~f:StackDriftInformationSummary.to_value));
        ("LastOperations",
          (Option.map x.lastOperations ~f:LastOperations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastOperations =
        (Option.map ~f:LastOperations.of_xml)
          (Xml.child xml_arg0 "LastOperations") in
      let driftInformation =
        (Option.map ~f:StackDriftInformationSummary.of_xml)
          (Xml.child xml_arg0 "DriftInformation") in
      let rootId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "RootId") in
      let parentId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "ParentId") in
      let stackStatusReason =
        (Option.map ~f:StackStatusReason.of_xml)
          (Xml.child xml_arg0 "StackStatusReason") in
      let stackStatus =
        (Option.map ~f:StackStatus.of_xml) (Xml.child xml_arg0 "StackStatus") in
      let deletionTime =
        (Option.map ~f:DeletionTime.of_xml)
          (Xml.child xml_arg0 "DeletionTime") in
      let lastUpdatedTime =
        (Option.map ~f:LastUpdatedTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let templateDescription =
        (Option.map ~f:TemplateDescription.of_xml)
          (Xml.child xml_arg0 "TemplateDescription") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?lastOperations ?driftInformation ?rootId ?parentId
        ?stackStatusReason ?stackStatus ?deletionTime ?lastUpdatedTime
        ?creationTime ?templateDescription ?stackName ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastOperations =
        field_map json__ "LastOperations" LastOperations.of_json in
      let driftInformation =
        field_map json__ "DriftInformation"
          StackDriftInformationSummary.of_json in
      let rootId = field_map json__ "RootId" StackId.of_json in
      let parentId = field_map json__ "ParentId" StackId.of_json in
      let stackStatusReason =
        field_map json__ "StackStatusReason" StackStatusReason.of_json in
      let stackStatus = field_map json__ "StackStatus" StackStatus.of_json in
      let deletionTime = field_map json__ "DeletionTime" DeletionTime.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" LastUpdatedTime.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let templateDescription =
        field_map json__ "TemplateDescription" TemplateDescription.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?lastOperations ?driftInformation ?rootId ?parentId
        ?stackStatusReason ?stackStatus ?deletionTime ?lastUpdatedTime
        ?creationTime ?templateDescription ?stackName ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The StackSummary Data Type"]
module StackSetSummary =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t option
        [@ocaml.doc "The name of the StackSet."];
      stackSetId: StackSetId.t option [@ocaml.doc "The ID of the StackSet."];
      description: Description.t option
        [@ocaml.doc
          "A description of the StackSet that you specify when the StackSet is created or updated."];
      status: StackSetStatus.t option
        [@ocaml.doc "The status of the StackSet."];
      autoDeployment: AutoDeployment.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Describes whether StackSets automatically deploys to Organizations accounts that are added to a target organizational unit (OU)."];
      permissionModel: PermissionModels.t option
        [@ocaml.doc
          "Describes how the IAM roles required for StackSet operations are created. With self-managed permissions, you must create the administrator and execution roles required to deploy to target accounts. For more information, see Grant self-managed permissions. With service-managed permissions, StackSets automatically creates the IAM roles required to deploy to accounts managed by Organizations. For more information, see Activate trusted access for StackSets with Organizations."];
      driftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the StackSet's actual configuration compared to its expected template and parameter configuration. DRIFTED: One or more of the stack instances belonging to the StackSet differs from the expected template and parameter configuration. A stack instance is considered to have drifted if one or more of the resources in the associated stack have drifted. NOT_CHECKED: CloudFormation hasn't checked the StackSet for drift. IN_SYNC: All the stack instances belonging to the StackSet match the expected template and parameter configuration. UNKNOWN: This value is reserved for future use."];
      lastDriftCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when CloudFormation performed a drift detection operation on the StackSet. This value will be NULL for any StackSet that drift detection hasn't yet been performed on."];
      managedExecution: ManagedExecution.t option
        [@ocaml.doc
          "Describes whether StackSets performs non-conflicting operations concurrently and queues conflicting operations."]}
    let make ?stackSetName =
      fun ?stackSetId ->
        fun ?description ->
          fun ?status ->
            fun ?autoDeployment ->
              fun ?permissionModel ->
                fun ?driftStatus ->
                  fun ?lastDriftCheckTimestamp ->
                    fun ?managedExecution ->
                      fun () ->
                        {
                          stackSetName;
                          stackSetId;
                          description;
                          status;
                          autoDeployment;
                          permissionModel;
                          driftStatus;
                          lastDriftCheckTimestamp;
                          managedExecution
                        }
    let to_value x =
      structure_to_value
        [("StackSetName",
           (Option.map x.stackSetName ~f:StackSetName.to_value));
        ("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Status", (Option.map x.status ~f:StackSetStatus.to_value));
        ("AutoDeployment",
          (Option.map x.autoDeployment ~f:AutoDeployment.to_value));
        ("PermissionModel",
          (Option.map x.permissionModel ~f:PermissionModels.to_value));
        ("DriftStatus",
          (Option.map x.driftStatus ~f:StackDriftStatus.to_value));
        ("LastDriftCheckTimestamp",
          (Option.map x.lastDriftCheckTimestamp ~f:Timestamp.to_value));
        ("ManagedExecution",
          (Option.map x.managedExecution ~f:ManagedExecution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedExecution =
        (Option.map ~f:ManagedExecution.of_xml)
          (Xml.child xml_arg0 "ManagedExecution") in
      let lastDriftCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastDriftCheckTimestamp") in
      let driftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "DriftStatus") in
      let permissionModel =
        (Option.map ~f:PermissionModels.of_xml)
          (Xml.child xml_arg0 "PermissionModel") in
      let autoDeployment =
        (Option.map ~f:AutoDeployment.of_xml)
          (Xml.child xml_arg0 "AutoDeployment") in
      let status =
        (Option.map ~f:StackSetStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      let stackSetName =
        (Option.map ~f:StackSetName.of_xml)
          (Xml.child xml_arg0 "StackSetName") in
      make ?managedExecution ?lastDriftCheckTimestamp ?driftStatus
        ?permissionModel ?autoDeployment ?status ?description ?stackSetId
        ?stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedExecution =
        field_map json__ "ManagedExecution" ManagedExecution.of_json in
      let lastDriftCheckTimestamp =
        field_map json__ "LastDriftCheckTimestamp" Timestamp.of_json in
      let driftStatus =
        field_map json__ "DriftStatus" StackDriftStatus.of_json in
      let permissionModel =
        field_map json__ "PermissionModel" PermissionModels.of_json in
      let autoDeployment =
        field_map json__ "AutoDeployment" AutoDeployment.of_json in
      let status = field_map json__ "Status" StackSetStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      let stackSetName = field_map json__ "StackSetName" StackSetName.of_json in
      make ?managedExecution ?lastDriftCheckTimestamp ?driftStatus
        ?permissionModel ?autoDeployment ?status ?description ?stackSetId
        ?stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structures that contain summary information about the specified StackSet."]
module StackSetOperationSummary =
  struct
    type nonrec t =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique ID of the StackSet operation."];
      action: StackSetOperationAction.t option
        [@ocaml.doc
          "The type of operation: CREATE, UPDATE, or DELETE. Create and delete operations affect only the specified stack instances that are associated with the specified StackSet. Update operations affect both the StackSet itself and all associated StackSet instances."];
      status: StackSetOperationStatus.t option
        [@ocaml.doc
          "The overall status of the operation. FAILED: The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each Region during stack create and update operations. If the number of failed stacks within a Region exceeds the failure tolerance, the status of the operation in the Region is set to FAILED. This in turn sets the status of the operation as a whole to FAILED, and CloudFormation cancels the operation in any remaining Regions. QUEUED: \\[Service-managed permissions\\] For automatic deployments that require a sequence of operations, the operation is queued to be performed. For more information, see the StackSet status codes in the CloudFormation User Guide. RUNNING: The operation is currently being performed. STOPPED: The user has canceled the operation. STOPPING: The operation is in the process of stopping, at user request. SUCCEEDED: The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation."];
      creationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the operation was initiated. Note that the creation times for the StackSet operation might differ from the creation time of the individual stacks themselves. This is because CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested Regions, before actually creating the first stacks."];
      endTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the StackSet operation ended, across all accounts and Regions specified. Note that this doesn't necessarily mean that the StackSet operation was successful, or even attempted, in each account or Region."];
      statusReason: StackSetOperationStatusReason.t option
        [@ocaml.doc "The status of the operation in details."];
      statusDetails: StackSetOperationStatusDetails.t option
        [@ocaml.doc "Detailed information about the StackSet operation."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "The user-specified preferences for how CloudFormation performs a StackSet operation. For more information about maximum concurrent accounts and failure tolerance, see StackSet operation options."]}
    let make ?operationId =
      fun ?action ->
        fun ?status ->
          fun ?creationTimestamp ->
            fun ?endTimestamp ->
              fun ?statusReason ->
                fun ?statusDetails ->
                  fun ?operationPreferences ->
                    fun () ->
                      {
                        operationId;
                        action;
                        status;
                        creationTimestamp;
                        endTimestamp;
                        statusReason;
                        statusDetails;
                        operationPreferences
                      }
    let to_value x =
      structure_to_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("Action", (Option.map x.action ~f:StackSetOperationAction.to_value));
        ("Status", (Option.map x.status ~f:StackSetOperationStatus.to_value));
        ("CreationTimestamp",
          (Option.map x.creationTimestamp ~f:Timestamp.to_value));
        ("EndTimestamp", (Option.map x.endTimestamp ~f:Timestamp.to_value));
        ("StatusReason",
          (Option.map x.statusReason
             ~f:StackSetOperationStatusReason.to_value));
        ("StatusDetails",
          (Option.map x.statusDetails
             ~f:StackSetOperationStatusDetails.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let statusDetails =
        (Option.map ~f:StackSetOperationStatusDetails.of_xml)
          (Xml.child xml_arg0 "StatusDetails") in
      let statusReason =
        (Option.map ~f:StackSetOperationStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let endTimestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTimestamp") in
      let creationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTimestamp") in
      let status =
        (Option.map ~f:StackSetOperationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let action =
        (Option.map ~f:StackSetOperationAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationPreferences ?statusDetails ?statusReason ?endTimestamp
        ?creationTimestamp ?status ?action ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let statusDetails =
        field_map json__ "StatusDetails"
          StackSetOperationStatusDetails.of_json in
      let statusReason =
        field_map json__ "StatusReason" StackSetOperationStatusReason.of_json in
      let endTimestamp = field_map json__ "EndTimestamp" Timestamp.of_json in
      let creationTimestamp =
        field_map json__ "CreationTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" StackSetOperationStatus.of_json in
      let action = field_map json__ "Action" StackSetOperationAction.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationPreferences ?statusDetails ?statusReason ?endTimestamp
        ?creationTimestamp ?status ?action ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structures that contain summary information about the specified operation."]
module StackSetOperationResultSummary =
  struct
    type nonrec t =
      {
      account: Account.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The name of the Amazon Web Services account for this operation result."];
      region: Region.t option
        [@ocaml.doc
          "The name of the Amazon Web Services Region for this operation result."];
      status: StackSetOperationResultStatus.t option
        [@ocaml.doc
          "The result status of the StackSet operation for the given account in the given Region. CANCELLED: The operation in the specified account and Region has been canceled. This is either because a user has stopped the StackSet operation, or because the failure tolerance of the StackSet operation has been exceeded. FAILED: The operation in the specified account and Region failed. If the StackSet operation fails in enough accounts within a Region, the failure tolerance for the StackSet operation as a whole might be exceeded. RUNNING: The operation in the specified account and Region is currently in progress. PENDING: The operation in the specified account and Region has yet to start. SUCCEEDED: The operation in the specified account and Region completed successfully."];
      statusReason: Reason.t option
        [@ocaml.doc "The reason for the assigned result status."];
      accountGateResult: AccountGateResult.t option
        [@ocaml.doc
          "The results of the account gate function CloudFormation invokes, if present, before proceeding with StackSet operations in an account."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The organization root ID or organizational unit (OU) IDs that you specified for DeploymentTargets."]}
    let make ?account =
      fun ?region ->
        fun ?status ->
          fun ?statusReason ->
            fun ?accountGateResult ->
              fun ?organizationalUnitId ->
                fun () ->
                  {
                    account;
                    region;
                    status;
                    statusReason;
                    accountGateResult;
                    organizationalUnitId
                  }
    let to_value x =
      structure_to_value
        [("Account", (Option.map x.account ~f:Account.to_value));
        ("Region", (Option.map x.region ~f:Region.to_value));
        ("Status",
          (Option.map x.status ~f:StackSetOperationResultStatus.to_value));
        ("StatusReason", (Option.map x.statusReason ~f:Reason.to_value));
        ("AccountGateResult",
          (Option.map x.accountGateResult ~f:AccountGateResult.to_value));
        ("OrganizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitId") in
      let accountGateResult =
        (Option.map ~f:AccountGateResult.of_xml)
          (Xml.child xml_arg0 "AccountGateResult") in
      let statusReason =
        (Option.map ~f:Reason.of_xml) (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:StackSetOperationResultStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      make ?organizationalUnitId ?accountGateResult ?statusReason ?status
        ?region ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "OrganizationalUnitId" OrganizationalUnitId.of_json in
      let accountGateResult =
        field_map json__ "AccountGateResult" AccountGateResult.of_json in
      let statusReason = field_map json__ "StatusReason" Reason.of_json in
      let status =
        field_map json__ "Status" StackSetOperationResultStatus.of_json in
      let region = field_map json__ "Region" Region.of_json in
      let account = field_map json__ "Account" Account.of_json in
      make ?organizationalUnitId ?accountGateResult ?statusReason ?status
        ?region ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure that contains information about a specified operation's results for a given account in a given Region."]
module OperationResultFilter =
  struct
    type nonrec t =
      {
      name: OperationResultFilterName.t option
        [@ocaml.doc "The type of filter to apply."];
      values: OperationResultFilterValues.t option
        [@ocaml.doc "The value to filter by."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:OperationResultFilterName.to_value));
        ("Values",
          (Option.map x.values ~f:OperationResultFilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:OperationResultFilterValues.of_xml)
          (Xml.child xml_arg0 "Values") in
      let name =
        (Option.map ~f:OperationResultFilterName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map json__ "Values" OperationResultFilterValues.of_json in
      let name = field_map json__ "Name" OperationResultFilterName.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The status that operation results are filtered by."]
module StackSetAutoDeploymentTargetSummary =
  struct
    type nonrec t =
      {
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The organization root ID or organizational unit (OU) IDs where the StackSet is targeted."];
      regions: RegionList.t option
        [@ocaml.doc
          "The list of Regions targeted for this organization or OU."]}
    let make ?organizationalUnitId =
      fun ?regions -> fun () -> { organizationalUnitId; regions }
    let to_value x =
      structure_to_value
        [("OrganizationalUnitId",
           (Option.map x.organizationalUnitId
              ~f:OrganizationalUnitId.to_value));
        ("Regions", (Option.map x.regions ~f:RegionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "Regions") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitId") in
      make ?regions ?organizationalUnitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "Regions" RegionList.of_json in
      let organizationalUnitId =
        field_map json__ "OrganizationalUnitId" OrganizationalUnitId.of_json in
      make ?regions ?organizationalUnitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One of the targets for the StackSet. Returned by the ListStackSetAutoDeploymentTargets API operation."]
module StackResourceSummary =
  struct
    type nonrec t =
      {
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of the resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Type of resource. (For more information, see Amazon Web Services resource and property types reference in the CloudFormation User Guide.)"];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc "Time the status was updated."];
      resourceStatus: ResourceStatus.t option
        [@ocaml.doc "Current status of the resource."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc "Success/failure message associated with the resource."];
      driftInformation: StackResourceDriftInformationSummary.t option
        [@ocaml.doc
          "Information about whether the resource's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."];
      moduleInfo: ModuleInfo.t option
        [@ocaml.doc
          "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template."]}
    let make ?logicalResourceId =
      fun ?physicalResourceId ->
        fun ?resourceType ->
          fun ?lastUpdatedTimestamp ->
            fun ?resourceStatus ->
              fun ?resourceStatusReason ->
                fun ?driftInformation ->
                  fun ?moduleInfo ->
                    fun () ->
                      {
                        logicalResourceId;
                        physicalResourceId;
                        resourceType;
                        lastUpdatedTimestamp;
                        resourceStatus;
                        resourceStatusReason;
                        driftInformation;
                        moduleInfo
                      }
    let to_value x =
      structure_to_value
        [("LogicalResourceId",
           (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus ~f:ResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("DriftInformation",
          (Option.map x.driftInformation
             ~f:StackResourceDriftInformationSummary.to_value));
        ("ModuleInfo", (Option.map x.moduleInfo ~f:ModuleInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moduleInfo =
        (Option.map ~f:ModuleInfo.of_xml) (Xml.child xml_arg0 "ModuleInfo") in
      let driftInformation =
        (Option.map ~f:StackResourceDriftInformationSummary.of_xml)
          (Xml.child xml_arg0 "DriftInformation") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      make ?moduleInfo ?driftInformation ?resourceStatusReason
        ?resourceStatus ?lastUpdatedTimestamp ?resourceType
        ?physicalResourceId ?logicalResourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moduleInfo = field_map json__ "ModuleInfo" ModuleInfo.of_json in
      let driftInformation =
        field_map json__ "DriftInformation"
          StackResourceDriftInformationSummary.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus" ResourceStatus.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      make ?moduleInfo ?driftInformation ?resourceStatusReason
        ?resourceStatus ?lastUpdatedTimestamp ?resourceType
        ?physicalResourceId ?logicalResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains high-level information about the specified stack resource."]
module StackRefactorSummary =
  struct
    type nonrec t =
      {
      stackRefactorId: StackRefactorId.t option
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."];
      description: Description.t option
        [@ocaml.doc "A description to help you identify the refactor."];
      executionStatus: StackRefactorExecutionStatus.t option
        [@ocaml.doc
          "The operation status that's provided after calling the ExecuteStackRefactor action."];
      executionStatusReason: ExecutionStatusReason.t option
        [@ocaml.doc
          "A detailed explanation for the stack refactor ExecutionStatus."];
      status: StackRefactorStatus.t option
        [@ocaml.doc
          "The stack refactor operation status that's provided after calling the CreateStackRefactor action."];
      statusReason: StackRefactorStatusReason.t option
        [@ocaml.doc "A detailed explanation for the stack refactor Status."]}
    let make ?stackRefactorId =
      fun ?description ->
        fun ?executionStatus ->
          fun ?executionStatusReason ->
            fun ?status ->
              fun ?statusReason ->
                fun () ->
                  {
                    stackRefactorId;
                    description;
                    executionStatus;
                    executionStatusReason;
                    status;
                    statusReason
                  }
    let to_value x =
      structure_to_value
        [("StackRefactorId",
           (Option.map x.stackRefactorId ~f:StackRefactorId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus
             ~f:StackRefactorExecutionStatus.to_value));
        ("ExecutionStatusReason",
          (Option.map x.executionStatusReason
             ~f:ExecutionStatusReason.to_value));
        ("Status", (Option.map x.status ~f:StackRefactorStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:StackRefactorStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:StackRefactorStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:StackRefactorStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let executionStatusReason =
        (Option.map ~f:ExecutionStatusReason.of_xml)
          (Xml.child xml_arg0 "ExecutionStatusReason") in
      let executionStatus =
        (Option.map ~f:StackRefactorExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackRefactorId =
        (Option.map ~f:StackRefactorId.of_xml)
          (Xml.child xml_arg0 "StackRefactorId") in
      make ?statusReason ?status ?executionStatusReason ?executionStatus
        ?description ?stackRefactorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason =
        field_map json__ "StatusReason" StackRefactorStatusReason.of_json in
      let status = field_map json__ "Status" StackRefactorStatus.of_json in
      let executionStatusReason =
        field_map json__ "ExecutionStatusReason"
          ExecutionStatusReason.of_json in
      let executionStatus =
        field_map json__ "ExecutionStatus"
          StackRefactorExecutionStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackRefactorId =
        field_map json__ "StackRefactorId" StackRefactorId.of_json in
      make ?statusReason ?status ?executionStatusReason ?executionStatus
        ?description ?stackRefactorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The summary of a stack refactor operation."]
module StackRefactorAction =
  struct
    type nonrec t =
      {
      action: StackRefactorActionType.t option
        [@ocaml.doc "The action that CloudFormation takes on the stack."];
      entity: StackRefactorActionEntity.t option
        [@ocaml.doc
          "The type that will be evaluated in the StackRefactorAction. The following are potential Entity types: Stack Resource"];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier associated with the physical instance of the resource."];
      resourceIdentifier: StackRefactorResourceIdentifier.t option
        [@ocaml.doc
          "A key-value pair that identifies the target resource. The key is an identifier property (for example, BucketName for AWS::S3::Bucket resources) and the value is the actual property value (for example, MyS3Bucket)."];
      description: Description.t option
        [@ocaml.doc "A description to help you identify the refactor."];
      detection: StackRefactorDetection.t option
        [@ocaml.doc
          "The detection type is one of the following: Auto: CloudFormation figured out the mapping on its own. Manual: The customer provided the mapping in the ResourceMapping parameter."];
      detectionReason: DetectionReason.t option
        [@ocaml.doc "The description of the detection type."];
      tagResources: StackRefactorTagResources.t option
        [@ocaml.doc "Assigns one or more tags to specified resources."];
      untagResources: StackRefactorUntagResources.t option
        [@ocaml.doc "Removes one or more tags to specified resources."];
      resourceMapping: ResourceMapping.t option
        [@ocaml.doc
          "The mapping for the stack resource Source and stack resource Destination."]}
    let make ?action =
      fun ?entity ->
        fun ?physicalResourceId ->
          fun ?resourceIdentifier ->
            fun ?description ->
              fun ?detection ->
                fun ?detectionReason ->
                  fun ?tagResources ->
                    fun ?untagResources ->
                      fun ?resourceMapping ->
                        fun () ->
                          {
                            action;
                            entity;
                            physicalResourceId;
                            resourceIdentifier;
                            description;
                            detection;
                            detectionReason;
                            tagResources;
                            untagResources;
                            resourceMapping
                          }
    let to_value x =
      structure_to_value
        [("Action",
           (Option.map x.action ~f:StackRefactorActionType.to_value));
        ("Entity",
          (Option.map x.entity ~f:StackRefactorActionEntity.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceIdentifier",
          (Option.map x.resourceIdentifier
             ~f:StackRefactorResourceIdentifier.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Detection",
          (Option.map x.detection ~f:StackRefactorDetection.to_value));
        ("DetectionReason",
          (Option.map x.detectionReason ~f:DetectionReason.to_value));
        ("TagResources",
          (Option.map x.tagResources ~f:StackRefactorTagResources.to_value));
        ("UntagResources",
          (Option.map x.untagResources
             ~f:StackRefactorUntagResources.to_value));
        ("ResourceMapping",
          (Option.map x.resourceMapping ~f:ResourceMapping.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceMapping =
        (Option.map ~f:ResourceMapping.of_xml)
          (Xml.child xml_arg0 "ResourceMapping") in
      let untagResources =
        (Option.map ~f:StackRefactorUntagResources.of_xml)
          (Xml.child xml_arg0 "UntagResources") in
      let tagResources =
        (Option.map ~f:StackRefactorTagResources.of_xml)
          (Xml.child xml_arg0 "TagResources") in
      let detectionReason =
        (Option.map ~f:DetectionReason.of_xml)
          (Xml.child xml_arg0 "DetectionReason") in
      let detection =
        (Option.map ~f:StackRefactorDetection.of_xml)
          (Xml.child xml_arg0 "Detection") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let resourceIdentifier =
        (Option.map ~f:StackRefactorResourceIdentifier.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifier") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let entity =
        (Option.map ~f:StackRefactorActionEntity.of_xml)
          (Xml.child xml_arg0 "Entity") in
      let action =
        (Option.map ~f:StackRefactorActionType.of_xml)
          (Xml.child xml_arg0 "Action") in
      make ?resourceMapping ?untagResources ?tagResources ?detectionReason
        ?detection ?description ?resourceIdentifier ?physicalResourceId
        ?entity ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceMapping =
        field_map json__ "ResourceMapping" ResourceMapping.of_json in
      let untagResources =
        field_map json__ "UntagResources" StackRefactorUntagResources.of_json in
      let tagResources =
        field_map json__ "TagResources" StackRefactorTagResources.of_json in
      let detectionReason =
        field_map json__ "DetectionReason" DetectionReason.of_json in
      let detection =
        field_map json__ "Detection" StackRefactorDetection.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let resourceIdentifier =
        field_map json__ "ResourceIdentifier"
          StackRefactorResourceIdentifier.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let entity =
        field_map json__ "Entity" StackRefactorActionEntity.of_json in
      let action = field_map json__ "Action" StackRefactorActionType.of_json in
      make ?resourceMapping ?untagResources ?tagResources ?detectionReason
        ?detection ?description ?resourceIdentifier ?physicalResourceId
        ?entity ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the stack and the action that CloudFormation will perform on it if you execute the stack refactor."]
module StackInstanceSummary =
  struct
    type nonrec t =
      {
      stackSetId: StackSetId.t option
        [@ocaml.doc
          "The name or unique ID of the StackSet that the stack instance is associated with."];
      region: Region.t option
        [@ocaml.doc
          "The name of the Amazon Web Services Region that the stack instance is associated with."];
      account: Account.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The name of the Amazon Web Services account that the stack instance is associated with."];
      stackId: StackId.t option [@ocaml.doc "The ID of the stack instance."];
      status: StackInstanceStatus.t option
        [@ocaml.doc
          "The status of the stack instance, in terms of its synchronization with its associated stack set. INOPERABLE: A DeleteStackInstances operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further UpdateStackSet operations. You might need to perform a DeleteStackInstances operation, with RetainStacks set to true, to delete the stack instance, and then delete the stack manually. INOPERABLE can be returned here when the cause is a failed import. If it's due to a failed import, the operation can be retried once the failures are fixed. To see if this is due to a failed import, call the DescribeStackInstance API operation, look at the DetailedStatus member returned in the StackInstanceSummary member. OUTDATED: The stack isn't currently up to date with the StackSet because: The associated stack failed during a CreateStackSet or UpdateStackSet operation. The stack was part of a CreateStackSet or UpdateStackSet operation that failed or was stopped before the stack was created or updated. CURRENT: The stack is currently up to date with the StackSet."];
      statusReason: Reason.t option
        [@ocaml.doc
          "The explanation for the specific status code assigned to this stack instance."];
      stackInstanceStatus: StackInstanceComprehensiveStatus.t option
        [@ocaml.doc "The detailed status of the stack instance."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The organization root ID or organizational unit (OU) IDs that you specified for DeploymentTargets."];
      driftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the stack instance's actual configuration compared to the expected template and parameter configuration of the StackSet it belongs to. DRIFTED: The stack differs from the expected template and parameter configuration of the StackSet it belongs to. A stack instance is considered to have drifted if one or more of the resources in the associated stack have drifted. NOT_CHECKED: CloudFormation hasn't checked if the stack instance differs from its expected StackSet configuration. IN_SYNC: The stack instance's actual configuration matches its expected StackSet configuration. UNKNOWN: This value is reserved for future use."];
      lastDriftCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when CloudFormation performed a drift detection operation on the stack instance. This value will be NULL for any stack instance that drift detection hasn't yet been performed on."];
      lastOperationId: ClientRequestToken.t option
        [@ocaml.doc
          "The last unique ID of a StackSet operation performed on a stack instance."]}
    let make ?stackSetId =
      fun ?region ->
        fun ?account ->
          fun ?stackId ->
            fun ?status ->
              fun ?statusReason ->
                fun ?stackInstanceStatus ->
                  fun ?organizationalUnitId ->
                    fun ?driftStatus ->
                      fun ?lastDriftCheckTimestamp ->
                        fun ?lastOperationId ->
                          fun () ->
                            {
                              stackSetId;
                              region;
                              account;
                              stackId;
                              status;
                              statusReason;
                              stackInstanceStatus;
                              organizationalUnitId;
                              driftStatus;
                              lastDriftCheckTimestamp;
                              lastOperationId
                            }
    let to_value x =
      structure_to_value
        [("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value));
        ("Region", (Option.map x.region ~f:Region.to_value));
        ("Account", (Option.map x.account ~f:Account.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("Status", (Option.map x.status ~f:StackInstanceStatus.to_value));
        ("StatusReason", (Option.map x.statusReason ~f:Reason.to_value));
        ("StackInstanceStatus",
          (Option.map x.stackInstanceStatus
             ~f:StackInstanceComprehensiveStatus.to_value));
        ("OrganizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("DriftStatus",
          (Option.map x.driftStatus ~f:StackDriftStatus.to_value));
        ("LastDriftCheckTimestamp",
          (Option.map x.lastDriftCheckTimestamp ~f:Timestamp.to_value));
        ("LastOperationId",
          (Option.map x.lastOperationId ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastOperationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "LastOperationId") in
      let lastDriftCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastDriftCheckTimestamp") in
      let driftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "DriftStatus") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitId") in
      let stackInstanceStatus =
        (Option.map ~f:StackInstanceComprehensiveStatus.of_xml)
          (Xml.child xml_arg0 "StackInstanceStatus") in
      let statusReason =
        (Option.map ~f:Reason.of_xml) (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:StackInstanceStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      make ?lastOperationId ?lastDriftCheckTimestamp ?driftStatus
        ?organizationalUnitId ?stackInstanceStatus ?statusReason ?status
        ?stackId ?account ?region ?stackSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastOperationId =
        field_map json__ "LastOperationId" ClientRequestToken.of_json in
      let lastDriftCheckTimestamp =
        field_map json__ "LastDriftCheckTimestamp" Timestamp.of_json in
      let driftStatus =
        field_map json__ "DriftStatus" StackDriftStatus.of_json in
      let organizationalUnitId =
        field_map json__ "OrganizationalUnitId" OrganizationalUnitId.of_json in
      let stackInstanceStatus =
        field_map json__ "StackInstanceStatus"
          StackInstanceComprehensiveStatus.of_json in
      let statusReason = field_map json__ "StatusReason" Reason.of_json in
      let status = field_map json__ "Status" StackInstanceStatus.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let account = field_map json__ "Account" Account.of_json in
      let region = field_map json__ "Region" Region.of_json in
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      make ?lastOperationId ?lastDriftCheckTimestamp ?driftStatus
        ?organizationalUnitId ?stackInstanceStatus ?statusReason ?status
        ?stackId ?account ?region ?stackSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure that contains summary information about a stack instance."]
module StackInstanceFilter =
  struct
    type nonrec t =
      {
      name: StackInstanceFilterName.t option
        [@ocaml.doc "The type of filter to apply."];
      values: StackInstanceFilterValues.t option
        [@ocaml.doc "The status to filter by."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:StackInstanceFilterName.to_value));
        ("Values",
          (Option.map x.values ~f:StackInstanceFilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:StackInstanceFilterValues.of_xml)
          (Xml.child xml_arg0 "Values") in
      let name =
        (Option.map ~f:StackInstanceFilterName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map json__ "Values" StackInstanceFilterValues.of_json in
      let name = field_map json__ "Name" StackInstanceFilterName.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The filter to apply to stack instances"]
module StackInstanceResourceDriftsSummary =
  struct
    type nonrec t =
      {
      stackId: StackId.t option [@ocaml.doc "The ID of the stack instance."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource supported by CloudFormation."];
      physicalResourceIdContext: PhysicalResourceIdContext.t option
        [@ocaml.doc
          "Context information that enables CloudFormation to uniquely identify a resource. CloudFormation uses context key-value pairs in cases where a resource's logical and physical IDs aren't enough to uniquely identify that resource. Each context key-value pair specifies a unique resource that contains the targeted resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Type of resource. For more information, see Amazon Web Services resource and property types reference in the CloudFormation User Guide."];
      propertyDifferences: PropertyDifferences.t option
        [@ocaml.doc
          "Status of the actual configuration of the resource compared to its expected configuration. These will be present only for resources whose StackInstanceResourceDriftStatus is MODIFIED."];
      stackResourceDriftStatus: StackResourceDriftStatus.t option
        [@ocaml.doc
          "The drift status of the resource in a stack instance. DELETED: The resource differs from its expected template configuration in that the resource has been deleted. MODIFIED: One or more resource properties differ from their expected template values. IN_SYNC: The resource's actual configuration matches its expected template configuration. NOT_CHECKED: CloudFormation doesn't currently return this value."];
      timestamp: Timestamp.t option
        [@ocaml.doc
          "Time at which the stack instance drift detection operation was initiated."]}
    let make ?stackId =
      fun ?logicalResourceId ->
        fun ?physicalResourceId ->
          fun ?physicalResourceIdContext ->
            fun ?resourceType ->
              fun ?propertyDifferences ->
                fun ?stackResourceDriftStatus ->
                  fun ?timestamp ->
                    fun () ->
                      {
                        stackId;
                        logicalResourceId;
                        physicalResourceId;
                        physicalResourceIdContext;
                        resourceType;
                        propertyDifferences;
                        stackResourceDriftStatus;
                        timestamp
                      }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("PhysicalResourceIdContext",
          (Option.map x.physicalResourceIdContext
             ~f:PhysicalResourceIdContext.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("PropertyDifferences",
          (Option.map x.propertyDifferences ~f:PropertyDifferences.to_value));
        ("StackResourceDriftStatus",
          (Option.map x.stackResourceDriftStatus
             ~f:StackResourceDriftStatus.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let stackResourceDriftStatus =
        (Option.map ~f:StackResourceDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackResourceDriftStatus") in
      let propertyDifferences =
        (Option.map ~f:PropertyDifferences.of_xml)
          (Xml.child xml_arg0 "PropertyDifferences") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceIdContext =
        (Option.map ~f:PhysicalResourceIdContext.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceIdContext") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?timestamp ?stackResourceDriftStatus ?propertyDifferences
        ?resourceType ?physicalResourceIdContext ?physicalResourceId
        ?logicalResourceId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let stackResourceDriftStatus =
        field_map json__ "StackResourceDriftStatus"
          StackResourceDriftStatus.of_json in
      let propertyDifferences =
        field_map json__ "PropertyDifferences" PropertyDifferences.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceIdContext =
        field_map json__ "PhysicalResourceIdContext"
          PhysicalResourceIdContext.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?timestamp ?stackResourceDriftStatus ?propertyDifferences
        ?resourceType ?physicalResourceIdContext ?physicalResourceId
        ?logicalResourceId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure containing summary information about resource drifts for a stack instance."]
module ResourceScanSummary =
  struct
    type nonrec t =
      {
      resourceScanId: ResourceScanId.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource scan."];
      status: ResourceScanStatus.t option
        [@ocaml.doc
          "Status of the resource scan. IN_PROGRESS The resource scan is still in progress. COMPLETE The resource scan is complete. EXPIRED The resource scan has expired. FAILED The resource scan has failed."];
      statusReason: ResourceScanStatusReason.t option
        [@ocaml.doc
          "The reason for the resource scan status, providing more information if a failure happened."];
      startTime: Timestamp.t option
        [@ocaml.doc "The time that the resource scan was started."];
      endTime: Timestamp.t option
        [@ocaml.doc "The time that the resource scan was finished."];
      percentageCompleted: PercentageCompleted.t option
        [@ocaml.doc
          "The percentage of the resource scan that has been completed."];
      scanType: ScanType.t option
        [@ocaml.doc "The scan type that has been completed."]}
    let make ?resourceScanId =
      fun ?status ->
        fun ?statusReason ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?percentageCompleted ->
                fun ?scanType ->
                  fun () ->
                    {
                      resourceScanId;
                      status;
                      statusReason;
                      startTime;
                      endTime;
                      percentageCompleted;
                      scanType
                    }
    let to_value x =
      structure_to_value
        [("ResourceScanId",
           (Option.map x.resourceScanId ~f:ResourceScanId.to_value));
        ("Status", (Option.map x.status ~f:ResourceScanStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ResourceScanStatusReason.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("PercentageCompleted",
          (Option.map x.percentageCompleted ~f:PercentageCompleted.to_value));
        ("ScanType", (Option.map x.scanType ~f:ScanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scanType =
        (Option.map ~f:ScanType.of_xml) (Xml.child xml_arg0 "ScanType") in
      let percentageCompleted =
        (Option.map ~f:PercentageCompleted.of_xml)
          (Xml.child xml_arg0 "PercentageCompleted") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let statusReason =
        (Option.map ~f:ResourceScanStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:ResourceScanStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let resourceScanId =
        (Option.map ~f:ResourceScanId.of_xml)
          (Xml.child xml_arg0 "ResourceScanId") in
      make ?scanType ?percentageCompleted ?endTime ?startTime ?statusReason
        ?status ?resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scanType = field_map json__ "ScanType" ScanType.of_json in
      let percentageCompleted =
        field_map json__ "PercentageCompleted" PercentageCompleted.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let statusReason =
        field_map json__ "StatusReason" ResourceScanStatusReason.of_json in
      let status = field_map json__ "Status" ResourceScanStatus.of_json in
      let resourceScanId =
        field_map json__ "ResourceScanId" ResourceScanId.of_json in
      make ?scanType ?percentageCompleted ?endTime ?startTime ?statusReason
        ?status ?resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the resource scan. This is returned by the ListResourceScan API action."]
module ScannedResource =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of the resource, such as AWS::DynamoDB::Table. For the list of supported resources, see Resource type support for imports and drift detection In the CloudFormation User Guide"];
      resourceIdentifier: JazzResourceIdentifierProperties.t option
        [@ocaml.doc
          "A list of up to 256 key-value pairs that identifies for the scanned resource. The key is the name of one of the primary identifiers for the resource. (Primary identifiers are specified in the primaryIdentifier list in the resource schema.) The value is the value of that primary identifier. For example, for a AWS::DynamoDB::Table resource, the primary identifiers is TableName so the key-value pair could be \"TableName\": \"MyDDBTable\". For more information, see primaryIdentifier in the CloudFormation Command Line Interface (CLI) User Guide."];
      managedByStack: ManagedByStack.t option
        [@ocaml.doc
          "If true, the resource is managed by a CloudFormation stack."]}
    let make ?resourceType =
      fun ?resourceIdentifier ->
        fun ?managedByStack ->
          fun () -> { resourceType; resourceIdentifier; managedByStack }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceIdentifier",
          (Option.map x.resourceIdentifier
             ~f:JazzResourceIdentifierProperties.to_value));
        ("ManagedByStack",
          (Option.map x.managedByStack ~f:ManagedByStack.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedByStack =
        (Option.map ~f:ManagedByStack.of_xml)
          (Xml.child xml_arg0 "ManagedByStack") in
      let resourceIdentifier =
        (Option.map ~f:JazzResourceIdentifierProperties.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifier") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?managedByStack ?resourceIdentifier ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedByStack =
        field_map json__ "ManagedByStack" ManagedByStack.of_json in
      let resourceIdentifier =
        field_map json__ "ResourceIdentifier"
          JazzResourceIdentifierProperties.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?managedByStack ?resourceIdentifier ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A scanned resource returned by ListResourceScanResources or ListResourceScanRelatedResources."]
module ScannedResourceIdentifier =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t
        [@ocaml.doc
          "The type of the resource, such as AWS::DynamoDB::Table. For the list of supported resources, see Resource type support for imports and drift detection In the CloudFormation User Guide."];
      resourceIdentifier: JazzResourceIdentifierProperties.t
        [@ocaml.doc
          "A list of up to 256 key-value pairs that identifies the scanned resource. The key is the name of one of the primary identifiers for the resource. (Primary identifiers are specified in the primaryIdentifier list in the resource schema.) The value is the value of that primary identifier. For example, for a AWS::DynamoDB::Table resource, the primary identifiers is TableName so the key-value pair could be \"TableName\": \"MyDDBTable\". For more information, see primaryIdentifier in the CloudFormation Command Line Interface (CLI) User Guide."]}
    let context_ = "ScannedResourceIdentifier"
    let make ~resourceType =
      fun ~resourceIdentifier ->
        fun () -> { resourceType; resourceIdentifier }
    let to_value x =
      structure_to_value
        [("ResourceType", (Some (ResourceType.to_value x.resourceType)));
        ("ResourceIdentifier",
          (Some
             (JazzResourceIdentifierProperties.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        JazzResourceIdentifierProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceIdentifier") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceType") in
      make ~resourceIdentifier ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "ResourceIdentifier"
          JazzResourceIdentifierProperties.of_json in
      let resourceType =
        field_map_exn json__ "ResourceType" ResourceType.of_json in
      make ~resourceIdentifier ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies a scanned resource. This is used with the ListResourceScanRelatedResources API action."]
module HookResultSummary =
  struct
    type nonrec t =
      {
      hookResultId: HookInvocationId.t option
        [@ocaml.doc "The unique identifier for this Hook invocation result."];
      invocationPoint: HookInvocationPoint.t option
        [@ocaml.doc
          "The specific point in the provisioning process where the Hook is invoked."];
      failureMode: HookFailureMode.t option
        [@ocaml.doc "The failure mode of the invocation."];
      typeName: HookTypeName.t option
        [@ocaml.doc "The name of the Hook that was invoked."];
      typeVersionId: HookTypeVersionId.t option
        [@ocaml.doc "The version of the Hook that was invoked."];
      typeConfigurationVersionId: HookTypeConfigurationVersionId.t option
        [@ocaml.doc "The version of the Hook configuration."];
      status: HookStatus.t option
        [@ocaml.doc
          "The status of the Hook invocation. The following statuses are possible: HOOK_IN_PROGRESS: The Hook is currently running. HOOK_COMPLETE_SUCCEEDED: The Hook completed successfully. HOOK_COMPLETE_FAILED: The Hook completed but failed validation. HOOK_FAILED: The Hook encountered an error during execution."];
      hookStatusReason: HookStatusReason.t option
        [@ocaml.doc
          "A description of the Hook results status. For example, if the Hook result is in a failed state, this may contain additional information for the failed state."];
      invokedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the Hook was invoked. Only shown in responses when the request does not specify TargetType and TargetId filters."];
      targetType: ListHookResultsTargetType.t option
        [@ocaml.doc "The target type that the Hook was invoked against."];
      targetId: HookResultId.t option
        [@ocaml.doc "The unique identifier of the Hook invocation target."];
      typeArn: HookTypeArn.t option
        [@ocaml.doc "The ARN of the Hook that was invoked."];
      hookExecutionTarget: HookResultId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the target stack or request token of the Cloud Control API operation. Only shown in responses when the request does not specify TargetType and TargetId filters."]}
    let make ?hookResultId =
      fun ?invocationPoint ->
        fun ?failureMode ->
          fun ?typeName ->
            fun ?typeVersionId ->
              fun ?typeConfigurationVersionId ->
                fun ?status ->
                  fun ?hookStatusReason ->
                    fun ?invokedAt ->
                      fun ?targetType ->
                        fun ?targetId ->
                          fun ?typeArn ->
                            fun ?hookExecutionTarget ->
                              fun () ->
                                {
                                  hookResultId;
                                  invocationPoint;
                                  failureMode;
                                  typeName;
                                  typeVersionId;
                                  typeConfigurationVersionId;
                                  status;
                                  hookStatusReason;
                                  invokedAt;
                                  targetType;
                                  targetId;
                                  typeArn;
                                  hookExecutionTarget
                                }
    let to_value x =
      structure_to_value
        [("HookResultId",
           (Option.map x.hookResultId ~f:HookInvocationId.to_value));
        ("InvocationPoint",
          (Option.map x.invocationPoint ~f:HookInvocationPoint.to_value));
        ("FailureMode",
          (Option.map x.failureMode ~f:HookFailureMode.to_value));
        ("TypeName", (Option.map x.typeName ~f:HookTypeName.to_value));
        ("TypeVersionId",
          (Option.map x.typeVersionId ~f:HookTypeVersionId.to_value));
        ("TypeConfigurationVersionId",
          (Option.map x.typeConfigurationVersionId
             ~f:HookTypeConfigurationVersionId.to_value));
        ("Status", (Option.map x.status ~f:HookStatus.to_value));
        ("HookStatusReason",
          (Option.map x.hookStatusReason ~f:HookStatusReason.to_value));
        ("InvokedAt", (Option.map x.invokedAt ~f:Timestamp.to_value));
        ("TargetType",
          (Option.map x.targetType ~f:ListHookResultsTargetType.to_value));
        ("TargetId", (Option.map x.targetId ~f:HookResultId.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:HookTypeArn.to_value));
        ("HookExecutionTarget",
          (Option.map x.hookExecutionTarget ~f:HookResultId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hookExecutionTarget =
        (Option.map ~f:HookResultId.of_xml)
          (Xml.child xml_arg0 "HookExecutionTarget") in
      let typeArn =
        (Option.map ~f:HookTypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let targetId =
        (Option.map ~f:HookResultId.of_xml) (Xml.child xml_arg0 "TargetId") in
      let targetType =
        (Option.map ~f:ListHookResultsTargetType.of_xml)
          (Xml.child xml_arg0 "TargetType") in
      let invokedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "InvokedAt") in
      let hookStatusReason =
        (Option.map ~f:HookStatusReason.of_xml)
          (Xml.child xml_arg0 "HookStatusReason") in
      let status =
        (Option.map ~f:HookStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let typeConfigurationVersionId =
        (Option.map ~f:HookTypeConfigurationVersionId.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationVersionId") in
      let typeVersionId =
        (Option.map ~f:HookTypeVersionId.of_xml)
          (Xml.child xml_arg0 "TypeVersionId") in
      let typeName =
        (Option.map ~f:HookTypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let failureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "FailureMode") in
      let invocationPoint =
        (Option.map ~f:HookInvocationPoint.of_xml)
          (Xml.child xml_arg0 "InvocationPoint") in
      let hookResultId =
        (Option.map ~f:HookInvocationId.of_xml)
          (Xml.child xml_arg0 "HookResultId") in
      make ?hookExecutionTarget ?typeArn ?targetId ?targetType ?invokedAt
        ?hookStatusReason ?status ?typeConfigurationVersionId ?typeVersionId
        ?typeName ?failureMode ?invocationPoint ?hookResultId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hookExecutionTarget =
        field_map json__ "HookExecutionTarget" HookResultId.of_json in
      let typeArn = field_map json__ "TypeArn" HookTypeArn.of_json in
      let targetId = field_map json__ "TargetId" HookResultId.of_json in
      let targetType =
        field_map json__ "TargetType" ListHookResultsTargetType.of_json in
      let invokedAt = field_map json__ "InvokedAt" Timestamp.of_json in
      let hookStatusReason =
        field_map json__ "HookStatusReason" HookStatusReason.of_json in
      let status = field_map json__ "Status" HookStatus.of_json in
      let typeConfigurationVersionId =
        field_map json__ "TypeConfigurationVersionId"
          HookTypeConfigurationVersionId.of_json in
      let typeVersionId =
        field_map json__ "TypeVersionId" HookTypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" HookTypeName.of_json in
      let failureMode =
        field_map json__ "FailureMode" HookFailureMode.of_json in
      let invocationPoint =
        field_map json__ "InvocationPoint" HookInvocationPoint.of_json in
      let hookResultId =
        field_map json__ "HookResultId" HookInvocationId.of_json in
      make ?hookExecutionTarget ?typeArn ?targetId ?targetType ?invokedAt
        ?hookStatusReason ?status ?typeConfigurationVersionId ?typeVersionId
        ?typeName ?failureMode ?invocationPoint ?hookResultId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A ListHookResults call returns a summary of a Hook invocation."]
module TemplateSummary =
  struct
    type nonrec t =
      {
      generatedTemplateId: GeneratedTemplateId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the generated template. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:generatedtemplate/$\\{Id\\}. For example, arn:aws:cloudformation:us-east-1:123456789012:generatedtemplate/2e8465c1-9a80-43ea-a3a3-4f2d692fe6dc ."];
      generatedTemplateName: GeneratedTemplateName.t option
        [@ocaml.doc "The name of the generated template."];
      status: GeneratedTemplateStatus.t option
        [@ocaml.doc
          "The status of the template generation. Supported values are: CreatePending - the creation of the template is pending. CreateInProgress - the creation of the template is in progress. DeletePending - the deletion of the template is pending. DeleteInProgress - the deletion of the template is in progress. UpdatePending - the update of the template is pending. UpdateInProgress - the update of the template is in progress. Failed - the template operation failed. Complete - the template operation is complete."];
      statusReason: TemplateStatusReason.t option
        [@ocaml.doc
          "The reason for the current template generation status. This will provide more details if a failure happened."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The time the generated template was created."];
      lastUpdatedTime: LastUpdatedTime.t option
        [@ocaml.doc "The time the generated template was last updated."];
      numberOfResources: NumberOfResources.t option
        [@ocaml.doc
          "The number of resources in the generated template. This is a total of resources in pending, in-progress, completed, and failed states."]}
    let make ?generatedTemplateId =
      fun ?generatedTemplateName ->
        fun ?status ->
          fun ?statusReason ->
            fun ?creationTime ->
              fun ?lastUpdatedTime ->
                fun ?numberOfResources ->
                  fun () ->
                    {
                      generatedTemplateId;
                      generatedTemplateName;
                      status;
                      statusReason;
                      creationTime;
                      lastUpdatedTime;
                      numberOfResources
                    }
    let to_value x =
      structure_to_value
        [("GeneratedTemplateId",
           (Option.map x.generatedTemplateId ~f:GeneratedTemplateId.to_value));
        ("GeneratedTemplateName",
          (Option.map x.generatedTemplateName
             ~f:GeneratedTemplateName.to_value));
        ("Status", (Option.map x.status ~f:GeneratedTemplateStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:TemplateStatusReason.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:LastUpdatedTime.to_value));
        ("NumberOfResources",
          (Option.map x.numberOfResources ~f:NumberOfResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberOfResources =
        (Option.map ~f:NumberOfResources.of_xml)
          (Xml.child xml_arg0 "NumberOfResources") in
      let lastUpdatedTime =
        (Option.map ~f:LastUpdatedTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let statusReason =
        (Option.map ~f:TemplateStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:GeneratedTemplateStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let generatedTemplateName =
        (Option.map ~f:GeneratedTemplateName.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateName") in
      let generatedTemplateId =
        (Option.map ~f:GeneratedTemplateId.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateId") in
      make ?numberOfResources ?lastUpdatedTime ?creationTime ?statusReason
        ?status ?generatedTemplateName ?generatedTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberOfResources =
        field_map json__ "NumberOfResources" NumberOfResources.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" LastUpdatedTime.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let statusReason =
        field_map json__ "StatusReason" TemplateStatusReason.of_json in
      let status = field_map json__ "Status" GeneratedTemplateStatus.of_json in
      let generatedTemplateName =
        field_map json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      let generatedTemplateId =
        field_map json__ "GeneratedTemplateId" GeneratedTemplateId.of_json in
      make ?numberOfResources ?lastUpdatedTime ?creationTime ?statusReason
        ?status ?generatedTemplateName ?generatedTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The summary of a generated template."]
module Export =
  struct
    type nonrec t =
      {
      exportingStackId: StackId.t option
        [@ocaml.doc
          "The stack that contains the exported output name and value."];
      name: ExportName.t option
        [@ocaml.doc
          "The name of exported output value. Use this name and the Fn::ImportValue function to import the associated value into other stacks. The name is defined in the Export field in the associated stack's Outputs section."];
      value: ExportValue.t option
        [@ocaml.doc
          "The value of the exported output, such as a resource physical ID. This value is defined in the Export field in the associated stack's Outputs section."]}
    let make ?exportingStackId =
      fun ?name -> fun ?value -> fun () -> { exportingStackId; name; value }
    let to_value x =
      structure_to_value
        [("ExportingStackId",
           (Option.map x.exportingStackId ~f:StackId.to_value));
        ("Name", (Option.map x.name ~f:ExportName.to_value));
        ("Value", (Option.map x.value ~f:ExportValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:ExportValue.of_xml) (Xml.child xml_arg0 "Value") in
      let name =
        (Option.map ~f:ExportName.of_xml) (Xml.child xml_arg0 "Name") in
      let exportingStackId =
        (Option.map ~f:StackId.of_xml)
          (Xml.child xml_arg0 "ExportingStackId") in
      make ?value ?name ?exportingStackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" ExportValue.of_json in
      let name = field_map json__ "Name" ExportName.of_json in
      let exportingStackId =
        field_map json__ "ExportingStackId" StackId.of_json in
      make ?value ?name ?exportingStackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Export structure describes the exported output values for a stack. For more information, see Get exported outputs from a deployed CloudFormation stack."]
module ChangeSetSummary =
  struct
    type nonrec t =
      {
      stackId: StackId.t option
        [@ocaml.doc
          "The ID of the stack with which the change set is associated."];
      stackName: StackName.t option
        [@ocaml.doc
          "The name of the stack with which the change set is associated."];
      changeSetId: ChangeSetId.t option
        [@ocaml.doc "The ID of the change set."];
      changeSetName: ChangeSetName.t option
        [@ocaml.doc "The name of the change set."];
      executionStatus: ExecutionStatus.t option
        [@ocaml.doc
          "If the change set execution status is AVAILABLE, you can execute the change set. If you can't execute the change set, the status indicates why. For example, a change set might be in an UNAVAILABLE state because CloudFormation is still creating it or in an OBSOLETE state because the stack was already updated."];
      status: ChangeSetStatus.t option
        [@ocaml.doc
          "The state of the change set, such as CREATE_PENDING, CREATE_COMPLETE, or FAILED."];
      statusReason: ChangeSetStatusReason.t option
        [@ocaml.doc
          "A description of the change set's status. For example, if your change set is in the FAILED state, CloudFormation shows the error message."];
      creationTime: CreationTime.t option
        [@ocaml.doc
          "The start time when the change set was created, in UTC."];
      description: Description.t option
        [@ocaml.doc "Descriptive information about the change set."];
      includeNestedStacks: IncludeNestedStacks.t option
        [@ocaml.doc
          "Specifies the current setting of IncludeNestedStacks for the change set."];
      parentChangeSetId: ChangeSetId.t option
        [@ocaml.doc "The parent change set ID."];
      rootChangeSetId: ChangeSetId.t option
        [@ocaml.doc "The root change set ID."];
      importExistingResources: ImportExistingResources.t option
        [@ocaml.doc
          "Indicates if the change set imports resources that already exist."]}
    let make ?stackId =
      fun ?stackName ->
        fun ?changeSetId ->
          fun ?changeSetName ->
            fun ?executionStatus ->
              fun ?status ->
                fun ?statusReason ->
                  fun ?creationTime ->
                    fun ?description ->
                      fun ?includeNestedStacks ->
                        fun ?parentChangeSetId ->
                          fun ?rootChangeSetId ->
                            fun ?importExistingResources ->
                              fun () ->
                                {
                                  stackId;
                                  stackName;
                                  changeSetId;
                                  changeSetName;
                                  executionStatus;
                                  status;
                                  statusReason;
                                  creationTime;
                                  description;
                                  includeNestedStacks;
                                  parentChangeSetId;
                                  rootChangeSetId;
                                  importExistingResources
                                }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("ChangeSetId", (Option.map x.changeSetId ~f:ChangeSetId.to_value));
        ("ChangeSetName",
          (Option.map x.changeSetName ~f:ChangeSetName.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus ~f:ExecutionStatus.to_value));
        ("Status", (Option.map x.status ~f:ChangeSetStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ChangeSetStatusReason.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("IncludeNestedStacks",
          (Option.map x.includeNestedStacks ~f:IncludeNestedStacks.to_value));
        ("ParentChangeSetId",
          (Option.map x.parentChangeSetId ~f:ChangeSetId.to_value));
        ("RootChangeSetId",
          (Option.map x.rootChangeSetId ~f:ChangeSetId.to_value));
        ("ImportExistingResources",
          (Option.map x.importExistingResources
             ~f:ImportExistingResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importExistingResources =
        (Option.map ~f:ImportExistingResources.of_xml)
          (Xml.child xml_arg0 "ImportExistingResources") in
      let rootChangeSetId =
        (Option.map ~f:ChangeSetId.of_xml)
          (Xml.child xml_arg0 "RootChangeSetId") in
      let parentChangeSetId =
        (Option.map ~f:ChangeSetId.of_xml)
          (Xml.child xml_arg0 "ParentChangeSetId") in
      let includeNestedStacks =
        (Option.map ~f:IncludeNestedStacks.of_xml)
          (Xml.child xml_arg0 "IncludeNestedStacks") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let statusReason =
        (Option.map ~f:ChangeSetStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:ChangeSetStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let executionStatus =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let changeSetName =
        (Option.map ~f:ChangeSetName.of_xml)
          (Xml.child xml_arg0 "ChangeSetName") in
      let changeSetId =
        (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "ChangeSetId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?importExistingResources ?rootChangeSetId ?parentChangeSetId
        ?includeNestedStacks ?description ?creationTime ?statusReason ?status
        ?executionStatus ?changeSetName ?changeSetId ?stackName ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importExistingResources =
        field_map json__ "ImportExistingResources"
          ImportExistingResources.of_json in
      let rootChangeSetId =
        field_map json__ "RootChangeSetId" ChangeSetId.of_json in
      let parentChangeSetId =
        field_map json__ "ParentChangeSetId" ChangeSetId.of_json in
      let includeNestedStacks =
        field_map json__ "IncludeNestedStacks" IncludeNestedStacks.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let statusReason =
        field_map json__ "StatusReason" ChangeSetStatusReason.of_json in
      let status = field_map json__ "Status" ChangeSetStatus.of_json in
      let executionStatus =
        field_map json__ "ExecutionStatus" ExecutionStatus.of_json in
      let changeSetName =
        field_map json__ "ChangeSetName" ChangeSetName.of_json in
      let changeSetId = field_map json__ "ChangeSetId" ChangeSetId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?importExistingResources ?rootChangeSetId ?parentChangeSetId
        ?includeNestedStacks ?description ?creationTime ?statusReason ?status
        ?executionStatus ?changeSetName ?changeSetId ?stackName ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ChangeSetSummary structure describes a change set, its status, and the stack with which it's associated."]
module ParameterDeclaration =
  struct
    type nonrec t =
      {
      parameterKey: ParameterKey.t option
        [@ocaml.doc "The name that's associated with the parameter."];
      defaultValue: ParameterValue.t option
        [@ocaml.doc "The default value of the parameter."];
      parameterType: ParameterType.t option
        [@ocaml.doc "The type of parameter."];
      noEcho: NoEcho.t option
        [@ocaml.doc
          "Flag that indicates whether the parameter value is shown as plain text in logs and in the Amazon Web Services Management Console."];
      description: Description.t option
        [@ocaml.doc "The description that's associate with the parameter."];
      parameterConstraints: ParameterConstraints.t option
        [@ocaml.doc
          "The criteria that CloudFormation uses to validate parameter values."]}
    let make ?parameterKey =
      fun ?defaultValue ->
        fun ?parameterType ->
          fun ?noEcho ->
            fun ?description ->
              fun ?parameterConstraints ->
                fun () ->
                  {
                    parameterKey;
                    defaultValue;
                    parameterType;
                    noEcho;
                    description;
                    parameterConstraints
                  }
    let to_value x =
      structure_to_value
        [("ParameterKey",
           (Option.map x.parameterKey ~f:ParameterKey.to_value));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:ParameterValue.to_value));
        ("ParameterType",
          (Option.map x.parameterType ~f:ParameterType.to_value));
        ("NoEcho", (Option.map x.noEcho ~f:NoEcho.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ParameterConstraints",
          (Option.map x.parameterConstraints ~f:ParameterConstraints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameterConstraints =
        (Option.map ~f:ParameterConstraints.of_xml)
          (Xml.child xml_arg0 "ParameterConstraints") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let noEcho =
        (Option.map ~f:NoEcho.of_xml) (Xml.child xml_arg0 "NoEcho") in
      let parameterType =
        (Option.map ~f:ParameterType.of_xml)
          (Xml.child xml_arg0 "ParameterType") in
      let defaultValue =
        (Option.map ~f:ParameterValue.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let parameterKey =
        (Option.map ~f:ParameterKey.of_xml)
          (Xml.child xml_arg0 "ParameterKey") in
      make ?parameterConstraints ?description ?noEcho ?parameterType
        ?defaultValue ?parameterKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameterConstraints =
        field_map json__ "ParameterConstraints" ParameterConstraints.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let noEcho = field_map json__ "NoEcho" NoEcho.of_json in
      let parameterType =
        field_map json__ "ParameterType" ParameterType.of_json in
      let defaultValue =
        field_map json__ "DefaultValue" ParameterValue.of_json in
      let parameterKey = field_map json__ "ParameterKey" ParameterKey.of_json in
      make ?parameterConstraints ?description ?noEcho ?parameterType
        ?defaultValue ?parameterKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The ParameterDeclaration data type."]
module ResourceIdentifierSummary =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The template resource type of the target resources, such as AWS::S3::Bucket."];
      logicalResourceIds: LogicalResourceIds.t option
        [@ocaml.doc
          "The logical IDs of the target resources of the specified ResourceType, as defined in the import template."];
      resourceIdentifiers: ResourceIdentifiers.t option
        [@ocaml.doc
          "The resource properties you can provide during the import to identify your target resources. For example, BucketName is a possible identifier property for AWS::S3::Bucket resources."]}
    let make ?resourceType =
      fun ?logicalResourceIds ->
        fun ?resourceIdentifiers ->
          fun () -> { resourceType; logicalResourceIds; resourceIdentifiers }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("LogicalResourceIds",
          (Option.map x.logicalResourceIds ~f:LogicalResourceIds.to_value));
        ("ResourceIdentifiers",
          (Option.map x.resourceIdentifiers ~f:ResourceIdentifiers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifiers =
        (Option.map ~f:ResourceIdentifiers.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifiers") in
      let logicalResourceIds =
        (Option.map ~f:LogicalResourceIds.of_xml)
          (Xml.child xml_arg0 "LogicalResourceIds") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?resourceIdentifiers ?logicalResourceIds ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifiers =
        field_map json__ "ResourceIdentifiers" ResourceIdentifiers.of_json in
      let logicalResourceIds =
        field_map json__ "LogicalResourceIds" LogicalResourceIds.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?resourceIdentifiers ?logicalResourceIds ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the target resources of a specific type in your import template (for example, all AWS::S3::Bucket resources) and the properties you can provide during the import to identify resources of that type."]
module ResourceTypes =
  struct
    type nonrec t = ResourceType.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:ResourceType.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:ResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTypes" ~of_json:ResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module TreatUnrecognizedResourceTypesAsWarnings =
  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 TemplateStage =
  struct
    type nonrec t =
      | Original 
      | Processed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Original -> "Original"
      | Processed -> "Processed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Original" -> Original
      | "Processed" -> Processed
      | 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 TemplateStage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TemplateStage" j)
    let to_json = simple_to_json to_value
  end
module Annotation =
  struct
    type nonrec t =
      {
      annotationName: AnnotationName.t option
        [@ocaml.doc
          "An identifier for the evaluation logic that was used when invoking the Hook. For Control Tower, this is the control ID. For Guard, this is the rule ID. For Lambda and custom Hooks, this is a user-defined identifier."];
      status: AnnotationStatus.t option
        [@ocaml.doc
          "The status of the Hook invocation from the downstream service."];
      statusMessage: RemediationMessageStatusMessage.t option
        [@ocaml.doc
          "The explanation for the specific status assigned to this Hook invocation. For example, \"Bucket does not block public access\"."];
      remediationMessage: RemediationMessageRemediationMessage.t option
        [@ocaml.doc
          "Suggests what to change if your Hook returns a FAILED status. For example, \"Block public access to the bucket\"."];
      remediationLink: AnnotationRemediationLink.t option
        [@ocaml.doc
          "A URL that you can access for additional remediation guidance."];
      severityLevel: AnnotationSeverityLevel.t option
        [@ocaml.doc
          "The relative risk associated with any violations of this type."]}
    let make ?annotationName =
      fun ?status ->
        fun ?statusMessage ->
          fun ?remediationMessage ->
            fun ?remediationLink ->
              fun ?severityLevel ->
                fun () ->
                  {
                    annotationName;
                    status;
                    statusMessage;
                    remediationMessage;
                    remediationLink;
                    severityLevel
                  }
    let to_value x =
      structure_to_value
        [("AnnotationName",
           (Option.map x.annotationName ~f:AnnotationName.to_value));
        ("Status", (Option.map x.status ~f:AnnotationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage
             ~f:RemediationMessageStatusMessage.to_value));
        ("RemediationMessage",
          (Option.map x.remediationMessage
             ~f:RemediationMessageRemediationMessage.to_value));
        ("RemediationLink",
          (Option.map x.remediationLink ~f:AnnotationRemediationLink.to_value));
        ("SeverityLevel",
          (Option.map x.severityLevel ~f:AnnotationSeverityLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let severityLevel =
        (Option.map ~f:AnnotationSeverityLevel.of_xml)
          (Xml.child xml_arg0 "SeverityLevel") in
      let remediationLink =
        (Option.map ~f:AnnotationRemediationLink.of_xml)
          (Xml.child xml_arg0 "RemediationLink") in
      let remediationMessage =
        (Option.map ~f:RemediationMessageRemediationMessage.of_xml)
          (Xml.child xml_arg0 "RemediationMessage") in
      let statusMessage =
        (Option.map ~f:RemediationMessageStatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:AnnotationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let annotationName =
        (Option.map ~f:AnnotationName.of_xml)
          (Xml.child xml_arg0 "AnnotationName") in
      make ?severityLevel ?remediationLink ?remediationMessage ?statusMessage
        ?status ?annotationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let severityLevel =
        field_map json__ "SeverityLevel" AnnotationSeverityLevel.of_json in
      let remediationLink =
        field_map json__ "RemediationLink" AnnotationRemediationLink.of_json in
      let remediationMessage =
        field_map json__ "RemediationMessage"
          RemediationMessageRemediationMessage.of_json in
      let statusMessage =
        field_map json__ "StatusMessage"
          RemediationMessageStatusMessage.of_json in
      let status = field_map json__ "Status" AnnotationStatus.of_json in
      let annotationName =
        field_map json__ "AnnotationName" AnnotationName.of_json in
      make ?severityLevel ?remediationLink ?remediationMessage ?statusMessage
        ?status ?annotationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Annotation data type. A GetHookResult call returns detailed information and remediation guidance from Control Tower, Guard, Lambda, or custom Hooks for a Hook invocation result."]
module HookTargetAction =
  struct
    type nonrec t =
      | CREATE 
      | UPDATE 
      | DELETE 
      | IMPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE -> "CREATE"
      | UPDATE -> "UPDATE"
      | DELETE -> "DELETE"
      | IMPORT -> "IMPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE" -> CREATE
      | "UPDATE" -> UPDATE
      | "DELETE" -> DELETE
      | "IMPORT" -> IMPORT
      | 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 HookTargetAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HookTargetAction" j)
    let to_json = simple_to_json to_value
  end
module HookTargetId =
  struct
    type nonrec t = string
    let context_ = "HookTargetId"
    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:"[^_]*")));
        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:"HookTargetId" j
    let to_json = simple_to_json to_value
  end
module RequiredActivatedType =
  struct
    type nonrec t =
      {
      typeNameAlias: TypeName.t option
        [@ocaml.doc
          "An alias assigned to the public extension, in this account and Region. If you specify an alias for the extension, CloudFormation treats the alias as the extension type name within this account and Region. You must use the alias to refer to the extension in your templates, API calls, and CloudFormation console."];
      originalTypeName: TypeName.t option
        [@ocaml.doc
          "The type name of the public extension. If you specified a TypeNameAlias when enabling the extension in this account and Region, CloudFormation treats that alias as the extension's type name within the account and Region, not the type name of the public extension. For more information, see Use aliases to refer to extensions in the CloudFormation User Guide."];
      publisherId: PublisherId.t option
        [@ocaml.doc "The publisher ID of the extension publisher."];
      supportedMajorVersions: SupportedMajorVersions.t option
        [@ocaml.doc
          "A list of the major versions of the extension type that the macro supports."]}
    let make ?typeNameAlias =
      fun ?originalTypeName ->
        fun ?publisherId ->
          fun ?supportedMajorVersions ->
            fun () ->
              {
                typeNameAlias;
                originalTypeName;
                publisherId;
                supportedMajorVersions
              }
    let to_value x =
      structure_to_value
        [("TypeNameAlias", (Option.map x.typeNameAlias ~f:TypeName.to_value));
        ("OriginalTypeName",
          (Option.map x.originalTypeName ~f:TypeName.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("SupportedMajorVersions",
          (Option.map x.supportedMajorVersions
             ~f:SupportedMajorVersions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedMajorVersions =
        (Option.map ~f:SupportedMajorVersions.of_xml)
          (Xml.child xml_arg0 "SupportedMajorVersions") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let originalTypeName =
        (Option.map ~f:TypeName.of_xml)
          (Xml.child xml_arg0 "OriginalTypeName") in
      let typeNameAlias =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeNameAlias") in
      make ?supportedMajorVersions ?publisherId ?originalTypeName
        ?typeNameAlias ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedMajorVersions =
        field_map json__ "SupportedMajorVersions"
          SupportedMajorVersions.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let originalTypeName =
        field_map json__ "OriginalTypeName" TypeName.of_json in
      let typeNameAlias = field_map json__ "TypeNameAlias" TypeName.of_json in
      make ?supportedMajorVersions ?publisherId ?originalTypeName
        ?typeNameAlias ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For extensions that are modules, a public third-party extension that must be activated in your account in order for the module itself to be activated. For more information, see Requirements for activating third-party public modules in the CloudFormation User Guide."]
module Stack =
  struct
    type nonrec t =
      {
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      stackName: StackName.t option
        [@ocaml.doc "The name associated with the stack."];
      changeSetId: ChangeSetId.t option
        [@ocaml.doc "The unique ID of the change set."];
      description: Description.t option
        [@ocaml.doc "A user-defined description associated with the stack."];
      parameters: Parameters.t option
        [@ocaml.doc "A list of Parameter structures."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The time at which the stack was created."];
      deletionTime: DeletionTime.t option
        [@ocaml.doc "The time the stack was deleted."];
      lastUpdatedTime: LastUpdatedTime.t option
        [@ocaml.doc
          "The time the stack was last updated. This field will only be returned if the stack has been updated at least once."];
      rollbackConfiguration: RollbackConfiguration.t option
        [@ocaml.doc
          "The rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards."];
      stackStatus: StackStatus.t option
        [@ocaml.doc "Current status of the stack."];
      stackStatusReason: StackStatusReason.t option
        [@ocaml.doc
          "Success/failure message associated with the stack status."];
      disableRollback: DisableRollback.t option
        [@ocaml.doc
          "Boolean to enable or disable rollback on stack creation failures: true: disable rollback. false: enable rollback."];
      notificationARNs: NotificationARNs.t option
        [@ocaml.doc
          "Amazon SNS topic Amazon Resource Names (ARNs) to which stack related events are published."];
      timeoutInMinutes: TimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time within which stack creation should complete."];
      capabilities: Capabilities.t option
        [@ocaml.doc "The capabilities allowed in the stack."];
      outputs: Outputs.t option [@ocaml.doc "A list of output structures."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that's associated with the stack. During a stack operation, CloudFormation uses this role's credentials to make calls on your behalf."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of Tags that specify information about the stack."];
      enableTerminationProtection: EnableTerminationProtection.t option
        [@ocaml.doc
          "Whether termination protection is enabled for the stack. For nested stacks, termination protection is set on the root stack and can't be changed directly on the nested stack. For more information, see Protect a CloudFormation stack from being deleted in the CloudFormation User Guide."];
      parentId: StackId.t option
        [@ocaml.doc
          "For nested stacks, the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see Nested stacks in the CloudFormation User Guide."];
      rootId: StackId.t option
        [@ocaml.doc
          "For nested stacks, the stack ID of the top-level stack to which the nested stack ultimately belongs. For more information, see Nested stacks in the CloudFormation User Guide."];
      driftInformation: StackDriftInformation.t option
        [@ocaml.doc
          "Information about whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."];
      retainExceptOnCreate: RetainExceptOnCreate.t option
        [@ocaml.doc
          "When set to true, newly created resources are deleted when the operation rolls back. This includes newly created resources marked with a deletion policy of Retain. Default: false"];
      deletionMode: DeletionMode.t option
        [@ocaml.doc
          "Specifies the deletion mode for the stack. Possible values are: STANDARD - Use the standard behavior. Specifying this value is the same as not specifying this parameter. FORCE_DELETE_STACK - Delete the stack if it's stuck in a DELETE_FAILED state due to resource deletion failure."];
      detailedStatus: DetailedStatus.t option
        [@ocaml.doc
          "The detailed status of the resource or stack. If CONFIGURATION_COMPLETE is present, the resource or resource configuration phase has completed and the stabilization of the resources is in progress. The StackSets CONFIGURATION_COMPLETE when all of the resources in the stack have reached that event. For more information, see Understand CloudFormation stack creation events in the CloudFormation User Guide."];
      lastOperations: LastOperations.t option
        [@ocaml.doc
          "Information about the most recent operations performed on this stack."]}
    let make ?stackId =
      fun ?stackName ->
        fun ?changeSetId ->
          fun ?description ->
            fun ?parameters ->
              fun ?creationTime ->
                fun ?deletionTime ->
                  fun ?lastUpdatedTime ->
                    fun ?rollbackConfiguration ->
                      fun ?stackStatus ->
                        fun ?stackStatusReason ->
                          fun ?disableRollback ->
                            fun ?notificationARNs ->
                              fun ?timeoutInMinutes ->
                                fun ?capabilities ->
                                  fun ?outputs ->
                                    fun ?roleARN ->
                                      fun ?tags ->
                                        fun ?enableTerminationProtection ->
                                          fun ?parentId ->
                                            fun ?rootId ->
                                              fun ?driftInformation ->
                                                fun ?retainExceptOnCreate ->
                                                  fun ?deletionMode ->
                                                    fun ?detailedStatus ->
                                                      fun ?lastOperations ->
                                                        fun () ->
                                                          {
                                                            stackId;
                                                            stackName;
                                                            changeSetId;
                                                            description;
                                                            parameters;
                                                            creationTime;
                                                            deletionTime;
                                                            lastUpdatedTime;
                                                            rollbackConfiguration;
                                                            stackStatus;
                                                            stackStatusReason;
                                                            disableRollback;
                                                            notificationARNs;
                                                            timeoutInMinutes;
                                                            capabilities;
                                                            outputs;
                                                            roleARN;
                                                            tags;
                                                            enableTerminationProtection;
                                                            parentId;
                                                            rootId;
                                                            driftInformation;
                                                            retainExceptOnCreate;
                                                            deletionMode;
                                                            detailedStatus;
                                                            lastOperations
                                                          }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("ChangeSetId", (Option.map x.changeSetId ~f:ChangeSetId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("DeletionTime",
          (Option.map x.deletionTime ~f:DeletionTime.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:LastUpdatedTime.to_value));
        ("RollbackConfiguration",
          (Option.map x.rollbackConfiguration
             ~f:RollbackConfiguration.to_value));
        ("StackStatus", (Option.map x.stackStatus ~f:StackStatus.to_value));
        ("StackStatusReason",
          (Option.map x.stackStatusReason ~f:StackStatusReason.to_value));
        ("DisableRollback",
          (Option.map x.disableRollback ~f:DisableRollback.to_value));
        ("NotificationARNs",
          (Option.map x.notificationARNs ~f:NotificationARNs.to_value));
        ("TimeoutInMinutes",
          (Option.map x.timeoutInMinutes ~f:TimeoutMinutes.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("Outputs", (Option.map x.outputs ~f:Outputs.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("EnableTerminationProtection",
          (Option.map x.enableTerminationProtection
             ~f:EnableTerminationProtection.to_value));
        ("ParentId", (Option.map x.parentId ~f:StackId.to_value));
        ("RootId", (Option.map x.rootId ~f:StackId.to_value));
        ("DriftInformation",
          (Option.map x.driftInformation ~f:StackDriftInformation.to_value));
        ("RetainExceptOnCreate",
          (Option.map x.retainExceptOnCreate ~f:RetainExceptOnCreate.to_value));
        ("DeletionMode",
          (Option.map x.deletionMode ~f:DeletionMode.to_value));
        ("DetailedStatus",
          (Option.map x.detailedStatus ~f:DetailedStatus.to_value));
        ("LastOperations",
          (Option.map x.lastOperations ~f:LastOperations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastOperations =
        (Option.map ~f:LastOperations.of_xml)
          (Xml.child xml_arg0 "LastOperations") in
      let detailedStatus =
        (Option.map ~f:DetailedStatus.of_xml)
          (Xml.child xml_arg0 "DetailedStatus") in
      let deletionMode =
        (Option.map ~f:DeletionMode.of_xml)
          (Xml.child xml_arg0 "DeletionMode") in
      let retainExceptOnCreate =
        (Option.map ~f:RetainExceptOnCreate.of_xml)
          (Xml.child xml_arg0 "RetainExceptOnCreate") in
      let driftInformation =
        (Option.map ~f:StackDriftInformation.of_xml)
          (Xml.child xml_arg0 "DriftInformation") in
      let rootId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "RootId") in
      let parentId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "ParentId") in
      let enableTerminationProtection =
        (Option.map ~f:EnableTerminationProtection.of_xml)
          (Xml.child xml_arg0 "EnableTerminationProtection") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let outputs =
        (Option.map ~f:Outputs.of_xml) (Xml.child xml_arg0 "Outputs") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let timeoutInMinutes =
        (Option.map ~f:TimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "TimeoutInMinutes") in
      let notificationARNs =
        (Option.map ~f:NotificationARNs.of_xml)
          (Xml.child xml_arg0 "NotificationARNs") in
      let disableRollback =
        (Option.map ~f:DisableRollback.of_xml)
          (Xml.child xml_arg0 "DisableRollback") in
      let stackStatusReason =
        (Option.map ~f:StackStatusReason.of_xml)
          (Xml.child xml_arg0 "StackStatusReason") in
      let stackStatus =
        (Option.map ~f:StackStatus.of_xml) (Xml.child xml_arg0 "StackStatus") in
      let rollbackConfiguration =
        (Option.map ~f:RollbackConfiguration.of_xml)
          (Xml.child xml_arg0 "RollbackConfiguration") in
      let lastUpdatedTime =
        (Option.map ~f:LastUpdatedTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let deletionTime =
        (Option.map ~f:DeletionTime.of_xml)
          (Xml.child xml_arg0 "DeletionTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let changeSetId =
        (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "ChangeSetId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?lastOperations ?detailedStatus ?deletionMode
        ?retainExceptOnCreate ?driftInformation ?rootId ?parentId
        ?enableTerminationProtection ?tags ?roleARN ?outputs ?capabilities
        ?timeoutInMinutes ?notificationARNs ?disableRollback
        ?stackStatusReason ?stackStatus ?rollbackConfiguration
        ?lastUpdatedTime ?deletionTime ?creationTime ?parameters ?description
        ?changeSetId ?stackName ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastOperations =
        field_map json__ "LastOperations" LastOperations.of_json in
      let detailedStatus =
        field_map json__ "DetailedStatus" DetailedStatus.of_json in
      let deletionMode = field_map json__ "DeletionMode" DeletionMode.of_json in
      let retainExceptOnCreate =
        field_map json__ "RetainExceptOnCreate" RetainExceptOnCreate.of_json in
      let driftInformation =
        field_map json__ "DriftInformation" StackDriftInformation.of_json in
      let rootId = field_map json__ "RootId" StackId.of_json in
      let parentId = field_map json__ "ParentId" StackId.of_json in
      let enableTerminationProtection =
        field_map json__ "EnableTerminationProtection"
          EnableTerminationProtection.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let outputs = field_map json__ "Outputs" Outputs.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let timeoutInMinutes =
        field_map json__ "TimeoutInMinutes" TimeoutMinutes.of_json in
      let notificationARNs =
        field_map json__ "NotificationARNs" NotificationARNs.of_json in
      let disableRollback =
        field_map json__ "DisableRollback" DisableRollback.of_json in
      let stackStatusReason =
        field_map json__ "StackStatusReason" StackStatusReason.of_json in
      let stackStatus = field_map json__ "StackStatus" StackStatus.of_json in
      let rollbackConfiguration =
        field_map json__ "RollbackConfiguration"
          RollbackConfiguration.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" LastUpdatedTime.of_json in
      let deletionTime = field_map json__ "DeletionTime" DeletionTime.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let changeSetId = field_map json__ "ChangeSetId" ChangeSetId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?lastOperations ?detailedStatus ?deletionMode
        ?retainExceptOnCreate ?driftInformation ?rootId ?parentId
        ?enableTerminationProtection ?tags ?roleARN ?outputs ?capabilities
        ?timeoutInMinutes ?notificationARNs ?disableRollback
        ?stackStatusReason ?stackStatus ?rollbackConfiguration
        ?lastUpdatedTime ?deletionTime ?creationTime ?parameters ?description
        ?changeSetId ?stackName ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Stack data type."]
module ExecutionRoleName =
  struct
    type nonrec t = string
    let context_ = "ExecutionRoleName"
    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_0-9+=,.@-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExecutionRoleName" j
    let to_json = simple_to_json to_value
  end
module StackSetDriftDetectionDetails =
  struct
    type nonrec t =
      {
      driftStatus: StackSetDriftStatus.t option
        [@ocaml.doc
          "Status of the StackSet's actual configuration compared to its expected template and parameter configuration. DRIFTED: One or more of the stack instances belonging to the StackSet differs from the expected template and parameter configuration. A stack instance is considered to have drifted if one or more of the resources in the associated stack have drifted. NOT_CHECKED: CloudFormation hasn't checked the StackSet for drift. IN_SYNC: All of the stack instances belonging to the StackSet stack match the expected template and parameter configuration."];
      driftDetectionStatus: StackSetDriftDetectionStatus.t option
        [@ocaml.doc
          "The status of the StackSet drift detection operation. COMPLETED: The drift detection operation completed without failing on any stack instances. FAILED: The drift detection operation exceeded the specified failure tolerance. PARTIAL_SUCCESS: The drift detection operation completed without exceeding the failure tolerance for the operation. IN_PROGRESS: The drift detection operation is currently being performed. STOPPED: The user has canceled the drift detection operation."];
      lastDriftCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when CloudFormation performed a drift detection operation on the StackSet. This value will be NULL for any StackSet that drift detection hasn't yet been performed on."];
      totalStackInstancesCount: TotalStackInstancesCount.t option
        [@ocaml.doc
          "The total number of stack instances belonging to this StackSet. The total number of stack instances is equal to the total of: Stack instances that match the StackSet configuration. Stack instances that have drifted from the StackSet configuration. Stack instances where the drift detection operation has failed. Stack instances currently being checked for drift."];
      driftedStackInstancesCount: DriftedStackInstancesCount.t option
        [@ocaml.doc
          "The number of stack instances that have drifted from the expected template and parameter configuration of the StackSet. A stack instance is considered to have drifted if one or more of the resources in the associated stack don't match their expected configuration."];
      inSyncStackInstancesCount: InSyncStackInstancesCount.t option
        [@ocaml.doc
          "The number of stack instances which match the expected template and parameter configuration of the StackSet."];
      inProgressStackInstancesCount: InProgressStackInstancesCount.t option
        [@ocaml.doc
          "The number of stack instances that are currently being checked for drift."];
      failedStackInstancesCount: FailedStackInstancesCount.t option
        [@ocaml.doc
          "The number of stack instances for which the drift detection operation failed."]}
    let make ?driftStatus =
      fun ?driftDetectionStatus ->
        fun ?lastDriftCheckTimestamp ->
          fun ?totalStackInstancesCount ->
            fun ?driftedStackInstancesCount ->
              fun ?inSyncStackInstancesCount ->
                fun ?inProgressStackInstancesCount ->
                  fun ?failedStackInstancesCount ->
                    fun () ->
                      {
                        driftStatus;
                        driftDetectionStatus;
                        lastDriftCheckTimestamp;
                        totalStackInstancesCount;
                        driftedStackInstancesCount;
                        inSyncStackInstancesCount;
                        inProgressStackInstancesCount;
                        failedStackInstancesCount
                      }
    let to_value x =
      structure_to_value
        [("DriftStatus",
           (Option.map x.driftStatus ~f:StackSetDriftStatus.to_value));
        ("DriftDetectionStatus",
          (Option.map x.driftDetectionStatus
             ~f:StackSetDriftDetectionStatus.to_value));
        ("LastDriftCheckTimestamp",
          (Option.map x.lastDriftCheckTimestamp ~f:Timestamp.to_value));
        ("TotalStackInstancesCount",
          (Option.map x.totalStackInstancesCount
             ~f:TotalStackInstancesCount.to_value));
        ("DriftedStackInstancesCount",
          (Option.map x.driftedStackInstancesCount
             ~f:DriftedStackInstancesCount.to_value));
        ("InSyncStackInstancesCount",
          (Option.map x.inSyncStackInstancesCount
             ~f:InSyncStackInstancesCount.to_value));
        ("InProgressStackInstancesCount",
          (Option.map x.inProgressStackInstancesCount
             ~f:InProgressStackInstancesCount.to_value));
        ("FailedStackInstancesCount",
          (Option.map x.failedStackInstancesCount
             ~f:FailedStackInstancesCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedStackInstancesCount =
        (Option.map ~f:FailedStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "FailedStackInstancesCount") in
      let inProgressStackInstancesCount =
        (Option.map ~f:InProgressStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "InProgressStackInstancesCount") in
      let inSyncStackInstancesCount =
        (Option.map ~f:InSyncStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "InSyncStackInstancesCount") in
      let driftedStackInstancesCount =
        (Option.map ~f:DriftedStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "DriftedStackInstancesCount") in
      let totalStackInstancesCount =
        (Option.map ~f:TotalStackInstancesCount.of_xml)
          (Xml.child xml_arg0 "TotalStackInstancesCount") in
      let lastDriftCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastDriftCheckTimestamp") in
      let driftDetectionStatus =
        (Option.map ~f:StackSetDriftDetectionStatus.of_xml)
          (Xml.child xml_arg0 "DriftDetectionStatus") in
      let driftStatus =
        (Option.map ~f:StackSetDriftStatus.of_xml)
          (Xml.child xml_arg0 "DriftStatus") in
      make ?failedStackInstancesCount ?inProgressStackInstancesCount
        ?inSyncStackInstancesCount ?driftedStackInstancesCount
        ?totalStackInstancesCount ?lastDriftCheckTimestamp
        ?driftDetectionStatus ?driftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedStackInstancesCount =
        field_map json__ "FailedStackInstancesCount"
          FailedStackInstancesCount.of_json in
      let inProgressStackInstancesCount =
        field_map json__ "InProgressStackInstancesCount"
          InProgressStackInstancesCount.of_json in
      let inSyncStackInstancesCount =
        field_map json__ "InSyncStackInstancesCount"
          InSyncStackInstancesCount.of_json in
      let driftedStackInstancesCount =
        field_map json__ "DriftedStackInstancesCount"
          DriftedStackInstancesCount.of_json in
      let totalStackInstancesCount =
        field_map json__ "TotalStackInstancesCount"
          TotalStackInstancesCount.of_json in
      let lastDriftCheckTimestamp =
        field_map json__ "LastDriftCheckTimestamp" Timestamp.of_json in
      let driftDetectionStatus =
        field_map json__ "DriftDetectionStatus"
          StackSetDriftDetectionStatus.of_json in
      let driftStatus =
        field_map json__ "DriftStatus" StackSetDriftStatus.of_json in
      make ?failedStackInstancesCount ?inProgressStackInstancesCount
        ?inSyncStackInstancesCount ?driftedStackInstancesCount
        ?totalStackInstancesCount ?lastDriftCheckTimestamp
        ?driftDetectionStatus ?driftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information about the drift status of the StackSet. For StackSets, contains information about the last completed drift operation performed on the StackSet. Information about drift operations in-progress isn't included. For StackSet operations, includes information about drift operations currently being performed on the StackSet. For more information, see Performing drift detection on CloudFormation StackSets in the CloudFormation User Guide."]
module DeploymentTargets =
  struct
    type nonrec t =
      {
      accounts: AccountList.t option
        [@ocaml.doc
          "The Amazon Web Services account IDs where you want to perform stack operations. How these accounts are used depends on the AccountFilterType property. If you have many account numbers, you can provide those accounts using the AccountsUrl property instead."];
      accountsUrl: AccountsUrl.t option
        [@ocaml.doc
          "The Amazon S3 URL path to a file that contains a list of Amazon Web Services account IDs. The file format must be either .csv or .txt, and the data can be comma-separated or new-line-separated. There is currently a 10MB limit for the data (approximately 800,000 accounts). This property serves the same purpose as Accounts but allows you to specify a large number of accounts."];
      organizationalUnitIds: OrganizationalUnitIdList.t option
        [@ocaml.doc
          "The organization root ID or organizational unit (OU) IDs where you want to perform stack operations. CloudFormation will perform operations on accounts within these OUs and their child OUs."];
      accountFilterType: AccountFilterType.t option
        [@ocaml.doc
          "Refines which accounts will have stack operations performed on them by specifying how to use the Accounts and OrganizationalUnitIds properties together. The following values determine how CloudFormation selects target accounts: INTERSECTION: Performs stack operations only on specific individual accounts within the selected OUs. Only accounts that are both specified in the Accounts property and belong to the specified OUs will be targeted. DIFFERENCE: Performs stack operations on all accounts in the selected OUs except for specific accounts listed in the Accounts property. This enables you to exclude certain accounts within an OU, such as suspended accounts. UNION: Performs stack operations on the specified OUs plus additional individual accounts listed in the Accounts property. This is the default value if AccountFilterType is not provided. This lets you target an entire OU and individual accounts from a different OU in one request. Note that UNION is not supported for CreateStackInstances operations. NONE: Performs stack operations on all accounts in the specified organizational units (OUs)."]}
    let make ?accounts =
      fun ?accountsUrl ->
        fun ?organizationalUnitIds ->
          fun ?accountFilterType ->
            fun () ->
              {
                accounts;
                accountsUrl;
                organizationalUnitIds;
                accountFilterType
              }
    let to_value x =
      structure_to_value
        [("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("AccountsUrl", (Option.map x.accountsUrl ~f:AccountsUrl.to_value));
        ("OrganizationalUnitIds",
          (Option.map x.organizationalUnitIds
             ~f:OrganizationalUnitIdList.to_value));
        ("AccountFilterType",
          (Option.map x.accountFilterType ~f:AccountFilterType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountFilterType =
        (Option.map ~f:AccountFilterType.of_xml)
          (Xml.child xml_arg0 "AccountFilterType") in
      let organizationalUnitIds =
        (Option.map ~f:OrganizationalUnitIdList.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitIds") in
      let accountsUrl =
        (Option.map ~f:AccountsUrl.of_xml) (Xml.child xml_arg0 "AccountsUrl") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      make ?accountFilterType ?organizationalUnitIds ?accountsUrl ?accounts
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountFilterType =
        field_map json__ "AccountFilterType" AccountFilterType.of_json in
      let organizationalUnitIds =
        field_map json__ "OrganizationalUnitIds"
          OrganizationalUnitIdList.of_json in
      let accountsUrl = field_map json__ "AccountsUrl" AccountsUrl.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      make ?accountFilterType ?organizationalUnitIds ?accountsUrl ?accounts
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the Organizations accounts where you want to create, update, or delete stack instances. You can target either your entire organization or specific accounts using organizational units (OUs) and account filter options. CloudFormation doesn't deploy stack instances to the organization management account, even if the organization management account is in your organization or in an OU in your organization. When performing create operations, if you specify both OrganizationalUnitIds and Accounts, you must also specify the AccountFilterType property."]
module RetainStacksNullable =
  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 StackResource =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc "The name associated with the stack."];
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource supported by CloudFormation."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Type of resource. For more information, see Amazon Web Services resource and property types reference in the CloudFormation User Guide."];
      timestamp: Timestamp.t option
        [@ocaml.doc "Time the status was updated."];
      resourceStatus: ResourceStatus.t option
        [@ocaml.doc "Current status of the resource."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc "Success/failure message associated with the resource."];
      description: Description.t option
        [@ocaml.doc "User defined description associated with the resource."];
      driftInformation: StackResourceDriftInformation.t option
        [@ocaml.doc
          "Information about whether the resource's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."];
      moduleInfo: ModuleInfo.t option
        [@ocaml.doc
          "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template."]}
    let make ?stackName =
      fun ?stackId ->
        fun ?logicalResourceId ->
          fun ?physicalResourceId ->
            fun ?resourceType ->
              fun ?timestamp ->
                fun ?resourceStatus ->
                  fun ?resourceStatusReason ->
                    fun ?description ->
                      fun ?driftInformation ->
                        fun ?moduleInfo ->
                          fun () ->
                            {
                              stackName;
                              stackId;
                              logicalResourceId;
                              physicalResourceId;
                              resourceType;
                              timestamp;
                              resourceStatus;
                              resourceStatusReason;
                              description;
                              driftInformation;
                              moduleInfo
                            }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus ~f:ResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DriftInformation",
          (Option.map x.driftInformation
             ~f:StackResourceDriftInformation.to_value));
        ("ModuleInfo", (Option.map x.moduleInfo ~f:ModuleInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moduleInfo =
        (Option.map ~f:ModuleInfo.of_xml) (Xml.child xml_arg0 "ModuleInfo") in
      let driftInformation =
        (Option.map ~f:StackResourceDriftInformation.of_xml)
          (Xml.child xml_arg0 "DriftInformation") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?moduleInfo ?driftInformation ?description ?resourceStatusReason
        ?resourceStatus ?timestamp ?resourceType ?physicalResourceId
        ?logicalResourceId ?stackId ?stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moduleInfo = field_map json__ "ModuleInfo" ModuleInfo.of_json in
      let driftInformation =
        field_map json__ "DriftInformation"
          StackResourceDriftInformation.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus" ResourceStatus.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      make ?moduleInfo ?driftInformation ?description ?resourceStatusReason
        ?resourceStatus ?timestamp ?resourceType ?physicalResourceId
        ?logicalResourceId ?stackId ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The StackResource data type."]
module Metadata =
  struct
    type nonrec t = string
    let context_ = "Metadata"
    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:"Metadata" j
    let to_json = simple_to_json to_value
  end
module StackResourceDrift =
  struct
    type nonrec t =
      {
      stackId: StackId.t option [@ocaml.doc "The ID of the stack."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource supported by CloudFormation."];
      physicalResourceIdContext: PhysicalResourceIdContext.t option
        [@ocaml.doc
          "Context information that enables CloudFormation to uniquely identify a resource. CloudFormation uses context key-value pairs in cases where a resource's logical and physical IDs aren't enough to uniquely identify that resource. Each context key-value pair specifies a unique resource that contains the targeted resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of the resource."];
      expectedProperties: Properties.t option
        [@ocaml.doc
          "A JSON structure that contains the expected property values of the stack resource, as defined in the stack template and any values specified as template parameters. For resources whose StackResourceDriftStatus is DELETED, this structure will not be present."];
      actualProperties: Properties.t option
        [@ocaml.doc
          "A JSON structure that contains the actual property values of the stack resource. For resources whose StackResourceDriftStatus is DELETED, this structure will not be present."];
      propertyDifferences: PropertyDifferences.t option
        [@ocaml.doc
          "A collection of the resource properties whose actual values differ from their expected values. These will be present only for resources whose StackResourceDriftStatus is MODIFIED."];
      stackResourceDriftStatus: StackResourceDriftStatus.t option
        [@ocaml.doc
          "Status of the resource's actual configuration compared to its expected configuration. DELETED: The resource differs from its expected template configuration because the resource has been deleted. MODIFIED: One or more resource properties differ from their expected values (as defined in the stack template and any values specified as template parameters). IN_SYNC: The resource's actual configuration matches its expected template configuration. NOT_CHECKED: CloudFormation does not currently return this value. UNKNOWN: CloudFormation could not run drift detection for the resource. See the DriftStatusReason for details."];
      timestamp: Timestamp.t option
        [@ocaml.doc
          "Time at which CloudFormation performed drift detection on the stack resource."];
      moduleInfo: ModuleInfo.t option
        [@ocaml.doc
          "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template."];
      driftStatusReason: StackResourceDriftStatusReason.t option
        [@ocaml.doc "The reason for the drift status."]}
    let make ?stackId =
      fun ?logicalResourceId ->
        fun ?physicalResourceId ->
          fun ?physicalResourceIdContext ->
            fun ?resourceType ->
              fun ?expectedProperties ->
                fun ?actualProperties ->
                  fun ?propertyDifferences ->
                    fun ?stackResourceDriftStatus ->
                      fun ?timestamp ->
                        fun ?moduleInfo ->
                          fun ?driftStatusReason ->
                            fun () ->
                              {
                                stackId;
                                logicalResourceId;
                                physicalResourceId;
                                physicalResourceIdContext;
                                resourceType;
                                expectedProperties;
                                actualProperties;
                                propertyDifferences;
                                stackResourceDriftStatus;
                                timestamp;
                                moduleInfo;
                                driftStatusReason
                              }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("PhysicalResourceIdContext",
          (Option.map x.physicalResourceIdContext
             ~f:PhysicalResourceIdContext.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ExpectedProperties",
          (Option.map x.expectedProperties ~f:Properties.to_value));
        ("ActualProperties",
          (Option.map x.actualProperties ~f:Properties.to_value));
        ("PropertyDifferences",
          (Option.map x.propertyDifferences ~f:PropertyDifferences.to_value));
        ("StackResourceDriftStatus",
          (Option.map x.stackResourceDriftStatus
             ~f:StackResourceDriftStatus.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("ModuleInfo", (Option.map x.moduleInfo ~f:ModuleInfo.to_value));
        ("DriftStatusReason",
          (Option.map x.driftStatusReason
             ~f:StackResourceDriftStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let driftStatusReason =
        (Option.map ~f:StackResourceDriftStatusReason.of_xml)
          (Xml.child xml_arg0 "DriftStatusReason") in
      let moduleInfo =
        (Option.map ~f:ModuleInfo.of_xml) (Xml.child xml_arg0 "ModuleInfo") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let stackResourceDriftStatus =
        (Option.map ~f:StackResourceDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackResourceDriftStatus") in
      let propertyDifferences =
        (Option.map ~f:PropertyDifferences.of_xml)
          (Xml.child xml_arg0 "PropertyDifferences") in
      let actualProperties =
        (Option.map ~f:Properties.of_xml)
          (Xml.child xml_arg0 "ActualProperties") in
      let expectedProperties =
        (Option.map ~f:Properties.of_xml)
          (Xml.child xml_arg0 "ExpectedProperties") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceIdContext =
        (Option.map ~f:PhysicalResourceIdContext.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceIdContext") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?driftStatusReason ?moduleInfo ?timestamp
        ?stackResourceDriftStatus ?propertyDifferences ?actualProperties
        ?expectedProperties ?resourceType ?physicalResourceIdContext
        ?physicalResourceId ?logicalResourceId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let driftStatusReason =
        field_map json__ "DriftStatusReason"
          StackResourceDriftStatusReason.of_json in
      let moduleInfo = field_map json__ "ModuleInfo" ModuleInfo.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let stackResourceDriftStatus =
        field_map json__ "StackResourceDriftStatus"
          StackResourceDriftStatus.of_json in
      let propertyDifferences =
        field_map json__ "PropertyDifferences" PropertyDifferences.of_json in
      let actualProperties =
        field_map json__ "ActualProperties" Properties.of_json in
      let expectedProperties =
        field_map json__ "ExpectedProperties" Properties.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceIdContext =
        field_map json__ "PhysicalResourceIdContext"
          PhysicalResourceIdContext.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?driftStatusReason ?moduleInfo ?timestamp
        ?stackResourceDriftStatus ?propertyDifferences ?actualProperties
        ?expectedProperties ?resourceType ?physicalResourceIdContext
        ?physicalResourceId ?logicalResourceId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the drift information for a resource that has been checked for drift. This includes actual and expected property values for resources in which CloudFormation has detected drift. Only resource properties explicitly defined in the stack template are checked for drift. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection. Resources that don't currently support drift detection can't be checked. For a list of resources that support drift detection, see Resource type support for imports and drift detection. Use DetectStackResourceDrift to detect drift on individual resources, or DetectStackDrift to detect drift on all resources in a given stack that support drift detection."]
module StackEvent =
  struct
    type nonrec t =
      {
      stackId: StackId.t option
        [@ocaml.doc "The unique ID name of the instance of the stack."];
      eventId: EventId.t option
        [@ocaml.doc "The unique identifier of this event."];
      stackName: StackName.t option
        [@ocaml.doc "The name associated with a stack."];
      operationId: OperationId.t option
        [@ocaml.doc
          "The unique identifier of the operation that generated this stack event."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier associated with the physical instance of the resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Type of resource. For more information, see Amazon Web Services resource and property types reference in the CloudFormation User Guide."];
      timestamp: Timestamp.t option
        [@ocaml.doc "Time the status was updated."];
      resourceStatus: ResourceStatus.t option
        [@ocaml.doc "Current status of the resource."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc "Success/failure message associated with the resource."];
      resourceProperties: ResourceProperties.t option
        [@ocaml.doc "BLOB of the properties used to create the resource."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "The token passed to the operation that generated this event. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a CreateStack operation with the token token1, then all the StackEvents generated by that operation will have ClientRequestToken set as token1. In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format Console-StackOperation-ID, which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002."];
      hookType: HookType.t option [@ocaml.doc "The name of the Hook."];
      hookStatus: HookStatus.t option
        [@ocaml.doc "Provides the status of the change set Hook."];
      hookStatusReason: HookStatusReason.t option
        [@ocaml.doc "Provides the reason for the Hook status."];
      hookInvocationPoint: HookInvocationPoint.t option
        [@ocaml.doc
          "The specific point in the provisioning process where the Hook is invoked."];
      hookInvocationId: HookInvocationId.t option
        [@ocaml.doc "The unique identifier of the Hook invocation."];
      hookFailureMode: HookFailureMode.t option
        [@ocaml.doc
          "Specify the Hook failure mode for non-compliant resources in the followings ways. FAIL Stops provisioning resources. WARN Allows provisioning to continue with a warning message."];
      detailedStatus: DetailedStatus.t option
        [@ocaml.doc
          "An optional field that contains information about the detailed status of the stack event. CONFIGURATION_COMPLETE - all of the resources in the stack have reached that event. For more information, see Understand CloudFormation stack creation events in the CloudFormation User Guide. VALIDATION_FAILED - template validation failed because of invalid properties in the template. The ResourceStatusReason field shows what properties are defined incorrectly."]}
    let make ?stackId =
      fun ?eventId ->
        fun ?stackName ->
          fun ?operationId ->
            fun ?logicalResourceId ->
              fun ?physicalResourceId ->
                fun ?resourceType ->
                  fun ?timestamp ->
                    fun ?resourceStatus ->
                      fun ?resourceStatusReason ->
                        fun ?resourceProperties ->
                          fun ?clientRequestToken ->
                            fun ?hookType ->
                              fun ?hookStatus ->
                                fun ?hookStatusReason ->
                                  fun ?hookInvocationPoint ->
                                    fun ?hookInvocationId ->
                                      fun ?hookFailureMode ->
                                        fun ?detailedStatus ->
                                          fun () ->
                                            {
                                              stackId;
                                              eventId;
                                              stackName;
                                              operationId;
                                              logicalResourceId;
                                              physicalResourceId;
                                              resourceType;
                                              timestamp;
                                              resourceStatus;
                                              resourceStatusReason;
                                              resourceProperties;
                                              clientRequestToken;
                                              hookType;
                                              hookStatus;
                                              hookStatusReason;
                                              hookInvocationPoint;
                                              hookInvocationId;
                                              hookFailureMode;
                                              detailedStatus
                                            }
    let to_value x =
      structure_to_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("EventId", (Option.map x.eventId ~f:EventId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus ~f:ResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("ResourceProperties",
          (Option.map x.resourceProperties ~f:ResourceProperties.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("HookType", (Option.map x.hookType ~f:HookType.to_value));
        ("HookStatus", (Option.map x.hookStatus ~f:HookStatus.to_value));
        ("HookStatusReason",
          (Option.map x.hookStatusReason ~f:HookStatusReason.to_value));
        ("HookInvocationPoint",
          (Option.map x.hookInvocationPoint ~f:HookInvocationPoint.to_value));
        ("HookInvocationId",
          (Option.map x.hookInvocationId ~f:HookInvocationId.to_value));
        ("HookFailureMode",
          (Option.map x.hookFailureMode ~f:HookFailureMode.to_value));
        ("DetailedStatus",
          (Option.map x.detailedStatus ~f:DetailedStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detailedStatus =
        (Option.map ~f:DetailedStatus.of_xml)
          (Xml.child xml_arg0 "DetailedStatus") in
      let hookFailureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "HookFailureMode") in
      let hookInvocationId =
        (Option.map ~f:HookInvocationId.of_xml)
          (Xml.child xml_arg0 "HookInvocationId") in
      let hookInvocationPoint =
        (Option.map ~f:HookInvocationPoint.of_xml)
          (Xml.child xml_arg0 "HookInvocationPoint") in
      let hookStatusReason =
        (Option.map ~f:HookStatusReason.of_xml)
          (Xml.child xml_arg0 "HookStatusReason") in
      let hookStatus =
        (Option.map ~f:HookStatus.of_xml) (Xml.child xml_arg0 "HookStatus") in
      let hookType =
        (Option.map ~f:HookType.of_xml) (Xml.child xml_arg0 "HookType") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let resourceProperties =
        (Option.map ~f:ResourceProperties.of_xml)
          (Xml.child xml_arg0 "ResourceProperties") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "EventId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?detailedStatus ?hookFailureMode ?hookInvocationId
        ?hookInvocationPoint ?hookStatusReason ?hookStatus ?hookType
        ?clientRequestToken ?resourceProperties ?resourceStatusReason
        ?resourceStatus ?timestamp ?resourceType ?physicalResourceId
        ?logicalResourceId ?operationId ?stackName ?eventId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detailedStatus =
        field_map json__ "DetailedStatus" DetailedStatus.of_json in
      let hookFailureMode =
        field_map json__ "HookFailureMode" HookFailureMode.of_json in
      let hookInvocationId =
        field_map json__ "HookInvocationId" HookInvocationId.of_json in
      let hookInvocationPoint =
        field_map json__ "HookInvocationPoint" HookInvocationPoint.of_json in
      let hookStatusReason =
        field_map json__ "HookStatusReason" HookStatusReason.of_json in
      let hookStatus = field_map json__ "HookStatus" HookStatus.of_json in
      let hookType = field_map json__ "HookType" HookType.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let resourceProperties =
        field_map json__ "ResourceProperties" ResourceProperties.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus" ResourceStatus.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let eventId = field_map json__ "EventId" EventId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?detailedStatus ?hookFailureMode ?hookInvocationId
        ?hookInvocationPoint ?hookStatusReason ?hookStatus ?hookType
        ?clientRequestToken ?resourceProperties ?resourceStatusReason
        ?resourceStatus ?timestamp ?resourceType ?physicalResourceId
        ?logicalResourceId ?operationId ?stackName ?eventId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The StackEvent data type."]
module ResourceDetail =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of the resource, such as AWS::DynamoDB::Table. For the list of supported resources, see Resource type support for imports and drift detection In the CloudFormation User Guide"];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical id for this resource in the final generated template."];
      resourceIdentifier: ResourceIdentifierProperties.t option
        [@ocaml.doc
          "A list of up to 256 key-value pairs that identifies the resource in the generated template. The key is the name of one of the primary identifiers for the resource. (Primary identifiers are specified in the primaryIdentifier list in the resource schema.) The value is the value of that primary identifier. For example, for a AWS::DynamoDB::Table resource, the primary identifiers is TableName so the key-value pair could be \"TableName\": \"MyDDBTable\". For more information, see primaryIdentifier in the CloudFormation Command Line Interface (CLI) User Guide."];
      resourceStatus: GeneratedTemplateResourceStatus.t option
        [@ocaml.doc
          "Status of the processing of a resource in a generated template. InProgress The resource processing is still in progress. Complete The resource processing is complete. Pending The resource processing is pending. Failed The resource processing has failed."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc
          "The reason for the resource detail, providing more information if a failure happened."];
      warnings: WarningDetails.t option
        [@ocaml.doc "The warnings generated for this resource."]}
    let make ?resourceType =
      fun ?logicalResourceId ->
        fun ?resourceIdentifier ->
          fun ?resourceStatus ->
            fun ?resourceStatusReason ->
              fun ?warnings ->
                fun () ->
                  {
                    resourceType;
                    logicalResourceId;
                    resourceIdentifier;
                    resourceStatus;
                    resourceStatusReason;
                    warnings
                  }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("ResourceIdentifier",
          (Option.map x.resourceIdentifier
             ~f:ResourceIdentifierProperties.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus
             ~f:GeneratedTemplateResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("Warnings", (Option.map x.warnings ~f:WarningDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let warnings =
        (Option.map ~f:WarningDetails.of_xml) (Xml.child xml_arg0 "Warnings") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:GeneratedTemplateResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let resourceIdentifier =
        (Option.map ~f:ResourceIdentifierProperties.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifier") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?warnings ?resourceStatusReason ?resourceStatus
        ?resourceIdentifier ?logicalResourceId ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warnings = field_map json__ "Warnings" WarningDetails.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus"
          GeneratedTemplateResourceStatus.of_json in
      let resourceIdentifier =
        field_map json__ "ResourceIdentifier"
          ResourceIdentifierProperties.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?warnings ?resourceStatusReason ?resourceStatus
        ?resourceIdentifier ?logicalResourceId ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a resource in a generated template"]
module ResourcesFailed =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ResourcesFailed" 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 ResourcesPending =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ResourcesPending" 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 ResourcesProcessing =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ResourcesProcessing" 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 ResourcesSucceeded =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ResourcesSucceeded" 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 OperationEvent =
  struct
    type nonrec t =
      {
      eventId: EventId.t option
        [@ocaml.doc "A unique identifier for this event."];
      stackId: StackId.t option
        [@ocaml.doc "The unique ID name of the instance of the stack."];
      operationId: OperationId.t option
        [@ocaml.doc
          "The unique identifier of the operation this event belongs to."];
      operationType: OperationType.t option
        [@ocaml.doc "The type of operation."];
      operationStatus: BeaconStackOperationStatus.t option
        [@ocaml.doc "The current status of the operation."];
      eventType: EventType.t option [@ocaml.doc "The type of event."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource as specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource."];
      resourceType: ResourceType.t option [@ocaml.doc "Type of resource."];
      timestamp: Timestamp.t option
        [@ocaml.doc "Time the status was updated."];
      startTime: Timestamp.t option
        [@ocaml.doc "The time when the event started."];
      endTime: Timestamp.t option
        [@ocaml.doc "The time when the event ended."];
      resourceStatus: ResourceStatus.t option
        [@ocaml.doc "Current status of the resource."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc
          "Success or failure message associated with the resource."];
      resourceProperties: ResourceProperties.t option
        [@ocaml.doc "The properties used to create the resource."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for the request that initiated this operation."];
      hookType: HookType.t option
        [@ocaml.doc "The type name of the Hook that was invoked."];
      hookStatus: HookStatus.t option
        [@ocaml.doc "The status of the Hook invocation."];
      hookStatusReason: HookStatusReason.t option
        [@ocaml.doc "Additional information about the Hook status."];
      hookInvocationPoint: HookInvocationPoint.t option
        [@ocaml.doc
          "The point in the operation lifecycle when the Hook was invoked."];
      hookFailureMode: HookFailureMode.t option
        [@ocaml.doc "Specifies how Hook failures are handled."];
      detailedStatus: DetailedStatus.t option
        [@ocaml.doc "Additional status information about the operation."];
      validationFailureMode: HookFailureMode.t option
        [@ocaml.doc "Specifies how validation failures are handled."];
      validationName: ValidationName.t option
        [@ocaml.doc "The name of the validation that was performed."];
      validationStatus: ValidationStatus.t option
        [@ocaml.doc "The status of the validation."];
      validationStatusReason: ValidationStatusReason.t option
        [@ocaml.doc "Additional information about the validation status."];
      validationPath: ValidationPath.t option
        [@ocaml.doc
          "The path within the resource where the validation was applied."]}
    let make ?eventId =
      fun ?stackId ->
        fun ?operationId ->
          fun ?operationType ->
            fun ?operationStatus ->
              fun ?eventType ->
                fun ?logicalResourceId ->
                  fun ?physicalResourceId ->
                    fun ?resourceType ->
                      fun ?timestamp ->
                        fun ?startTime ->
                          fun ?endTime ->
                            fun ?resourceStatus ->
                              fun ?resourceStatusReason ->
                                fun ?resourceProperties ->
                                  fun ?clientRequestToken ->
                                    fun ?hookType ->
                                      fun ?hookStatus ->
                                        fun ?hookStatusReason ->
                                          fun ?hookInvocationPoint ->
                                            fun ?hookFailureMode ->
                                              fun ?detailedStatus ->
                                                fun ?validationFailureMode ->
                                                  fun ?validationName ->
                                                    fun ?validationStatus ->
                                                      fun
                                                        ?validationStatusReason
                                                        ->
                                                        fun ?validationPath
                                                          ->
                                                          fun () ->
                                                            {
                                                              eventId;
                                                              stackId;
                                                              operationId;
                                                              operationType;
                                                              operationStatus;
                                                              eventType;
                                                              logicalResourceId;
                                                              physicalResourceId;
                                                              resourceType;
                                                              timestamp;
                                                              startTime;
                                                              endTime;
                                                              resourceStatus;
                                                              resourceStatusReason;
                                                              resourceProperties;
                                                              clientRequestToken;
                                                              hookType;
                                                              hookStatus;
                                                              hookStatusReason;
                                                              hookInvocationPoint;
                                                              hookFailureMode;
                                                              detailedStatus;
                                                              validationFailureMode;
                                                              validationName;
                                                              validationStatus;
                                                              validationStatusReason;
                                                              validationPath
                                                            }
    let to_value x =
      structure_to_value
        [("EventId", (Option.map x.eventId ~f:EventId.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("OperationType",
          (Option.map x.operationType ~f:OperationType.to_value));
        ("OperationStatus",
          (Option.map x.operationStatus
             ~f:BeaconStackOperationStatus.to_value));
        ("EventType", (Option.map x.eventType ~f:EventType.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus ~f:ResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("ResourceProperties",
          (Option.map x.resourceProperties ~f:ResourceProperties.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("HookType", (Option.map x.hookType ~f:HookType.to_value));
        ("HookStatus", (Option.map x.hookStatus ~f:HookStatus.to_value));
        ("HookStatusReason",
          (Option.map x.hookStatusReason ~f:HookStatusReason.to_value));
        ("HookInvocationPoint",
          (Option.map x.hookInvocationPoint ~f:HookInvocationPoint.to_value));
        ("HookFailureMode",
          (Option.map x.hookFailureMode ~f:HookFailureMode.to_value));
        ("DetailedStatus",
          (Option.map x.detailedStatus ~f:DetailedStatus.to_value));
        ("ValidationFailureMode",
          (Option.map x.validationFailureMode ~f:HookFailureMode.to_value));
        ("ValidationName",
          (Option.map x.validationName ~f:ValidationName.to_value));
        ("ValidationStatus",
          (Option.map x.validationStatus ~f:ValidationStatus.to_value));
        ("ValidationStatusReason",
          (Option.map x.validationStatusReason
             ~f:ValidationStatusReason.to_value));
        ("ValidationPath",
          (Option.map x.validationPath ~f:ValidationPath.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationPath =
        (Option.map ~f:ValidationPath.of_xml)
          (Xml.child xml_arg0 "ValidationPath") in
      let validationStatusReason =
        (Option.map ~f:ValidationStatusReason.of_xml)
          (Xml.child xml_arg0 "ValidationStatusReason") in
      let validationStatus =
        (Option.map ~f:ValidationStatus.of_xml)
          (Xml.child xml_arg0 "ValidationStatus") in
      let validationName =
        (Option.map ~f:ValidationName.of_xml)
          (Xml.child xml_arg0 "ValidationName") in
      let validationFailureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "ValidationFailureMode") in
      let detailedStatus =
        (Option.map ~f:DetailedStatus.of_xml)
          (Xml.child xml_arg0 "DetailedStatus") in
      let hookFailureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "HookFailureMode") in
      let hookInvocationPoint =
        (Option.map ~f:HookInvocationPoint.of_xml)
          (Xml.child xml_arg0 "HookInvocationPoint") in
      let hookStatusReason =
        (Option.map ~f:HookStatusReason.of_xml)
          (Xml.child xml_arg0 "HookStatusReason") in
      let hookStatus =
        (Option.map ~f:HookStatus.of_xml) (Xml.child xml_arg0 "HookStatus") in
      let hookType =
        (Option.map ~f:HookType.of_xml) (Xml.child xml_arg0 "HookType") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let resourceProperties =
        (Option.map ~f:ResourceProperties.of_xml)
          (Xml.child xml_arg0 "ResourceProperties") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let eventType =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "EventType") in
      let operationStatus =
        (Option.map ~f:BeaconStackOperationStatus.of_xml)
          (Xml.child xml_arg0 "OperationStatus") in
      let operationType =
        (Option.map ~f:OperationType.of_xml)
          (Xml.child xml_arg0 "OperationType") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "EventId") in
      make ?validationPath ?validationStatusReason ?validationStatus
        ?validationName ?validationFailureMode ?detailedStatus
        ?hookFailureMode ?hookInvocationPoint ?hookStatusReason ?hookStatus
        ?hookType ?clientRequestToken ?resourceProperties
        ?resourceStatusReason ?resourceStatus ?endTime ?startTime ?timestamp
        ?resourceType ?physicalResourceId ?logicalResourceId ?eventType
        ?operationStatus ?operationType ?operationId ?stackId ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationPath =
        field_map json__ "ValidationPath" ValidationPath.of_json in
      let validationStatusReason =
        field_map json__ "ValidationStatusReason"
          ValidationStatusReason.of_json in
      let validationStatus =
        field_map json__ "ValidationStatus" ValidationStatus.of_json in
      let validationName =
        field_map json__ "ValidationName" ValidationName.of_json in
      let validationFailureMode =
        field_map json__ "ValidationFailureMode" HookFailureMode.of_json in
      let detailedStatus =
        field_map json__ "DetailedStatus" DetailedStatus.of_json in
      let hookFailureMode =
        field_map json__ "HookFailureMode" HookFailureMode.of_json in
      let hookInvocationPoint =
        field_map json__ "HookInvocationPoint" HookInvocationPoint.of_json in
      let hookStatusReason =
        field_map json__ "HookStatusReason" HookStatusReason.of_json in
      let hookStatus = field_map json__ "HookStatus" HookStatus.of_json in
      let hookType = field_map json__ "HookType" HookType.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let resourceProperties =
        field_map json__ "ResourceProperties" ResourceProperties.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus" ResourceStatus.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let eventType = field_map json__ "EventType" EventType.of_json in
      let operationStatus =
        field_map json__ "OperationStatus" BeaconStackOperationStatus.of_json in
      let operationType =
        field_map json__ "OperationType" OperationType.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let eventId = field_map json__ "EventId" EventId.of_json in
      make ?validationPath ?validationStatusReason ?validationStatus
        ?validationName ?validationFailureMode ?detailedStatus
        ?hookFailureMode ?hookInvocationPoint ?hookStatusReason ?hookStatus
        ?hookType ?clientRequestToken ?resourceProperties
        ?resourceStatusReason ?resourceStatus ?endTime ?startTime ?timestamp
        ?resourceType ?physicalResourceId ?logicalResourceId ?eventType
        ?operationStatus ?operationType ?operationId ?stackId ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about an event that occurred during a CloudFormation operation."]
module FailedEventsFilter =
  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 Change =
  struct
    type nonrec t =
      {
      type_: ChangeType.t option
        [@ocaml.doc
          "The type of entity that CloudFormation changes. Resource This change is for a resource."];
      hookInvocationCount: HookInvocationCount.t option
        [@ocaml.doc
          "Is either null, if no Hooks invoke for the resource, or contains the number of Hooks that will invoke for the resource."];
      resourceChange: ResourceChange.t option
        [@ocaml.doc
          "A ResourceChange structure that describes the resource and action that CloudFormation will perform."]}
    let make ?type_ =
      fun ?hookInvocationCount ->
        fun ?resourceChange ->
          fun () -> { type_; hookInvocationCount; resourceChange }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ChangeType.to_value));
        ("HookInvocationCount",
          (Option.map x.hookInvocationCount ~f:HookInvocationCount.to_value));
        ("ResourceChange",
          (Option.map x.resourceChange ~f:ResourceChange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceChange =
        (Option.map ~f:ResourceChange.of_xml)
          (Xml.child xml_arg0 "ResourceChange") in
      let hookInvocationCount =
        (Option.map ~f:HookInvocationCount.of_xml)
          (Xml.child xml_arg0 "HookInvocationCount") in
      let type_ =
        (Option.map ~f:ChangeType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?resourceChange ?hookInvocationCount ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceChange =
        field_map json__ "ResourceChange" ResourceChange.of_json in
      let hookInvocationCount =
        field_map json__ "HookInvocationCount" HookInvocationCount.of_json in
      let type_ = field_map json__ "Type" ChangeType.of_json in
      make ?resourceChange ?hookInvocationCount ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Change structure describes the changes CloudFormation will perform if you execute the change set."]
module ChangeSetHook =
  struct
    type nonrec t =
      {
      invocationPoint: HookInvocationPoint.t option
        [@ocaml.doc
          "The specific point in the provisioning process where the Hook is invoked."];
      failureMode: HookFailureMode.t option
        [@ocaml.doc
          "Specify the Hook failure mode for non-compliant resources in the followings ways. FAIL Stops provisioning resources. WARN Allows provisioning to continue with a warning message."];
      typeName: HookTypeName.t option
        [@ocaml.doc
          "The unique name for your Hook. Specifies a three-part namespace for your Hook, with a recommended pattern of Organization::Service::Hook. The following organization namespaces are reserved and can't be used in your Hook type names: Alexa AMZN Amazon ASK AWS Custom Dev"];
      typeVersionId: HookTypeVersionId.t option
        [@ocaml.doc "The version ID of the type specified."];
      typeConfigurationVersionId: HookTypeConfigurationVersionId.t option
        [@ocaml.doc "The version ID of the type configuration."];
      targetDetails: ChangeSetHookTargetDetails.t option
        [@ocaml.doc
          "Specifies details about the target that the Hook will run against."]}
    let make ?invocationPoint =
      fun ?failureMode ->
        fun ?typeName ->
          fun ?typeVersionId ->
            fun ?typeConfigurationVersionId ->
              fun ?targetDetails ->
                fun () ->
                  {
                    invocationPoint;
                    failureMode;
                    typeName;
                    typeVersionId;
                    typeConfigurationVersionId;
                    targetDetails
                  }
    let to_value x =
      structure_to_value
        [("InvocationPoint",
           (Option.map x.invocationPoint ~f:HookInvocationPoint.to_value));
        ("FailureMode",
          (Option.map x.failureMode ~f:HookFailureMode.to_value));
        ("TypeName", (Option.map x.typeName ~f:HookTypeName.to_value));
        ("TypeVersionId",
          (Option.map x.typeVersionId ~f:HookTypeVersionId.to_value));
        ("TypeConfigurationVersionId",
          (Option.map x.typeConfigurationVersionId
             ~f:HookTypeConfigurationVersionId.to_value));
        ("TargetDetails",
          (Option.map x.targetDetails ~f:ChangeSetHookTargetDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDetails =
        (Option.map ~f:ChangeSetHookTargetDetails.of_xml)
          (Xml.child xml_arg0 "TargetDetails") in
      let typeConfigurationVersionId =
        (Option.map ~f:HookTypeConfigurationVersionId.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationVersionId") in
      let typeVersionId =
        (Option.map ~f:HookTypeVersionId.of_xml)
          (Xml.child xml_arg0 "TypeVersionId") in
      let typeName =
        (Option.map ~f:HookTypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let failureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "FailureMode") in
      let invocationPoint =
        (Option.map ~f:HookInvocationPoint.of_xml)
          (Xml.child xml_arg0 "InvocationPoint") in
      make ?targetDetails ?typeConfigurationVersionId ?typeVersionId
        ?typeName ?failureMode ?invocationPoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDetails =
        field_map json__ "TargetDetails" ChangeSetHookTargetDetails.of_json in
      let typeConfigurationVersionId =
        field_map json__ "TypeConfigurationVersionId"
          HookTypeConfigurationVersionId.of_json in
      let typeVersionId =
        field_map json__ "TypeVersionId" HookTypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" HookTypeName.of_json in
      let failureMode =
        field_map json__ "FailureMode" HookFailureMode.of_json in
      let invocationPoint =
        field_map json__ "InvocationPoint" HookInvocationPoint.of_json in
      make ?targetDetails ?typeConfigurationVersionId ?typeVersionId
        ?typeName ?failureMode ?invocationPoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the resource, the Hook, and the Hook version to be invoked."]
module AccountLimit =
  struct
    type nonrec t =
      {
      name: LimitName.t option
        [@ocaml.doc
          "The name of the account limit. Values: ConcurrentResourcesLimit | StackLimit | StackOutputsLimit"];
      value: LimitValue.t option
        [@ocaml.doc
          "The value that's associated with the account limit name."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:LimitName.to_value));
        ("Value", (Option.map x.value ~f:LimitValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:LimitValue.of_xml) (Xml.child xml_arg0 "Value") in
      let name = (Option.map ~f:LimitName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" LimitValue.of_json in
      let name = field_map json__ "Name" LimitName.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current CloudFormation limits for your account. CloudFormation has the following limits per account: Number of concurrent resources Number of stacks Number of stack outputs For more information, see Understand CloudFormation quotas in the CloudFormation User Guide."]
module StackDefinition =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc "The name associated with the stack."];
      templateBody: TemplateBody.t option
        [@ocaml.doc "The file path for the stack template file."];
      templateURL: TemplateURL.t option
        [@ocaml.doc "The desired final state of the stack template."]}
    let make ?stackName =
      fun ?templateBody ->
        fun ?templateURL ->
          fun () -> { stackName; templateBody; templateURL }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?templateURL ?templateBody ?stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      make ?templateURL ?templateBody ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the stack and the template used by the stack."]
module ResourceToImport =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t
        [@ocaml.doc
          "The type of resource to import into your stack, such as AWS::S3::Bucket. For a list of supported resource types, see Resource type support for imports and drift detection in the CloudFormation User Guide."];
      logicalResourceId: LogicalResourceId.t
        [@ocaml.doc
          "The logical ID of the target resource as specified in the template."];
      resourceIdentifier: ResourceIdentifierProperties.t
        [@ocaml.doc
          "A key-value pair that identifies the target resource. The key is an identifier property (for example, BucketName for AWS::S3::Bucket resources) and the value is the actual property value (for example, MyS3Bucket)."]}
    let context_ = "ResourceToImport"
    let make ~resourceType =
      fun ~logicalResourceId ->
        fun ~resourceIdentifier ->
          fun () -> { resourceType; logicalResourceId; resourceIdentifier }
    let to_value x =
      structure_to_value
        [("ResourceType", (Some (ResourceType.to_value x.resourceType)));
        ("LogicalResourceId",
          (Some (LogicalResourceId.to_value x.logicalResourceId)));
        ("ResourceIdentifier",
          (Some (ResourceIdentifierProperties.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        ResourceIdentifierProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceIdentifier") in
      let logicalResourceId =
        LogicalResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogicalResourceId") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceType") in
      make ~resourceIdentifier ~logicalResourceId ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "ResourceIdentifier"
          ResourceIdentifierProperties.of_json in
      let logicalResourceId =
        field_map_exn json__ "LogicalResourceId" LogicalResourceId.of_json in
      let resourceType =
        field_map_exn json__ "ResourceType" ResourceType.of_json in
      make ~resourceIdentifier ~logicalResourceId ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the target resource of an import operation."]
module ResourceToSkip =
  struct
    type nonrec t = string
    let context_ = "ResourceToSkip"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-zA-Z0-9]+|[a-zA-Z][-a-zA-Z0-9]*\\.[a-zA-Z0-9]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceToSkip" j
    let to_json = simple_to_json to_value
  end
module BatchDescribeTypeConfigurationsError =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option [@ocaml.doc "The error code."];
      errorMessage: ErrorMessage.t option [@ocaml.doc "The error message."];
      typeConfigurationIdentifier: TypeConfigurationIdentifier.t option
        [@ocaml.doc
          "Identifying information for the configuration of a CloudFormation extension."]}
    let make ?errorCode =
      fun ?errorMessage ->
        fun ?typeConfigurationIdentifier ->
          fun () -> { errorCode; errorMessage; typeConfigurationIdentifier }
    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));
        ("TypeConfigurationIdentifier",
          (Option.map x.typeConfigurationIdentifier
             ~f:TypeConfigurationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeConfigurationIdentifier =
        (Option.map ~f:TypeConfigurationIdentifier.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationIdentifier") in
      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 ?typeConfigurationIdentifier ?errorMessage ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeConfigurationIdentifier =
        field_map json__ "TypeConfigurationIdentifier"
          TypeConfigurationIdentifier.of_json in
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?typeConfigurationIdentifier ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information concerning an error generated during the setting of configuration data for a CloudFormation extension."]
module TypeConfigurationDetails =
  struct
    type nonrec t =
      {
      arn: TypeConfigurationArn.t option
        [@ocaml.doc
          "The ARN for the configuration data, in this account and Region."];
      alias: TypeConfigurationAlias.t option
        [@ocaml.doc
          "The alias specified for this configuration, if one was specified when the configuration was set."];
      configuration: TypeConfiguration.t option
        [@ocaml.doc
          "A JSON string specifying the configuration data for the extension, in this account and Region. If a configuration hasn't been set for a specified extension, CloudFormation returns \\{\\}."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "When the configuration data was last updated for this extension. If a configuration hasn't been set for a specified extension, CloudFormation returns null."];
      typeArn: TypeArn.t option
        [@ocaml.doc
          "The ARN for the extension, in this account and Region. For public extensions, this will be the ARN assigned when you call the ActivateType API operation in this account and Region. For private extensions, this will be the ARN assigned when you call the RegisterType API operation in this account and Region."];
      typeName: TypeName.t option [@ocaml.doc "The name of the extension."];
      isDefaultConfiguration: IsDefaultConfiguration.t option
        [@ocaml.doc
          "Whether this configuration data is the default configuration for the extension."]}
    let make ?arn =
      fun ?alias ->
        fun ?configuration ->
          fun ?lastUpdated ->
            fun ?typeArn ->
              fun ?typeName ->
                fun ?isDefaultConfiguration ->
                  fun () ->
                    {
                      arn;
                      alias;
                      configuration;
                      lastUpdated;
                      typeArn;
                      typeName;
                      isDefaultConfiguration
                    }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:TypeConfigurationArn.to_value));
        ("Alias", (Option.map x.alias ~f:TypeConfigurationAlias.to_value));
        ("Configuration",
          (Option.map x.configuration ~f:TypeConfiguration.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("IsDefaultConfiguration",
          (Option.map x.isDefaultConfiguration
             ~f:IsDefaultConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isDefaultConfiguration =
        (Option.map ~f:IsDefaultConfiguration.of_xml)
          (Xml.child xml_arg0 "IsDefaultConfiguration") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let configuration =
        (Option.map ~f:TypeConfiguration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      let alias =
        (Option.map ~f:TypeConfigurationAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let arn =
        (Option.map ~f:TypeConfigurationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?isDefaultConfiguration ?typeName ?typeArn ?lastUpdated
        ?configuration ?alias ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isDefaultConfiguration =
        field_map json__ "IsDefaultConfiguration"
          IsDefaultConfiguration.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      let lastUpdated = field_map json__ "LastUpdated" Timestamp.of_json in
      let configuration =
        field_map json__ "Configuration" TypeConfiguration.of_json in
      let alias = field_map json__ "Alias" TypeConfigurationAlias.of_json in
      let arn = field_map json__ "Arn" TypeConfigurationArn.of_json in
      make ?isDefaultConfiguration ?typeName ?typeArn ?lastUpdated
        ?configuration ?alias ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information concerning the specification of a CloudFormation extension in a given account and Region. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module CapabilitiesReason =
  struct
    type nonrec t = string
    let context_ = "CapabilitiesReason"
    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:"CapabilitiesReason" j
    let to_json = simple_to_json to_value
  end
module TemplateParameters =
  struct
    type nonrec t = TemplateParameter.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:TemplateParameter.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:TemplateParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"TemplateParameters"
        ~of_json:TemplateParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransformsList =
  struct
    type nonrec t = TransformName.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:TransformName.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:TransformName.of_xml)
    let of_json j =
      list_of_json ~kind:"TransformsList" ~of_json:TransformName.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackNameOrId =
  struct
    type nonrec t = string
    let context_ = "StackNameOrId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"([a-zA-Z][-a-zA-Z0-9]*)|(arn:\\b(aws|aws-us-gov|aws-cn)\\b:[-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:"StackNameOrId" j
    let to_json = simple_to_json to_value
  end
module InvalidOperationException =
  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 "The specified operation isn't valid."]
module OperationIdAlreadyExistsException =
  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 "The specified operation ID already exists."]
module OperationInProgressException =
  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
       "Another operation is currently in progress for this StackSet. Only one operation can be performed for a stack set at a given time."]
module StackInstanceNotFoundException =
  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 "The specified stack instance doesn't exist."]
module StackSetNotFoundException =
  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 "The specified StackSet doesn't exist."]
module StaleRequestException =
  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
       "Another operation has been performed on this StackSet since the specified operation was performed."]
module CallAs =
  struct
    type nonrec t =
      | SELF 
      | DELEGATED_ADMIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SELF -> "SELF"
      | DELEGATED_ADMIN -> "DELEGATED_ADMIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "SELF" -> SELF
      | "DELEGATED_ADMIN" -> DELEGATED_ADMIN
      | 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 CallAs" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CallAs" j)
    let to_json = simple_to_json to_value
  end
module UsePreviousTemplate =
  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 InsufficientCapabilitiesException =
  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
       "The template contains resources with capabilities that weren't specified in the Capabilities parameter."]
module TokenAlreadyExistsException =
  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 "A client request token already exists."]
module StackSetNameOrId =
  struct
    type nonrec t = string
    let context_ = "StackSetNameOrId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-zA-Z][-a-zA-Z0-9]*(?::[a-zA-Z0-9]{8}-[a-zA-Z0-9]{4}-[a-zA-Z0-9]{4}-[a-zA-Z0-9]{4}-[a-zA-Z0-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:"StackSetNameOrId" j
    let to_json = simple_to_json to_value
  end
module StackPolicyBody =
  struct
    type nonrec t = string
    let context_ = "StackPolicyBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackPolicyBody" j
    let to_json = simple_to_json to_value
  end
module StackPolicyDuringUpdateBody =
  struct
    type nonrec t = string
    let context_ = "StackPolicyDuringUpdateBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackPolicyDuringUpdateBody" j
    let to_json = simple_to_json to_value
  end
module StackPolicyDuringUpdateURL =
  struct
    type nonrec t = string
    let context_ = "StackPolicyDuringUpdateURL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5120) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackPolicyDuringUpdateURL" j
    let to_json = simple_to_json to_value
  end
module StackPolicyURL =
  struct
    type nonrec t = string
    let context_ = "StackPolicyURL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5120) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackPolicyURL" j
    let to_json = simple_to_json to_value
  end
module AlreadyExistsException =
  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 "The resource with the name requested already exists."]
module GeneratedTemplateNotFoundException =
  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 "The generated template was not found."]
module LimitExceededException =
  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
       "The quota for the resource has already been reached. For information about resource and stack limitations, see CloudFormation quotas in the CloudFormation User Guide."]
module JazzLogicalResourceIds =
  struct
    type nonrec t = LogicalResourceId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LogicalResourceId.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:LogicalResourceId.of_xml)
    let of_json j =
      list_of_json ~kind:"JazzLogicalResourceIds"
        ~of_json:LogicalResourceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module RefreshAllResources =
  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 ResourceDefinitions =
  struct
    type nonrec t = ResourceDefinition.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceDefinition.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:ResourceDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceDefinitions"
        ~of_json:ResourceDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module TemplateConfiguration =
  struct
    type nonrec t =
      {
      deletionPolicy: GeneratedTemplateDeletionPolicy.t option
        [@ocaml.doc
          "The DeletionPolicy assigned to resources in the generated template. Supported values are: DELETE - delete all resources when the stack is deleted. RETAIN - retain all resources when the stack is deleted. For more information, see DeletionPolicy attribute in the CloudFormation User Guide."];
      updateReplacePolicy: GeneratedTemplateUpdateReplacePolicy.t option
        [@ocaml.doc
          "The UpdateReplacePolicy assigned to resources in the generated template. Supported values are: DELETE - delete all resources when the resource is replaced during an update operation. RETAIN - retain all resources when the resource is replaced during an update operation. For more information, see UpdateReplacePolicy attribute in the CloudFormation User Guide."]}
    let make ?deletionPolicy =
      fun ?updateReplacePolicy ->
        fun () -> { deletionPolicy; updateReplacePolicy }
    let to_value x =
      structure_to_value
        [("DeletionPolicy",
           (Option.map x.deletionPolicy
              ~f:GeneratedTemplateDeletionPolicy.to_value));
        ("UpdateReplacePolicy",
          (Option.map x.updateReplacePolicy
             ~f:GeneratedTemplateUpdateReplacePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateReplacePolicy =
        (Option.map ~f:GeneratedTemplateUpdateReplacePolicy.of_xml)
          (Xml.child xml_arg0 "UpdateReplacePolicy") in
      let deletionPolicy =
        (Option.map ~f:GeneratedTemplateDeletionPolicy.of_xml)
          (Xml.child xml_arg0 "DeletionPolicy") in
      make ?updateReplacePolicy ?deletionPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateReplacePolicy =
        field_map json__ "UpdateReplacePolicy"
          GeneratedTemplateUpdateReplacePolicy.of_json in
      let deletionPolicy =
        field_map json__ "DeletionPolicy"
          GeneratedTemplateDeletionPolicy.of_json in
      make ?updateReplacePolicy ?deletionPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration details of a generated template."]
module CFNRegistryException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc "A message with details about the error that occurred."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error occurred during a CloudFormation registry operation."]
module TypeNotFoundException =
  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
       "The specified extension doesn't exist in the CloudFormation registry."]
module S3Bucket =
  struct
    type nonrec t = string
    let context_ = "S3Bucket"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Bucket" j
    let to_json = simple_to_json to_value
  end
module OperationNotFoundException =
  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
       "The specified ID refers to an operation that doesn't exist."]
module ResourceScanInProgressException =
  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
       "A resource scan is currently in progress. Only one can be run at a time for an account in a Region."]
module ResourceScanLimitExceededException =
  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
       "The limit on resource scans has been exceeded. Reasons include: Exceeded the daily quota for resource scans. A resource scan recently failed. You must wait 10 minutes before starting a new resource scan. The last resource scan failed after exceeding 100,000 resources. When this happens, you must wait 24 hours before starting a new resource scan."]
module ScanFilters =
  struct
    type nonrec t = ScanFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ScanFilter.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:ScanFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ScanFilters" ~of_json:ScanFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceSignalStatus =
  struct
    type nonrec t =
      | SUCCESS 
      | FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCESS -> "SUCCESS"
      | FAILURE -> "FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCESS" -> SUCCESS
      | "FAILURE" -> FAILURE
      | 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 ResourceSignalStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceSignalStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceSignalUniqueId =
  struct
    type nonrec t = string
    let context_ = "ResourceSignalUniqueId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceSignalUniqueId" j
    let to_json = simple_to_json to_value
  end
module PrivateTypeArn =
  struct
    type nonrec t = string
    let context_ = "PrivateTypeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[A-Za-z0-9-]{0,64}:cloudformation:[A-Za-z0-9-]{1,64}:[0-9]{12}:type/.+"));
        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:"PrivateTypeArn" j
    let to_json = simple_to_json to_value
  end
module LoggingConfig =
  struct
    type nonrec t =
      {
      logRoleArn: RoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the role that CloudFormation should assume when sending log entries to CloudWatch Logs."];
      logGroupName: LogGroupName.t
        [@ocaml.doc
          "The Amazon CloudWatch Logs group to which CloudFormation sends error logging information when invoking the extension's handlers."]}
    let context_ = "LoggingConfig"
    let make ~logRoleArn =
      fun ~logGroupName -> fun () -> { logRoleArn; logGroupName }
    let to_value x =
      structure_to_value
        [("LogRoleArn", (Some (RoleArn.to_value x.logRoleArn)));
        ("LogGroupName", (Some (LogGroupName.to_value x.logGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        LogGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogGroupName") in
      let logRoleArn =
        RoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogRoleArn") in
      make ~logGroupName ~logRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName =
        field_map_exn json__ "LogGroupName" LogGroupName.of_json in
      let logRoleArn = field_map_exn json__ "LogRoleArn" RoleArn.of_json in
      make ~logGroupName ~logRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains logging configuration information for an extension."]
module RequestToken =
  struct
    type nonrec t = string
    let context_ = "RequestToken"
    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][-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:"RequestToken" j
    let to_json = simple_to_json to_value
  end
module S3Url =
  struct
    type nonrec t = string
    let context_ = "S3Url"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Url" j
    let to_json = simple_to_json to_value
  end
module AcceptTermsAndConditions =
  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 ConnectionArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionArn"
    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:"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:"ConnectionArn" j
    let to_json = simple_to_json to_value
  end
module InvalidStateTransitionException =
  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
       "Error reserved for use by the CloudFormation CLI. CloudFormation doesn't return this error to users."]
module OperationStatusCheckFailedException =
  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
       "Error reserved for use by the CloudFormation CLI. CloudFormation doesn't return this error to users."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module HandlerErrorCode =
  struct
    type nonrec t =
      | NotUpdatable 
      | InvalidRequest 
      | AccessDenied 
      | InvalidCredentials 
      | AlreadyExists 
      | NotFound 
      | ResourceConflict 
      | Throttling 
      | ServiceLimitExceeded 
      | NotStabilized 
      | GeneralServiceException 
      | ServiceInternalError 
      | NetworkFailure 
      | InternalFailure 
      | InvalidTypeConfiguration 
      | HandlerInternalFailure 
      | NonCompliant 
      | Unknown 
      | UnsupportedTarget 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NotUpdatable -> "NotUpdatable"
      | InvalidRequest -> "InvalidRequest"
      | AccessDenied -> "AccessDenied"
      | InvalidCredentials -> "InvalidCredentials"
      | AlreadyExists -> "AlreadyExists"
      | NotFound -> "NotFound"
      | ResourceConflict -> "ResourceConflict"
      | Throttling -> "Throttling"
      | ServiceLimitExceeded -> "ServiceLimitExceeded"
      | NotStabilized -> "NotStabilized"
      | GeneralServiceException -> "GeneralServiceException"
      | ServiceInternalError -> "ServiceInternalError"
      | NetworkFailure -> "NetworkFailure"
      | InternalFailure -> "InternalFailure"
      | InvalidTypeConfiguration -> "InvalidTypeConfiguration"
      | HandlerInternalFailure -> "HandlerInternalFailure"
      | NonCompliant -> "NonCompliant"
      | Unknown -> "Unknown"
      | UnsupportedTarget -> "UnsupportedTarget"
      | Non_static_id s -> s
    let of_string =
      function
      | "NotUpdatable" -> NotUpdatable
      | "InvalidRequest" -> InvalidRequest
      | "AccessDenied" -> AccessDenied
      | "InvalidCredentials" -> InvalidCredentials
      | "AlreadyExists" -> AlreadyExists
      | "NotFound" -> NotFound
      | "ResourceConflict" -> ResourceConflict
      | "Throttling" -> Throttling
      | "ServiceLimitExceeded" -> ServiceLimitExceeded
      | "NotStabilized" -> NotStabilized
      | "GeneralServiceException" -> GeneralServiceException
      | "ServiceInternalError" -> ServiceInternalError
      | "NetworkFailure" -> NetworkFailure
      | "InternalFailure" -> InternalFailure
      | "InvalidTypeConfiguration" -> InvalidTypeConfiguration
      | "HandlerInternalFailure" -> HandlerInternalFailure
      | "NonCompliant" -> NonCompliant
      | "Unknown" -> Unknown
      | "UnsupportedTarget" -> UnsupportedTarget
      | 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 HandlerErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HandlerErrorCode" j)
    let to_json = simple_to_json to_value
  end
module OperationStatus =
  struct
    type nonrec t =
      | PENDING 
      | IN_PROGRESS 
      | SUCCESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCESS -> "SUCCESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCESS" -> SUCCESS
      | "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 OperationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceModel =
  struct
    type nonrec t = string
    let context_ = "ResourceModel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceModel" j
    let to_json = simple_to_json to_value
  end
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StatusMessage" j
    let to_json = simple_to_json to_value
  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:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TypeSummaries =
  struct
    type nonrec t = TypeSummary.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:TypeSummary.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:TypeSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TypeSummaries" ~of_json:TypeSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeprecatedStatus =
  struct
    type nonrec t =
      | LIVE 
      | DEPRECATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LIVE -> "LIVE"
      | DEPRECATED -> "DEPRECATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "LIVE" -> LIVE
      | "DEPRECATED" -> DEPRECATED
      | 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 DeprecatedStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeprecatedStatus" j)
    let to_json = simple_to_json to_value
  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 ProvisioningType =
  struct
    type nonrec t =
      | NON_PROVISIONABLE 
      | IMMUTABLE 
      | FULLY_MUTABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NON_PROVISIONABLE -> "NON_PROVISIONABLE"
      | IMMUTABLE -> "IMMUTABLE"
      | FULLY_MUTABLE -> "FULLY_MUTABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NON_PROVISIONABLE" -> NON_PROVISIONABLE
      | "IMMUTABLE" -> IMMUTABLE
      | "FULLY_MUTABLE" -> FULLY_MUTABLE
      | 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 ProvisioningType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProvisioningType" j)
    let to_json = simple_to_json to_value
  end
module TypeFilters =
  struct
    type nonrec t =
      {
      category: Category.t option
        [@ocaml.doc
          "The category of extensions to return. REGISTERED: Private extensions that have been registered for this account and Region. ACTIVATED: Public extensions that have been activated for this account and Region. THIRD_PARTY: Extensions available for use from publishers other than Amazon. This includes: Private extensions registered in the account. Public extensions from publishers other than Amazon, whether activated or not. AWS_TYPES: Extensions available for use from Amazon."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The id of the publisher of the extension. Extensions published by Amazon aren't assigned a publisher ID. Use the AWS_TYPES category to specify a list of types published by Amazon."];
      typeNamePrefix: TypeNamePrefix.t option
        [@ocaml.doc "A prefix to use as a filter for results."]}
    let make ?category =
      fun ?publisherId ->
        fun ?typeNamePrefix ->
          fun () -> { category; publisherId; typeNamePrefix }
    let to_value x =
      structure_to_value
        [("Category", (Option.map x.category ~f:Category.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("TypeNamePrefix",
          (Option.map x.typeNamePrefix ~f:TypeNamePrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeNamePrefix =
        (Option.map ~f:TypeNamePrefix.of_xml)
          (Xml.child xml_arg0 "TypeNamePrefix") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let category =
        (Option.map ~f:Category.of_xml) (Xml.child xml_arg0 "Category") in
      make ?typeNamePrefix ?publisherId ?category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeNamePrefix =
        field_map json__ "TypeNamePrefix" TypeNamePrefix.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let category = field_map json__ "Category" Category.of_json in
      make ?typeNamePrefix ?publisherId ?category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Filter criteria to use in determining which extensions to return."]
module Visibility =
  struct
    type nonrec t =
      | PUBLIC 
      | PRIVATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLIC -> "PUBLIC"
      | PRIVATE -> "PRIVATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLIC" -> PUBLIC
      | "PRIVATE" -> PRIVATE
      | 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 Visibility" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Visibility" j)
    let to_json = simple_to_json to_value
  end
module TypeVersionSummaries =
  struct
    type nonrec t = TypeVersionSummary.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:TypeVersionSummary.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:TypeVersionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TypeVersionSummaries"
        ~of_json:TypeVersionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationTokenList =
  struct
    type nonrec t = RegistrationToken.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:RegistrationToken.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:RegistrationToken.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationTokenList"
        ~of_json:RegistrationToken.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | IN_PROGRESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "IN_PROGRESS" -> IN_PROGRESS
      | "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 RegistrationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistrationStatus" j)
    let to_json = simple_to_json to_value
  end
module StackSummaries =
  struct
    type nonrec t = StackSummary.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:StackSummary.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:StackSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSummaries" ~of_json:StackSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackStatusFilter =
  struct
    type nonrec t = StackStatus.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:StackStatus.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:StackStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"StackStatusFilter" ~of_json:StackStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackSetSummaries =
  struct
    type nonrec t = StackSetSummary.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:StackSetSummary.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:StackSetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSetSummaries" ~of_json:StackSetSummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module StackSetOperationSummaries =
  struct
    type nonrec t = StackSetOperationSummary.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:StackSetOperationSummary.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:StackSetOperationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSetOperationSummaries"
        ~of_json:StackSetOperationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackSetOperationResultSummaries =
  struct
    type nonrec t = StackSetOperationResultSummary.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:StackSetOperationResultSummary.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:StackSetOperationResultSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSetOperationResultSummaries"
        ~of_json:StackSetOperationResultSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module OperationResultFilters =
  struct
    type nonrec t = OperationResultFilter.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max: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:OperationResultFilter.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:OperationResultFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"OperationResultFilters"
        ~of_json:OperationResultFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackSetAutoDeploymentTargetSummaries =
  struct
    type nonrec t = StackSetAutoDeploymentTargetSummary.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:StackSetAutoDeploymentTargetSummary.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:StackSetAutoDeploymentTargetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackSetAutoDeploymentTargetSummaries"
        ~of_json:StackSetAutoDeploymentTargetSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackResourceSummaries =
  struct
    type nonrec t = StackResourceSummary.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:StackResourceSummary.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:StackResourceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackResourceSummaries"
        ~of_json:StackResourceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackRefactorSummaries =
  struct
    type nonrec t = StackRefactorSummary.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:StackRefactorSummary.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:StackRefactorSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackRefactorSummaries"
        ~of_json:StackRefactorSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackRefactorExecutionStatusFilter =
  struct
    type nonrec t = StackRefactorExecutionStatus.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:StackRefactorExecutionStatus.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:StackRefactorExecutionStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"StackRefactorExecutionStatusFilter"
        ~of_json:StackRefactorExecutionStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackRefactorActions =
  struct
    type nonrec t = StackRefactorAction.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:StackRefactorAction.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:StackRefactorAction.of_xml)
    let of_json j =
      list_of_json ~kind:"StackRefactorActions"
        ~of_json:StackRefactorAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackInstanceSummaries =
  struct
    type nonrec t = StackInstanceSummary.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:StackInstanceSummary.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:StackInstanceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackInstanceSummaries"
        ~of_json:StackInstanceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackInstanceFilters =
  struct
    type nonrec t = StackInstanceFilter.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:3); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:StackInstanceFilter.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:StackInstanceFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"StackInstanceFilters"
        ~of_json:StackInstanceFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackInstanceResourceDriftsSummaries =
  struct
    type nonrec t = StackInstanceResourceDriftsSummary.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:StackInstanceResourceDriftsSummary.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:StackInstanceResourceDriftsSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StackInstanceResourceDriftsSummaries"
        ~of_json:StackInstanceResourceDriftsSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackResourceDriftStatusFilters =
  struct
    type nonrec t = StackResourceDriftStatus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:StackResourceDriftStatus.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:StackResourceDriftStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"StackResourceDriftStatusFilters"
        ~of_json:StackResourceDriftStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceScanSummaries =
  struct
    type nonrec t = ResourceScanSummary.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:ResourceScanSummary.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:ResourceScanSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceScanSummaries"
        ~of_json:ResourceScanSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceScannerMaxResults =
  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 ResourceScannerMaxResults"
           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 ResourceScanNotFoundException =
  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 "The resource scan was not found."]
module ScannedResources =
  struct
    type nonrec t = ScannedResource.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:ScannedResource.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:ScannedResource.of_xml)
    let of_json j =
      list_of_json ~kind:"ScannedResources" ~of_json:ScannedResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ResourceIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceIdentifier"
    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:"ResourceIdentifier" j
    let to_json = simple_to_json to_value
  end
module ResourceTypePrefix =
  struct
    type nonrec t = string
    let context_ = "ResourceTypePrefix"
    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:"ResourceTypePrefix" j
    let to_json = simple_to_json to_value
  end
module RelatedResources =
  struct
    type nonrec t = ScannedResource.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:ScannedResource.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:ScannedResource.of_xml)
    let of_json j =
      list_of_json ~kind:"RelatedResources" ~of_json:ScannedResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module BoxedMaxResults =
  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 BoxedMaxResults" 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 ScannedResourceIdentifiers =
  struct
    type nonrec t = ScannedResourceIdentifier.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:ScannedResourceIdentifier.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:ScannedResourceIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ScannedResourceIdentifiers"
        ~of_json:ScannedResourceIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module Imports =
  struct
    type nonrec t = StackName.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:StackName.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:StackName.of_xml)
    let of_json j = list_of_json ~kind:"Imports" ~of_json:StackName.of_json j
    let to_json v = composed_to_json to_value v
  end
module HookResultNotFoundException =
  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
       "The specified target doesn't have any requested Hook invocations."]
module HookResultSummaries =
  struct
    type nonrec t = HookResultSummary.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:HookResultSummary.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:HookResultSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"HookResultSummaries"
        ~of_json:HookResultSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module TemplateSummaries =
  struct
    type nonrec t = TemplateSummary.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:TemplateSummary.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:TemplateSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TemplateSummaries" ~of_json:TemplateSummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Exports =
  struct
    type nonrec t = Export.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:Export.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:Export.of_xml)
    let of_json j = list_of_json ~kind:"Exports" ~of_json:Export.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeSetSummaries =
  struct
    type nonrec t = ChangeSetSummary.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:ChangeSetSummary.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:ChangeSetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeSetSummaries"
        ~of_json:ChangeSetSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackNotFoundException =
  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
       "The specified stack ARN doesn't exist or stack doesn't exist corresponding to the ARN in input."]
module StackIdList =
  struct
    type nonrec t = StackId.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:StackId.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:StackId.of_xml)
    let of_json j =
      list_of_json ~kind:"StackIdList" ~of_json:StackId.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackIdsUrl =
  struct
    type nonrec t = string
    let context_ = "StackIdsUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:5120) >>=
                  (fun () -> check_pattern i ~pattern:"(s3://|http(s?)://).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackIdsUrl" j
    let to_json = simple_to_json to_value
  end
module ParameterDeclarations =
  struct
    type nonrec t = ParameterDeclaration.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:ParameterDeclaration.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:ParameterDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"ParameterDeclarations"
        ~of_json:ParameterDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceIdentifierSummaries =
  struct
    type nonrec t = ResourceIdentifierSummary.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:ResourceIdentifierSummary.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:ResourceIdentifierSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceIdentifierSummaries"
        ~of_json:ResourceIdentifierSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Version =
  struct
    type nonrec t = string
    let context_ = "Version"
    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:"Version" j
    let to_json = simple_to_json to_value
  end
module Warnings =
  struct
    type nonrec t =
      {
      unrecognizedResourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "A list of all of the unrecognized resource types. This is only returned if the TemplateSummaryConfig parameter has the TreatUnrecognizedResourceTypesAsWarning configuration set to True."]}
    let make ?unrecognizedResourceTypes =
      fun () -> { unrecognizedResourceTypes }
    let to_value x =
      structure_to_value
        [("UnrecognizedResourceTypes",
           (Option.map x.unrecognizedResourceTypes ~f:ResourceTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unrecognizedResourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "UnrecognizedResourceTypes") in
      make ?unrecognizedResourceTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unrecognizedResourceTypes =
        field_map json__ "UnrecognizedResourceTypes" ResourceTypes.of_json in
      make ?unrecognizedResourceTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains any warnings returned by the GetTemplateSummary API action."]
module TemplateSummaryConfig =
  struct
    type nonrec t =
      {
      treatUnrecognizedResourceTypesAsWarnings:
        TreatUnrecognizedResourceTypesAsWarnings.t option
        [@ocaml.doc
          "If set to True, any unrecognized resource types generate warnings and not an error. Any unrecognized resource types are returned in the Warnings output parameter."]}
    let make ?treatUnrecognizedResourceTypesAsWarnings =
      fun () -> { treatUnrecognizedResourceTypesAsWarnings }
    let to_value x =
      structure_to_value
        [("TreatUnrecognizedResourceTypesAsWarnings",
           (Option.map x.treatUnrecognizedResourceTypesAsWarnings
              ~f:TreatUnrecognizedResourceTypesAsWarnings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treatUnrecognizedResourceTypesAsWarnings =
        (Option.map ~f:TreatUnrecognizedResourceTypesAsWarnings.of_xml)
          (Xml.child xml_arg0 "TreatUnrecognizedResourceTypesAsWarnings") in
      make ?treatUnrecognizedResourceTypesAsWarnings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treatUnrecognizedResourceTypesAsWarnings =
        field_map json__ "TreatUnrecognizedResourceTypesAsWarnings"
          TreatUnrecognizedResourceTypesAsWarnings.of_json in
      make ?treatUnrecognizedResourceTypesAsWarnings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for the GetTemplateSummary API action."]
module ChangeSetNotFoundException =
  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
       "The specified change set name or ID doesn't exit. To view valid change sets for a stack, use the ListChangeSets operation."]
module StageList =
  struct
    type nonrec t = TemplateStage.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:TemplateStage.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:TemplateStage.of_xml)
    let of_json j =
      list_of_json ~kind:"StageList" ~of_json:TemplateStage.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeSetNameOrId =
  struct
    type nonrec t = string
    let context_ = "ChangeSetNameOrId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z][-a-zA-Z0-9]*|arn:[-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:"ChangeSetNameOrId" j
    let to_json = simple_to_json to_value
  end
module AnnotationList =
  struct
    type nonrec t = Annotation.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:Annotation.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:Annotation.of_xml)
    let of_json j =
      list_of_json ~kind:"AnnotationList" ~of_json:Annotation.of_json j
    let to_json v = composed_to_json to_value v
  end
module HookTarget =
  struct
    type nonrec t =
      {
      targetType: HookTargetType.t option [@ocaml.doc "The target type."];
      targetTypeName: HookTargetTypeName.t option
        [@ocaml.doc "The target name, for example, AWS::S3::Bucket."];
      targetId: HookTargetId.t option
        [@ocaml.doc "The unique identifier of the Hook invocation target."];
      action: HookTargetAction.t option
        [@ocaml.doc "The action that invoked the Hook."]}
    let make ?targetType =
      fun ?targetTypeName ->
        fun ?targetId ->
          fun ?action ->
            fun () -> { targetType; targetTypeName; targetId; action }
    let to_value x =
      structure_to_value
        [("TargetType", (Option.map x.targetType ~f:HookTargetType.to_value));
        ("TargetTypeName",
          (Option.map x.targetTypeName ~f:HookTargetTypeName.to_value));
        ("TargetId", (Option.map x.targetId ~f:HookTargetId.to_value));
        ("Action", (Option.map x.action ~f:HookTargetAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:HookTargetAction.of_xml) (Xml.child xml_arg0 "Action") in
      let targetId =
        (Option.map ~f:HookTargetId.of_xml) (Xml.child xml_arg0 "TargetId") in
      let targetTypeName =
        (Option.map ~f:HookTargetTypeName.of_xml)
          (Xml.child xml_arg0 "TargetTypeName") in
      let targetType =
        (Option.map ~f:HookTargetType.of_xml)
          (Xml.child xml_arg0 "TargetType") in
      make ?action ?targetId ?targetTypeName ?targetType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "Action" HookTargetAction.of_json in
      let targetId = field_map json__ "TargetId" HookTargetId.of_json in
      let targetTypeName =
        field_map json__ "TargetTypeName" HookTargetTypeName.of_json in
      let targetType = field_map json__ "TargetType" HookTargetType.of_json in
      make ?action ?targetId ?targetTypeName ?targetType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The HookTarget data type."]
module TemplateFormat =
  struct
    type nonrec t =
      | JSON 
      | YAML 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JSON -> "JSON" | YAML -> "YAML" | Non_static_id s -> s
    let of_string =
      function | "JSON" -> JSON | "YAML" -> YAML | 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 TemplateFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TemplateFormat" j)
    let to_json = simple_to_json to_value
  end
module InvalidChangeSetStatusException =
  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
       "The specified change set can't be used to update the stack. For example, the change set status might be CREATE_IN_PROGRESS, or the stack status might be UPDATE_IN_PROGRESS."]
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Url" j
    let to_json = simple_to_json to_value
  end
module StackDriftDetectionId =
  struct
    type nonrec t = string
    let context_ = "StackDriftDetectionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackDriftDetectionId" j
    let to_json = simple_to_json to_value
  end
module AutoUpdate =
  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 ConfigurationSchema =
  struct
    type nonrec t = string
    let context_ = "ConfigurationSchema"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:60000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConfigurationSchema" j
    let to_json = simple_to_json to_value
  end
module OptionalSecureUrl =
  struct
    type nonrec t = string
    let context_ = "OptionalSecureUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:4096); 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:"OptionalSecureUrl" j
    let to_json = simple_to_json to_value
  end
module RequiredActivatedTypes =
  struct
    type nonrec t = RequiredActivatedType.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:RequiredActivatedType.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:RequiredActivatedType.of_xml)
    let of_json j =
      list_of_json ~kind:"RequiredActivatedTypes"
        ~of_json:RequiredActivatedType.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypeSchema =
  struct
    type nonrec t = string
    let context_ = "TypeSchema"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16777216) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeSchema" j
    let to_json = simple_to_json to_value
  end
module TypeTestsStatus =
  struct
    type nonrec t =
      | PASSED 
      | FAILED 
      | IN_PROGRESS 
      | NOT_TESTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASSED -> "PASSED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | NOT_TESTED -> "NOT_TESTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASSED" -> PASSED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "NOT_TESTED" -> NOT_TESTED
      | 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 TypeTestsStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TypeTestsStatus" j)
    let to_json = simple_to_json to_value
  end
module TypeTestsStatusDescription =
  struct
    type nonrec t = string
    let context_ = "TypeTestsStatusDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TypeTestsStatusDescription" j
    let to_json = simple_to_json to_value
  end
module Stacks =
  struct
    type nonrec t = Stack.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:Stack.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:Stack.of_xml)
    let of_json j = list_of_json ~kind:"Stacks" ~of_json:Stack.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackSet =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t option
        [@ocaml.doc "The name that's associated with the StackSet."];
      stackSetId: StackSetId.t option [@ocaml.doc "The ID of the StackSet."];
      description: Description.t option
        [@ocaml.doc
          "A description of the StackSet that you specify when the StackSet is created or updated."];
      status: StackSetStatus.t option
        [@ocaml.doc "The status of the StackSet."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "The structure that contains the body of the template that was used to create or update the StackSet."];
      parameters: Parameters.t option
        [@ocaml.doc "A list of input parameters for a StackSet."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "The capabilities that are allowed in the StackSet. Some StackSet templates might include resources that can affect permissions in your Amazon Web Services account\226\128\148for example, by creating new Identity and Access Management (IAM) users. For more information, see Acknowledging IAM resources in CloudFormation templates."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of tags that specify information about the StackSet. A maximum number of 50 tags can be specified."];
      stackSetARN: StackSetARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the StackSet."];
      administrationRoleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role used to create or update the stack set. Use customized administrator roles to control which users or groups can manage specific StackSets within the same administrator account. For more information, see Prerequisites for using CloudFormation StackSets in the CloudFormation User Guide."];
      executionRoleName: ExecutionRoleName.t option
        [@ocaml.doc
          "The name of the IAM execution role used to create or update the StackSet. Use customized execution roles to control which stack resources users and groups can include in their StackSets."];
      stackSetDriftDetectionDetails: StackSetDriftDetectionDetails.t option
        [@ocaml.doc
          "Detailed information about the drift status of the StackSet. For StackSets, contains information about the last completed drift operation performed on the StackSet. Information about drift operations currently in progress isn't included."];
      autoDeployment: AutoDeployment.t option
        [@ocaml.doc
          "Describes whether StackSets automatically deploys to Organizations accounts that are added to a target organization or organizational unit (OU). Valid only if the StackSet uses service-managed permissions."];
      permissionModel: PermissionModels.t option
        [@ocaml.doc
          "Describes how the IAM roles required for StackSet operations are created. With self-managed permissions, you must create the administrator and execution roles required to deploy to target accounts. For more information, see Grant self-managed permissions. With service-managed permissions, StackSets automatically creates the IAM roles required to deploy to accounts managed by Organizations. For more information, see Activate trusted access for StackSets with Organizations."];
      organizationalUnitIds: OrganizationalUnitIdList.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The organization root ID or organizational unit (OU) IDs that you specified for DeploymentTargets."];
      managedExecution: ManagedExecution.t option
        [@ocaml.doc
          "Describes whether StackSets performs non-conflicting operations concurrently and queues conflicting operations."];
      regions: RegionList.t option
        [@ocaml.doc
          "Returns a list of all Amazon Web Services Regions the given StackSet has stack instances deployed in. The Amazon Web Services Regions list output is in no particular order."]}
    let make ?stackSetName =
      fun ?stackSetId ->
        fun ?description ->
          fun ?status ->
            fun ?templateBody ->
              fun ?parameters ->
                fun ?capabilities ->
                  fun ?tags ->
                    fun ?stackSetARN ->
                      fun ?administrationRoleARN ->
                        fun ?executionRoleName ->
                          fun ?stackSetDriftDetectionDetails ->
                            fun ?autoDeployment ->
                              fun ?permissionModel ->
                                fun ?organizationalUnitIds ->
                                  fun ?managedExecution ->
                                    fun ?regions ->
                                      fun () ->
                                        {
                                          stackSetName;
                                          stackSetId;
                                          description;
                                          status;
                                          templateBody;
                                          parameters;
                                          capabilities;
                                          tags;
                                          stackSetARN;
                                          administrationRoleARN;
                                          executionRoleName;
                                          stackSetDriftDetectionDetails;
                                          autoDeployment;
                                          permissionModel;
                                          organizationalUnitIds;
                                          managedExecution;
                                          regions
                                        }
    let to_value x =
      structure_to_value
        [("StackSetName",
           (Option.map x.stackSetName ~f:StackSetName.to_value));
        ("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Status", (Option.map x.status ~f:StackSetStatus.to_value));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("StackSetARN", (Option.map x.stackSetARN ~f:StackSetARN.to_value));
        ("AdministrationRoleARN",
          (Option.map x.administrationRoleARN ~f:RoleARN.to_value));
        ("ExecutionRoleName",
          (Option.map x.executionRoleName ~f:ExecutionRoleName.to_value));
        ("StackSetDriftDetectionDetails",
          (Option.map x.stackSetDriftDetectionDetails
             ~f:StackSetDriftDetectionDetails.to_value));
        ("AutoDeployment",
          (Option.map x.autoDeployment ~f:AutoDeployment.to_value));
        ("PermissionModel",
          (Option.map x.permissionModel ~f:PermissionModels.to_value));
        ("OrganizationalUnitIds",
          (Option.map x.organizationalUnitIds
             ~f:OrganizationalUnitIdList.to_value));
        ("ManagedExecution",
          (Option.map x.managedExecution ~f:ManagedExecution.to_value));
        ("Regions", (Option.map x.regions ~f:RegionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "Regions") in
      let managedExecution =
        (Option.map ~f:ManagedExecution.of_xml)
          (Xml.child xml_arg0 "ManagedExecution") in
      let organizationalUnitIds =
        (Option.map ~f:OrganizationalUnitIdList.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitIds") in
      let permissionModel =
        (Option.map ~f:PermissionModels.of_xml)
          (Xml.child xml_arg0 "PermissionModel") in
      let autoDeployment =
        (Option.map ~f:AutoDeployment.of_xml)
          (Xml.child xml_arg0 "AutoDeployment") in
      let stackSetDriftDetectionDetails =
        (Option.map ~f:StackSetDriftDetectionDetails.of_xml)
          (Xml.child xml_arg0 "StackSetDriftDetectionDetails") in
      let executionRoleName =
        (Option.map ~f:ExecutionRoleName.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleName") in
      let administrationRoleARN =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "AdministrationRoleARN") in
      let stackSetARN =
        (Option.map ~f:StackSetARN.of_xml) (Xml.child xml_arg0 "StackSetARN") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let status =
        (Option.map ~f:StackSetStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      let stackSetName =
        (Option.map ~f:StackSetName.of_xml)
          (Xml.child xml_arg0 "StackSetName") in
      make ?regions ?managedExecution ?organizationalUnitIds ?permissionModel
        ?autoDeployment ?stackSetDriftDetectionDetails ?executionRoleName
        ?administrationRoleARN ?stackSetARN ?tags ?capabilities ?parameters
        ?templateBody ?status ?description ?stackSetId ?stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "Regions" RegionList.of_json in
      let managedExecution =
        field_map json__ "ManagedExecution" ManagedExecution.of_json in
      let organizationalUnitIds =
        field_map json__ "OrganizationalUnitIds"
          OrganizationalUnitIdList.of_json in
      let permissionModel =
        field_map json__ "PermissionModel" PermissionModels.of_json in
      let autoDeployment =
        field_map json__ "AutoDeployment" AutoDeployment.of_json in
      let stackSetDriftDetectionDetails =
        field_map json__ "StackSetDriftDetectionDetails"
          StackSetDriftDetectionDetails.of_json in
      let executionRoleName =
        field_map json__ "ExecutionRoleName" ExecutionRoleName.of_json in
      let administrationRoleARN =
        field_map json__ "AdministrationRoleARN" RoleARN.of_json in
      let stackSetARN = field_map json__ "StackSetARN" StackSetARN.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let status = field_map json__ "Status" StackSetStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      let stackSetName = field_map json__ "StackSetName" StackSetName.of_json in
      make ?regions ?managedExecution ?organizationalUnitIds ?permissionModel
        ?autoDeployment ?stackSetDriftDetectionDetails ?executionRoleName
        ?administrationRoleARN ?stackSetARN ?tags ?capabilities ?parameters
        ?templateBody ?status ?description ?stackSetId ?stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about a StackSet. With StackSets, you can provision stacks across Amazon Web Services accounts and Regions from a single CloudFormation template. Each stack is based on the same CloudFormation template, but you can customize individual stacks using parameters."]
module StackSetOperation =
  struct
    type nonrec t =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique ID of a StackSet operation."];
      stackSetId: StackSetId.t option [@ocaml.doc "The ID of the StackSet."];
      action: StackSetOperationAction.t option
        [@ocaml.doc
          "The type of StackSet operation: CREATE, UPDATE, or DELETE. Create and delete operations affect only the specified stack instances that are associated with the specified StackSet. Update operations affect both the StackSet itself, in addition to all associated stack instances."];
      status: StackSetOperationStatus.t option
        [@ocaml.doc
          "The status of the operation. FAILED: The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each Region during stack create and update operations. If the number of failed stacks within a Region exceeds the failure tolerance, the status of the operation in the Region is set to FAILED. This in turn sets the status of the operation as a whole to FAILED, and CloudFormation cancels the operation in any remaining Regions. QUEUED: \\[Service-managed permissions\\] For automatic deployments that require a sequence of operations, the operation is queued to be performed. For more information, see the StackSets status codes in the CloudFormation User Guide. RUNNING: The operation is currently being performed. STOPPED: The user has canceled the operation. STOPPING: The operation is in the process of stopping, at user request. SUCCEEDED: The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "The preferences for how CloudFormation performs this StackSet operation."];
      retainStacks: RetainStacksNullable.t option
        [@ocaml.doc
          "For StackSet operations of action type DELETE, specifies whether to remove the stack instances from the specified StackSet, but doesn't delete the stacks. You can't re-associate a retained stack, or add an existing, saved stack to a new StackSet."];
      administrationRoleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role used to perform this StackSet operation. Use customized administrator roles to control which users or groups can manage specific StackSets within the same administrator account. For more information, see Grant self-managed permissions in the CloudFormation User Guide."];
      executionRoleName: ExecutionRoleName.t option
        [@ocaml.doc
          "The name of the IAM execution role used to create or update the StackSet. Use customized execution roles to control which stack resources users and groups can include in their StackSets."];
      creationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the operation was initiated. Note that the creation times for the stack set operation might differ from the creation time of the individual stacks themselves. This is because CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested Regions, before actually creating the first stacks."];
      endTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the StackSet operation ended, across all accounts and Regions specified. Note that this doesn't necessarily mean that the StackSet operation was successful, or even attempted, in each account or Region."];
      deploymentTargets: DeploymentTargets.t option
        [@ocaml.doc
          "The Organizations accounts affected by the stack operation. Valid only if the StackSet uses service-managed permissions."];
      stackSetDriftDetectionDetails: StackSetDriftDetectionDetails.t option
        [@ocaml.doc
          "Detailed information about the drift status of the StackSet. This includes information about drift operations currently being performed on the StackSet. This information will only be present for StackSet operations whose Action type is DETECT_DRIFT. For more information, see Performing drift detection on CloudFormation StackSets in the CloudFormation User Guide."];
      statusReason: StackSetOperationStatusReason.t option
        [@ocaml.doc "The status of the operation in details."];
      statusDetails: StackSetOperationStatusDetails.t option
        [@ocaml.doc "Detailed information about the StackSet operation."]}
    let make ?operationId =
      fun ?stackSetId ->
        fun ?action ->
          fun ?status ->
            fun ?operationPreferences ->
              fun ?retainStacks ->
                fun ?administrationRoleARN ->
                  fun ?executionRoleName ->
                    fun ?creationTimestamp ->
                      fun ?endTimestamp ->
                        fun ?deploymentTargets ->
                          fun ?stackSetDriftDetectionDetails ->
                            fun ?statusReason ->
                              fun ?statusDetails ->
                                fun () ->
                                  {
                                    operationId;
                                    stackSetId;
                                    action;
                                    status;
                                    operationPreferences;
                                    retainStacks;
                                    administrationRoleARN;
                                    executionRoleName;
                                    creationTimestamp;
                                    endTimestamp;
                                    deploymentTargets;
                                    stackSetDriftDetectionDetails;
                                    statusReason;
                                    statusDetails
                                  }
    let to_value x =
      structure_to_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value));
        ("Action", (Option.map x.action ~f:StackSetOperationAction.to_value));
        ("Status", (Option.map x.status ~f:StackSetOperationStatus.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("RetainStacks",
          (Option.map x.retainStacks ~f:RetainStacksNullable.to_value));
        ("AdministrationRoleARN",
          (Option.map x.administrationRoleARN ~f:RoleARN.to_value));
        ("ExecutionRoleName",
          (Option.map x.executionRoleName ~f:ExecutionRoleName.to_value));
        ("CreationTimestamp",
          (Option.map x.creationTimestamp ~f:Timestamp.to_value));
        ("EndTimestamp", (Option.map x.endTimestamp ~f:Timestamp.to_value));
        ("DeploymentTargets",
          (Option.map x.deploymentTargets ~f:DeploymentTargets.to_value));
        ("StackSetDriftDetectionDetails",
          (Option.map x.stackSetDriftDetectionDetails
             ~f:StackSetDriftDetectionDetails.to_value));
        ("StatusReason",
          (Option.map x.statusReason
             ~f:StackSetOperationStatusReason.to_value));
        ("StatusDetails",
          (Option.map x.statusDetails
             ~f:StackSetOperationStatusDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusDetails =
        (Option.map ~f:StackSetOperationStatusDetails.of_xml)
          (Xml.child xml_arg0 "StatusDetails") in
      let statusReason =
        (Option.map ~f:StackSetOperationStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let stackSetDriftDetectionDetails =
        (Option.map ~f:StackSetDriftDetectionDetails.of_xml)
          (Xml.child xml_arg0 "StackSetDriftDetectionDetails") in
      let deploymentTargets =
        (Option.map ~f:DeploymentTargets.of_xml)
          (Xml.child xml_arg0 "DeploymentTargets") in
      let endTimestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTimestamp") in
      let creationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTimestamp") in
      let executionRoleName =
        (Option.map ~f:ExecutionRoleName.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleName") in
      let administrationRoleARN =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "AdministrationRoleARN") in
      let retainStacks =
        (Option.map ~f:RetainStacksNullable.of_xml)
          (Xml.child xml_arg0 "RetainStacks") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let status =
        (Option.map ~f:StackSetOperationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let action =
        (Option.map ~f:StackSetOperationAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?statusDetails ?statusReason ?stackSetDriftDetectionDetails
        ?deploymentTargets ?endTimestamp ?creationTimestamp
        ?executionRoleName ?administrationRoleARN ?retainStacks
        ?operationPreferences ?status ?action ?stackSetId ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusDetails =
        field_map json__ "StatusDetails"
          StackSetOperationStatusDetails.of_json in
      let statusReason =
        field_map json__ "StatusReason" StackSetOperationStatusReason.of_json in
      let stackSetDriftDetectionDetails =
        field_map json__ "StackSetDriftDetectionDetails"
          StackSetDriftDetectionDetails.of_json in
      let deploymentTargets =
        field_map json__ "DeploymentTargets" DeploymentTargets.of_json in
      let endTimestamp = field_map json__ "EndTimestamp" Timestamp.of_json in
      let creationTimestamp =
        field_map json__ "CreationTimestamp" Timestamp.of_json in
      let executionRoleName =
        field_map json__ "ExecutionRoleName" ExecutionRoleName.of_json in
      let administrationRoleARN =
        field_map json__ "AdministrationRoleARN" RoleARN.of_json in
      let retainStacks =
        field_map json__ "RetainStacks" RetainStacksNullable.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let status = field_map json__ "Status" StackSetOperationStatus.of_json in
      let action = field_map json__ "Action" StackSetOperationAction.of_json in
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?statusDetails ?statusReason ?stackSetDriftDetectionDetails
        ?deploymentTargets ?endTimestamp ?creationTimestamp
        ?executionRoleName ?administrationRoleARN ?retainStacks
        ?operationPreferences ?status ?action ?stackSetId ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure that contains information about a StackSet operation."]
module StackResources =
  struct
    type nonrec t = StackResource.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:StackResource.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:StackResource.of_xml)
    let of_json j =
      list_of_json ~kind:"StackResources" ~of_json:StackResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackResourceDetail =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc "The name associated with the stack."];
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource supported by CloudFormation."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Type of resource. For more information, see Amazon Web Services resource and property types reference in the CloudFormation User Guide."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc "Time the status was updated."];
      resourceStatus: ResourceStatus.t option
        [@ocaml.doc "Current status of the resource."];
      resourceStatusReason: ResourceStatusReason.t option
        [@ocaml.doc "Success/failure message associated with the resource."];
      description: Description.t option
        [@ocaml.doc "User defined description associated with the resource."];
      metadata: Metadata.t option
        [@ocaml.doc
          "The content of the Metadata attribute declared for the resource. For more information, see Metadata attribute in the CloudFormation User Guide."];
      driftInformation: StackResourceDriftInformation.t option
        [@ocaml.doc
          "Information about whether the resource's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection."];
      moduleInfo: ModuleInfo.t option
        [@ocaml.doc
          "Contains information about the module from which the resource was created, if the resource was created from a module included in the stack template."]}
    let make ?stackName =
      fun ?stackId ->
        fun ?logicalResourceId ->
          fun ?physicalResourceId ->
            fun ?resourceType ->
              fun ?lastUpdatedTimestamp ->
                fun ?resourceStatus ->
                  fun ?resourceStatusReason ->
                    fun ?description ->
                      fun ?metadata ->
                        fun ?driftInformation ->
                          fun ?moduleInfo ->
                            fun () ->
                              {
                                stackName;
                                stackId;
                                logicalResourceId;
                                physicalResourceId;
                                resourceType;
                                lastUpdatedTimestamp;
                                resourceStatus;
                                resourceStatusReason;
                                description;
                                metadata;
                                driftInformation;
                                moduleInfo
                              }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("ResourceStatus",
          (Option.map x.resourceStatus ~f:ResourceStatus.to_value));
        ("ResourceStatusReason",
          (Option.map x.resourceStatusReason ~f:ResourceStatusReason.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("DriftInformation",
          (Option.map x.driftInformation
             ~f:StackResourceDriftInformation.to_value));
        ("ModuleInfo", (Option.map x.moduleInfo ~f:ModuleInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moduleInfo =
        (Option.map ~f:ModuleInfo.of_xml) (Xml.child xml_arg0 "ModuleInfo") in
      let driftInformation =
        (Option.map ~f:StackResourceDriftInformation.of_xml)
          (Xml.child xml_arg0 "DriftInformation") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let resourceStatusReason =
        (Option.map ~f:ResourceStatusReason.of_xml)
          (Xml.child xml_arg0 "ResourceStatusReason") in
      let resourceStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "ResourceStatus") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?moduleInfo ?driftInformation ?metadata ?description
        ?resourceStatusReason ?resourceStatus ?lastUpdatedTimestamp
        ?resourceType ?physicalResourceId ?logicalResourceId ?stackId
        ?stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moduleInfo = field_map json__ "ModuleInfo" ModuleInfo.of_json in
      let driftInformation =
        field_map json__ "DriftInformation"
          StackResourceDriftInformation.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let resourceStatusReason =
        field_map json__ "ResourceStatusReason" ResourceStatusReason.of_json in
      let resourceStatus =
        field_map json__ "ResourceStatus" ResourceStatus.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      make ?moduleInfo ?driftInformation ?metadata ?description
        ?resourceStatusReason ?resourceStatus ?lastUpdatedTimestamp
        ?resourceType ?physicalResourceId ?logicalResourceId ?stackId
        ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about the specified stack resource."]
module StackResourceDrifts =
  struct
    type nonrec t = StackResourceDrift.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:StackResourceDrift.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:StackResourceDrift.of_xml)
    let of_json j =
      list_of_json ~kind:"StackResourceDrifts"
        ~of_json:StackResourceDrift.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackIds =
  struct
    type nonrec t = StackId.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:StackId.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:StackId.of_xml)
    let of_json j = list_of_json ~kind:"StackIds" ~of_json:StackId.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackRefactorNotFoundException =
  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 "The specified stack refactor can't be found."]
module StackInstance =
  struct
    type nonrec t =
      {
      stackSetId: StackSetId.t option
        [@ocaml.doc
          "The name or unique ID of the StackSet that the stack instance is associated with."];
      region: Region.t option
        [@ocaml.doc
          "The name of the Amazon Web Services Region that the stack instance is associated with."];
      account: Account.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The name of the Amazon Web Services account that the stack instance is associated with."];
      stackId: StackId.t option [@ocaml.doc "The ID of the stack instance."];
      parameterOverrides: Parameters.t option
        [@ocaml.doc
          "A list of parameters from the StackSet template whose values have been overridden in this stack instance."];
      status: StackInstanceStatus.t option
        [@ocaml.doc
          "The status of the stack instance, in terms of its synchronization with its associated stack set. INOPERABLE: A DeleteStackInstances operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further UpdateStackSet operations. You might need to perform a DeleteStackInstances operation, with RetainStacks set to true, to delete the stack instance, and then delete the stack manually. INOPERABLE can be returned here when the cause is a failed import. If it's due to a failed import, the operation can be retried once the failures are fixed. To see if this is due to a failed import, look at the DetailedStatus member in the StackInstanceSummary member that is a peer to this Status member. OUTDATED: The stack isn't currently up to date with the StackSet because: The associated stack failed during a CreateStackSet or UpdateStackSet operation. The stack was part of a CreateStackSet or UpdateStackSet operation that failed or was stopped before the stack was created or updated. CURRENT: The stack is currently up to date with the StackSet."];
      stackInstanceStatus: StackInstanceComprehensiveStatus.t option
        [@ocaml.doc "The detailed status of the stack instance."];
      statusReason: Reason.t option
        [@ocaml.doc
          "The explanation for the specific status code that's assigned to this stack instance."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The organization root ID or organizational unit (OU) IDs that you specified for DeploymentTargets."];
      driftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the stack instance's actual configuration compared to the expected template and parameter configuration of the StackSet it belongs to. DRIFTED: The stack differs from the expected template and parameter configuration of the StackSet it belongs to. A stack instance is considered to have drifted if one or more of the resources in the associated stack have drifted. NOT_CHECKED: CloudFormation hasn't checked if the stack instance differs from its expected StackSet configuration. IN_SYNC: The stack instance's actual configuration matches its expected StackSset configuration. UNKNOWN: This value is reserved for future use."];
      lastDriftCheckTimestamp: Timestamp.t option
        [@ocaml.doc
          "Most recent time when CloudFormation performed a drift detection operation on the stack instance. This value will be NULL for any stack instance that drift detection hasn't yet been performed on."];
      lastOperationId: ClientRequestToken.t option
        [@ocaml.doc
          "The last unique ID of a StackSet operation performed on a stack instance."]}
    let make ?stackSetId =
      fun ?region ->
        fun ?account ->
          fun ?stackId ->
            fun ?parameterOverrides ->
              fun ?status ->
                fun ?stackInstanceStatus ->
                  fun ?statusReason ->
                    fun ?organizationalUnitId ->
                      fun ?driftStatus ->
                        fun ?lastDriftCheckTimestamp ->
                          fun ?lastOperationId ->
                            fun () ->
                              {
                                stackSetId;
                                region;
                                account;
                                stackId;
                                parameterOverrides;
                                status;
                                stackInstanceStatus;
                                statusReason;
                                organizationalUnitId;
                                driftStatus;
                                lastDriftCheckTimestamp;
                                lastOperationId
                              }
    let to_value x =
      structure_to_value
        [("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value));
        ("Region", (Option.map x.region ~f:Region.to_value));
        ("Account", (Option.map x.account ~f:Account.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("ParameterOverrides",
          (Option.map x.parameterOverrides ~f:Parameters.to_value));
        ("Status", (Option.map x.status ~f:StackInstanceStatus.to_value));
        ("StackInstanceStatus",
          (Option.map x.stackInstanceStatus
             ~f:StackInstanceComprehensiveStatus.to_value));
        ("StatusReason", (Option.map x.statusReason ~f:Reason.to_value));
        ("OrganizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("DriftStatus",
          (Option.map x.driftStatus ~f:StackDriftStatus.to_value));
        ("LastDriftCheckTimestamp",
          (Option.map x.lastDriftCheckTimestamp ~f:Timestamp.to_value));
        ("LastOperationId",
          (Option.map x.lastOperationId ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastOperationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "LastOperationId") in
      let lastDriftCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastDriftCheckTimestamp") in
      let driftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "DriftStatus") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitId") in
      let statusReason =
        (Option.map ~f:Reason.of_xml) (Xml.child xml_arg0 "StatusReason") in
      let stackInstanceStatus =
        (Option.map ~f:StackInstanceComprehensiveStatus.of_xml)
          (Xml.child xml_arg0 "StackInstanceStatus") in
      let status =
        (Option.map ~f:StackInstanceStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let parameterOverrides =
        (Option.map ~f:Parameters.of_xml)
          (Xml.child xml_arg0 "ParameterOverrides") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      make ?lastOperationId ?lastDriftCheckTimestamp ?driftStatus
        ?organizationalUnitId ?statusReason ?stackInstanceStatus ?status
        ?parameterOverrides ?stackId ?account ?region ?stackSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastOperationId =
        field_map json__ "LastOperationId" ClientRequestToken.of_json in
      let lastDriftCheckTimestamp =
        field_map json__ "LastDriftCheckTimestamp" Timestamp.of_json in
      let driftStatus =
        field_map json__ "DriftStatus" StackDriftStatus.of_json in
      let organizationalUnitId =
        field_map json__ "OrganizationalUnitId" OrganizationalUnitId.of_json in
      let statusReason = field_map json__ "StatusReason" Reason.of_json in
      let stackInstanceStatus =
        field_map json__ "StackInstanceStatus"
          StackInstanceComprehensiveStatus.of_json in
      let status = field_map json__ "Status" StackInstanceStatus.of_json in
      let parameterOverrides =
        field_map json__ "ParameterOverrides" Parameters.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let account = field_map json__ "Account" Account.of_json in
      let region = field_map json__ "Region" Region.of_json in
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      make ?lastOperationId ?lastDriftCheckTimestamp ?driftStatus
        ?organizationalUnitId ?statusReason ?stackInstanceStatus ?status
        ?parameterOverrides ?stackId ?account ?region ?stackSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A CloudFormation stack, in a specific account and Region, that's part of a StackSet operation. A stack instance is a reference to an attempted or actual stack in a given account within a given Region. A stack instance can exist without a stack\226\128\148for example, if the stack couldn't be created for some reason. A stack instance is associated with only one StackSet. Each stack instance contains the ID of its associated StackSet, in addition to the ID of the actual stack and the stack status."]
module StackEvents =
  struct
    type nonrec t = StackEvent.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:StackEvent.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:StackEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"StackEvents" ~of_json:StackEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module BoxedInteger =
  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 BoxedInteger" 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 StackDriftDetectionStatus =
  struct
    type nonrec t =
      | DETECTION_IN_PROGRESS 
      | DETECTION_FAILED 
      | DETECTION_COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DETECTION_IN_PROGRESS -> "DETECTION_IN_PROGRESS"
      | DETECTION_FAILED -> "DETECTION_FAILED"
      | DETECTION_COMPLETE -> "DETECTION_COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DETECTION_IN_PROGRESS" -> DETECTION_IN_PROGRESS
      | "DETECTION_FAILED" -> DETECTION_FAILED
      | "DETECTION_COMPLETE" -> DETECTION_COMPLETE
      | 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 StackDriftDetectionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StackDriftDetectionStatus" j)
    let to_json = simple_to_json to_value
  end
module StackDriftDetectionStatusReason =
  struct
    type nonrec t = string
    let context_ = "StackDriftDetectionStatusReason"
    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:"StackDriftDetectionStatusReason" j
    let to_json = simple_to_json to_value
  end
module ResourcesRead =
  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 ResourcesRead" 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 ResourcesScanned =
  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 ResourcesScanned" 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 PublisherProfile =
  struct
    type nonrec t = string
    let context_ = "PublisherProfile"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i ~pattern:"(http:|https:)+[^\\s]+[\\w]"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PublisherProfile" j
    let to_json = simple_to_json to_value
  end
module PublisherStatus =
  struct
    type nonrec t =
      | VERIFIED 
      | UNVERIFIED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VERIFIED -> "VERIFIED"
      | UNVERIFIED -> "UNVERIFIED"
      | Non_static_id s -> s
    let of_string =
      function
      | "VERIFIED" -> VERIFIED
      | "UNVERIFIED" -> UNVERIFIED
      | 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 PublisherStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PublisherStatus" j)
    let to_json = simple_to_json to_value
  end
module OrganizationStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | DISABLED_PERMANENTLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | DISABLED_PERMANENTLY -> "DISABLED_PERMANENTLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "DISABLED_PERMANENTLY" -> DISABLED_PERMANENTLY
      | 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 OrganizationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrganizationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceDetails =
  struct
    type nonrec t = ResourceDetail.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceDetail.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:ResourceDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceDetails" ~of_json:ResourceDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module TemplateProgress =
  struct
    type nonrec t =
      {
      resourcesSucceeded: ResourcesSucceeded.t option
        [@ocaml.doc
          "The number of resources that succeeded the template generation."];
      resourcesFailed: ResourcesFailed.t option
        [@ocaml.doc
          "The number of resources that failed the template generation."];
      resourcesProcessing: ResourcesProcessing.t option
        [@ocaml.doc
          "The number of resources that are in-process for the template generation."];
      resourcesPending: ResourcesPending.t option
        [@ocaml.doc
          "The number of resources that are still pending the template generation."]}
    let make ?resourcesSucceeded =
      fun ?resourcesFailed ->
        fun ?resourcesProcessing ->
          fun ?resourcesPending ->
            fun () ->
              {
                resourcesSucceeded;
                resourcesFailed;
                resourcesProcessing;
                resourcesPending
              }
    let to_value x =
      structure_to_value
        [("ResourcesSucceeded",
           (Option.map x.resourcesSucceeded ~f:ResourcesSucceeded.to_value));
        ("ResourcesFailed",
          (Option.map x.resourcesFailed ~f:ResourcesFailed.to_value));
        ("ResourcesProcessing",
          (Option.map x.resourcesProcessing ~f:ResourcesProcessing.to_value));
        ("ResourcesPending",
          (Option.map x.resourcesPending ~f:ResourcesPending.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcesPending =
        (Option.map ~f:ResourcesPending.of_xml)
          (Xml.child xml_arg0 "ResourcesPending") in
      let resourcesProcessing =
        (Option.map ~f:ResourcesProcessing.of_xml)
          (Xml.child xml_arg0 "ResourcesProcessing") in
      let resourcesFailed =
        (Option.map ~f:ResourcesFailed.of_xml)
          (Xml.child xml_arg0 "ResourcesFailed") in
      let resourcesSucceeded =
        (Option.map ~f:ResourcesSucceeded.of_xml)
          (Xml.child xml_arg0 "ResourcesSucceeded") in
      make ?resourcesPending ?resourcesProcessing ?resourcesFailed
        ?resourcesSucceeded ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcesPending =
        field_map json__ "ResourcesPending" ResourcesPending.of_json in
      let resourcesProcessing =
        field_map json__ "ResourcesProcessing" ResourcesProcessing.of_json in
      let resourcesFailed =
        field_map json__ "ResourcesFailed" ResourcesFailed.of_json in
      let resourcesSucceeded =
        field_map json__ "ResourcesSucceeded" ResourcesSucceeded.of_json in
      make ?resourcesPending ?resourcesProcessing ?resourcesFailed
        ?resourcesSucceeded ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the progress of the template generation."]
module TotalWarnings =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for TotalWarnings" 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 OperationEvents =
  struct
    type nonrec t = OperationEvent.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:OperationEvent.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:OperationEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"OperationEvents" ~of_json:OperationEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventFilter =
  struct
    type nonrec t =
      {
      failedEvents: FailedEventsFilter.t option
        [@ocaml.doc
          "When set to true, only returns failed events within the operation. This helps quickly identify root causes for a failed operation."]}
    let make ?failedEvents = fun () -> { failedEvents }
    let to_value x =
      structure_to_value
        [("FailedEvents",
           (Option.map x.failedEvents ~f:FailedEventsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedEvents =
        (Option.map ~f:FailedEventsFilter.of_xml)
          (Xml.child xml_arg0 "FailedEvents") in
      make ?failedEvents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedEvents =
        field_map json__ "FailedEvents" FailedEventsFilter.of_json in
      make ?failedEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Event filter allows you to focus on specific events in an operation."]
module Changes =
  struct
    type nonrec t = Change.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:Change.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:Change.of_xml)
    let of_json j = list_of_json ~kind:"Changes" ~of_json:Change.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeploymentMode =
  struct
    type nonrec t =
      | REVERT_DRIFT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | REVERT_DRIFT -> "REVERT_DRIFT" | Non_static_id s -> s
    let of_string =
      function | "REVERT_DRIFT" -> REVERT_DRIFT | 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 DeploymentMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeploymentMode" j)
    let to_json = simple_to_json to_value
  end
module OnStackFailure =
  struct
    type nonrec t =
      | DO_NOTHING 
      | ROLLBACK 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DO_NOTHING -> "DO_NOTHING"
      | ROLLBACK -> "ROLLBACK"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DO_NOTHING" -> DO_NOTHING
      | "ROLLBACK" -> ROLLBACK
      | "DELETE" -> DELETE
      | 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 OnStackFailure" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OnStackFailure" j)
    let to_json = simple_to_json to_value
  end
module IncludePropertyValues =
  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 ChangeSetHooks =
  struct
    type nonrec t = ChangeSetHook.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:ChangeSetHook.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:ChangeSetHook.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeSetHooks" ~of_json:ChangeSetHook.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeSetHooksStatus =
  struct
    type nonrec t =
      | PLANNING 
      | PLANNED 
      | UNAVAILABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PLANNING -> "PLANNING"
      | PLANNED -> "PLANNED"
      | UNAVAILABLE -> "UNAVAILABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PLANNING" -> PLANNING
      | "PLANNED" -> PLANNED
      | "UNAVAILABLE" -> UNAVAILABLE
      | 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 ChangeSetHooksStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeSetHooksStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountLimitList =
  struct
    type nonrec t = AccountLimit.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:AccountLimit.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:AccountLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountLimitList" ~of_json:AccountLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module StackSetNotEmptyException =
  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
       "You can't yet delete this StackSet, because it still contains one or more stack instances. Delete all stack instances from the StackSet before deleting the StackSet."]
module RetainStacks =
  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 RetainResources =
  struct
    type nonrec t = LogicalResourceId.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:LogicalResourceId.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:LogicalResourceId.of_xml)
    let of_json j =
      list_of_json ~kind:"RetainResources" ~of_json:LogicalResourceId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CreatedButModifiedException =
  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 "The specified resource exists, but has been changed."]
module NameAlreadyExistsException =
  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 "The specified name is already in use."]
module EnableStackCreation =
  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 ResourceMappings =
  struct
    type nonrec t = ResourceMapping.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:ResourceMapping.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:ResourceMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceMappings" ~of_json:ResourceMapping.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module StackDefinitions =
  struct
    type nonrec t = StackDefinition.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:StackDefinition.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:StackDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"StackDefinitions" ~of_json:StackDefinition.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OnFailure =
  struct
    type nonrec t =
      | DO_NOTHING 
      | ROLLBACK 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DO_NOTHING -> "DO_NOTHING"
      | ROLLBACK -> "ROLLBACK"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DO_NOTHING" -> DO_NOTHING
      | "ROLLBACK" -> ROLLBACK
      | "DELETE" -> DELETE
      | 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 OnFailure" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OnFailure" j)
    let to_json = simple_to_json to_value
  end
module ConcurrentResourcesLimitExceededException =
  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
       "No more than 5 generated templates can be in an InProgress or Pending status at one time. This error is also returned if a generated template that is in an InProgress or Pending status is attempted to be updated or deleted."]
module ChangeSetType =
  struct
    type nonrec t =
      | CREATE 
      | UPDATE 
      | IMPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE -> "CREATE"
      | UPDATE -> "UPDATE"
      | IMPORT -> "IMPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE" -> CREATE
      | "UPDATE" -> UPDATE
      | "IMPORT" -> IMPORT
      | 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 ChangeSetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeSetType" j)
    let to_json = simple_to_json to_value
  end
module ResourcesToImport =
  struct
    type nonrec t = ResourceToImport.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:ResourceToImport.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:ResourceToImport.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcesToImport"
        ~of_json:ResourceToImport.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourcesToSkip =
  struct
    type nonrec t = ResourceToSkip.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:ResourceToSkip.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:ResourceToSkip.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcesToSkip" ~of_json:ResourceToSkip.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDescribeTypeConfigurationsErrors =
  struct
    type nonrec t = BatchDescribeTypeConfigurationsError.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:BatchDescribeTypeConfigurationsError.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:BatchDescribeTypeConfigurationsError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchDescribeTypeConfigurationsErrors"
        ~of_json:BatchDescribeTypeConfigurationsError.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypeConfigurationDetailsList =
  struct
    type nonrec t = TypeConfigurationDetails.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:TypeConfigurationDetails.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:TypeConfigurationDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"TypeConfigurationDetailsList"
        ~of_json:TypeConfigurationDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypeConfigurationNotFoundException =
  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 "The specified extension configuration can't be found."]
module UnprocessedTypeConfigurations =
  struct
    type nonrec t = TypeConfigurationIdentifier.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:TypeConfigurationIdentifier.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:TypeConfigurationIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"UnprocessedTypeConfigurations"
        ~of_json:TypeConfigurationIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypeConfigurationIdentifiers =
  struct
    type nonrec t = TypeConfigurationIdentifier.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:TypeConfigurationIdentifier.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:TypeConfigurationIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"TypeConfigurationIdentifiers"
        ~of_json:TypeConfigurationIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module MajorVersion =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:100000L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ThirdPartyTypeArn =
  struct
    type nonrec t = string
    let context_ = "ThirdPartyTypeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[A-Za-z0-9-]{0,64}:cloudformation:[A-Za-z0-9-]{1,64}::type/.+/[0-9a-zA-Z]{12,40}/.+"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ThirdPartyTypeArn" j
    let to_json = simple_to_json to_value
  end
module VersionBump =
  struct
    type nonrec t =
      | MAJOR 
      | MINOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | MAJOR -> "MAJOR" | MINOR -> "MINOR" | Non_static_id s -> s
    let of_string =
      function | "MAJOR" -> MAJOR | "MINOR" -> MINOR | 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 VersionBump" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VersionBump" j)
    let to_json = simple_to_json to_value
  end
module ValidateTemplateOutput =
  struct
    type validateTemplateResult =
      {
      parameters: TemplateParameters.t option
        [@ocaml.doc "A list of TemplateParameter structures."];
      description: Description.t option
        [@ocaml.doc "The description found within the template."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the CreateStack or UpdateStack actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see Acknowledging IAM resources in CloudFormation templates."];
      capabilitiesReason: CapabilitiesReason.t option
        [@ocaml.doc
          "The list of resources that generated the values in the Capabilities response element."];
      declaredTransforms: TransformsList.t option
        [@ocaml.doc
          "A list of the transforms that are declared in the template."]}
    and responseMetaData = unit
    and t =
      {
      validateTemplateResult: validateTemplateResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ValidateTemplateOutput"
    let make ?parameters =
      fun ?description ->
        fun ?capabilities ->
          fun ?capabilitiesReason ->
            fun ?declaredTransforms ->
              fun () ->
                {
                  validateTemplateResult =
                    {
                      parameters;
                      description;
                      capabilities;
                      capabilitiesReason;
                      declaredTransforms
                    };
                  responseMetaData = ()
                }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.validateTemplateResult in
      structure_to_wrapped_value
        [("Parameters",
           (Option.map x.parameters ~f:TemplateParameters.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("CapabilitiesReason",
          (Option.map x.capabilitiesReason ~f:CapabilitiesReason.to_value));
        ("DeclaredTransforms",
          (Option.map x.declaredTransforms ~f:TransformsList.to_value))]
        ~wrapper:"ValidateTemplateResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ValidateTemplateResult" in
      let declaredTransforms =
        (Option.map ~f:TransformsList.of_xml)
          (Xml.child xml_arg0 "DeclaredTransforms") in
      let capabilitiesReason =
        (Option.map ~f:CapabilitiesReason.of_xml)
          (Xml.child xml_arg0 "CapabilitiesReason") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let parameters =
        (Option.map ~f:TemplateParameters.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      make ?declaredTransforms ?capabilitiesReason ?capabilities ?description
        ?parameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let declaredTransforms =
        field_map json__ "DeclaredTransforms" TransformsList.of_json in
      let capabilitiesReason =
        field_map json__ "CapabilitiesReason" CapabilitiesReason.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let parameters =
        field_map json__ "Parameters" TemplateParameters.of_json in
      make ?declaredTransforms ?capabilitiesReason ?capabilities ?description
        ?parameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for ValidateTemplate action."]
module ValidateTemplateInput =
  struct
    type nonrec t =
      {
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must pass TemplateURL or TemplateBody. If both are passed, only TemplateBody is used."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template (max size: 1 MB) that is located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. Conditional: You must pass TemplateURL or TemplateBody. If both are passed, only TemplateBody is used."]}
    let make ?templateBody =
      fun ?templateURL -> fun () -> { templateBody; templateURL }
    let to_value x =
      structure_to_value
        [("TemplateBody",
           (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      make ?templateURL ?templateBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      make ?templateURL ?templateBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for ValidateTemplate action."]
module UpdateTerminationProtectionOutput =
  struct
    type updateTerminationProtectionResult =
      {
      stackId: StackId.t option [@ocaml.doc "The unique ID of the stack."]}
    and responseMetaData = unit
    and t =
      {
      updateTerminationProtectionResult: updateTerminationProtectionResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateTerminationProtectionOutput"
    let make ?stackId =
      fun () ->
        {
          updateTerminationProtectionResult = { stackId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateTerminationProtectionResult in
      structure_to_wrapped_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value))]
        ~wrapper:"UpdateTerminationProtectionResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "UpdateTerminationProtectionResult" in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates termination protection for the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see Protect a CloudFormation stack from being deleted in the CloudFormation User Guide. For nested stacks, termination protection is set on the root stack and can't be changed directly on the nested stack."]
module UpdateTerminationProtectionInput =
  struct
    type nonrec t =
      {
      enableTerminationProtection: EnableTerminationProtection.t
        [@ocaml.doc
          "Whether to enable termination protection on the specified stack."];
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name or unique ID of the stack for which you want to set termination protection."]}
    let context_ = "UpdateTerminationProtectionInput"
    let make ~enableTerminationProtection =
      fun ~stackName -> fun () -> { enableTerminationProtection; stackName }
    let to_value x =
      structure_to_value
        [("EnableTerminationProtection",
           (Some
              (EnableTerminationProtection.to_value
                 x.enableTerminationProtection)));
        ("StackName", (Some (StackNameOrId.to_value x.stackName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      let enableTerminationProtection =
        EnableTerminationProtection.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "EnableTerminationProtection") in
      make ~stackName ~enableTerminationProtection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      let enableTerminationProtection =
        field_map_exn json__ "EnableTerminationProtection"
          EnableTerminationProtection.of_json in
      make ~stackName ~enableTerminationProtection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates termination protection for the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see Protect a CloudFormation stack from being deleted in the CloudFormation User Guide. For nested stacks, termination protection is set on the root stack and can't be changed directly on the nested stack."]
module UpdateStackSetOutput =
  struct
    type updateStackSetResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique ID for this StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      updateStackSetResult: updateStackSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationIdAlreadyExistsException of
          OperationIdAlreadyExistsException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackInstanceNotFoundException of StackInstanceNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `StaleRequestException of StaleRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateStackSetOutput"
    let make ?operationId =
      fun () ->
        { updateStackSetResult = { operationId }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationIdAlreadyExistsException e ->
          `Assoc
            [("error", (`String "OperationIdAlreadyExistsException"));
            ("details", (OperationIdAlreadyExistsException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackInstanceNotFoundException e ->
          `Assoc
            [("error", (`String "StackInstanceNotFoundException"));
            ("details", (StackInstanceNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `StaleRequestException e ->
          `Assoc
            [("error", (`String "StaleRequestException"));
            ("details", (StaleRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateStackSetResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"UpdateStackSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "UpdateStackSetResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the StackSet and associated stack instances in the specified accounts and Amazon Web Services Regions. Even if the StackSet operation created by updating the StackSet fails (completely or partially, below or above a specified failure tolerance), the StackSet is updated with your changes. Subsequent CreateStackInstances calls on the specified StackSet use the updated StackSet. The maximum number of organizational unit (OUs) supported by a UpdateStackSet operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module UpdateStackSetInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to update."];
      description: Description.t option
        [@ocaml.doc "A brief description of updates that you are making."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must specify only one of the following parameters: TemplateBody or TemplateURL\226\128\148or set UsePreviousTemplate to true."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template (maximum size: 1 MB) that is located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. S3 static website URLs are not supported. Conditional: You must specify only one of the following parameters: TemplateBody or TemplateURL\226\128\148or set UsePreviousTemplate to true."];
      usePreviousTemplate: UsePreviousTemplate.t option
        [@ocaml.doc
          "Use the existing template that's associated with the StackSet that you're updating. Conditional: You must specify only one of the following parameters: TemplateBody or TemplateURL\226\128\148or set UsePreviousTemplate to true."];
      parameters: Parameters.t option
        [@ocaml.doc "A list of input parameters for the StackSet template."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "In some cases, you must explicitly acknowledge that your stack template contains certain capabilities in order for CloudFormation to update the StackSet and its associated stack instances. CAPABILITY_IAM and CAPABILITY_NAMED_IAM Some stack templates might include resources that can affect permissions in your Amazon Web Services account, for example, by creating new IAM users. For those stacks sets, you must explicitly acknowledge this by specifying one of these capabilities. The following IAM resources require you to specify either the CAPABILITY_IAM or CAPABILITY_NAMED_IAM capability. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify either of these capabilities, CloudFormation returns an InsufficientCapabilities error. If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. AWS::IAM::AccessKey AWS::IAM::Group AWS::IAM::InstanceProfile AWS::IAM::Policy AWS::IAM::Role AWS::IAM::User AWS::IAM::UserToGroupAddition For more information, see Acknowledging IAM resources in CloudFormation templates. CAPABILITY_AUTO_EXPAND Some templates reference macros. If your StackSet template references one or more macros, you must update the StackSet directly from the processed template, without first reviewing the resulting changes in a change set. To update the StackSet directly, you must acknowledge this capability. For more information, see Perform custom processing on CloudFormation templates with template macros. StackSets with service-managed permissions do not currently support the use of macros in templates. (This includes the AWS::Include and AWS::Serverless transforms, which are macros hosted by CloudFormation.) Even if you specify this capability for a StackSet with service-managed permissions, if you reference a macro in your template the StackSet operation will fail."];
      tags: Tags.t option
        [@ocaml.doc
          "The key-value pairs to associate with this StackSet and the stacks created from it. CloudFormation also propagates these tags to supported resources that are created in the stacks. You can specify a maximum number of 50 tags. If you specify tags for this parameter, those tags replace any list of tags that are currently associated with this StackSet. This means: If you don't specify this parameter, CloudFormation doesn't modify the stack's tags. If you specify any tags using this parameter, you must specify all the tags that you want associated with this StackSet, even tags you've specified before (for example, when creating the StackSet or during a previous update of the StackSet.). Any tags that you don't include in the updated list of tags are removed from the StackSet, and therefore from the stacks and resources as well. If you specify an empty value, CloudFormation removes all currently associated tags. If you specify new tags as part of an UpdateStackSet action, CloudFormation checks to see if you have the required IAM permission to tag resources. If you omit tags that are currently associated with the StackSet from the list of tags you specify, CloudFormation assumes that you want to remove those tags from the StackSet, and checks to see if you have permission to untag resources. If you don't have the necessary permission(s), the entire UpdateStackSet action fails with an access denied error, and the StackSet is not updated."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "Preferences for how CloudFormation performs this StackSet operation."];
      administrationRoleARN: RoleARN.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The Amazon Resource Name (ARN) of the IAM role to use to update this StackSet. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific StackSets within the same administrator account. For more information, see Grant self-managed permissions in the CloudFormation User Guide. If you specified a customized administrator role when you created the StackSet, you must specify a customized administrator role, even if it is the same customized administrator role used with this StackSet previously."];
      executionRoleName: ExecutionRoleName.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The name of the IAM execution role to use to update the stack set. If you do not specify an execution role, CloudFormation uses the AWSCloudFormationStackSetExecutionRole role for the StackSet operation. Specify an IAM role only if you are using customized execution roles to control which stack resources users and groups can include in their StackSets. If you specify a customized execution role, CloudFormation uses that role to update the stack. If you do not specify a customized execution role, CloudFormation performs the update using the role previously associated with the StackSet, so long as you have permissions to perform operations on the StackSet."];
      deploymentTargets: DeploymentTargets.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The Organizations accounts in which to update associated stack instances. To update all the stack instances associated with this StackSet, do not specify DeploymentTargets or Regions. If the StackSet update includes changes to the template (that is, if TemplateBody or TemplateURL is specified), or the Parameters, CloudFormation marks all stack instances with a status of OUTDATED prior to updating the stack instances in the specified accounts and Amazon Web Services Regions. If the StackSet update doesn't include changes to the template or parameters, CloudFormation updates the stack instances in the specified accounts and Regions, while leaving all other stack instances with their existing stack instance status."];
      permissionModel: PermissionModels.t option
        [@ocaml.doc
          "Describes how the IAM roles required for StackSet operations are created. You cannot modify PermissionModel if there are stack instances associated with your stack set. With self-managed permissions, you must create the administrator and execution roles required to deploy to target accounts. For more information, see Grant self-managed permissions. With service-managed permissions, StackSets automatically creates the IAM roles required to deploy to accounts managed by Organizations. For more information, see Activate trusted access for StackSets with Organizations."];
      autoDeployment: AutoDeployment.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Describes whether StackSets automatically deploys to Organizations accounts that are added to a target organization or organizational unit (OU). For more information, see Enable or disable automatic deployments for StackSets in Organizations in the CloudFormation User Guide. If you specify AutoDeployment, don't specify DeploymentTargets or Regions."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "The unique ID for this StackSet operation. The operation ID also functions as an idempotency token, to ensure that CloudFormation performs the StackSet operation only once, even if you retry the request multiple times. You might retry StackSet operation requests to ensure that CloudFormation successfully received them. If you don't specify an operation ID, CloudFormation generates one automatically. Repeating this StackSet operation with a new operation ID retries all stack instances whose status is OUTDATED."];
      accounts: AccountList.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The accounts in which to update associated stack instances. If you specify accounts, you must also specify the Amazon Web Services Regions in which to update StackSet instances. To update all the stack instances associated with this StackSet, don't specify the Accounts or Regions properties. If the StackSet update includes changes to the template (that is, if the TemplateBody or TemplateURL properties are specified), or the Parameters property, CloudFormation marks all stack instances with a status of OUTDATED prior to updating the stack instances in the specified accounts and Amazon Web Services Regions. If the StackSet update does not include changes to the template or parameters, CloudFormation updates the stack instances in the specified accounts and Amazon Web Services Regions, while leaving all other stack instances with their existing stack instance status."];
      regions: RegionList.t option
        [@ocaml.doc
          "The Amazon Web Services Regions in which to update associated stack instances. If you specify Regions, you must also specify accounts in which to update StackSet instances. To update all the stack instances associated with this StackSet, do not specify the Accounts or Regions properties. If the StackSet update includes changes to the template (that is, if the TemplateBody or TemplateURL properties are specified), or the Parameters property, CloudFormation marks all stack instances with a status of OUTDATED prior to updating the stack instances in the specified accounts and Regions. If the StackSet update does not include changes to the template or parameters, CloudFormation updates the stack instances in the specified accounts and Regions, while leaving all other stack instances with their existing stack instance status."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."];
      managedExecution: ManagedExecution.t option
        [@ocaml.doc
          "Describes whether CloudFormation performs non-conflicting operations concurrently and queues conflicting operations."]}
    let context_ = "UpdateStackSetInput"
    let make ?description =
      fun ?templateBody ->
        fun ?templateURL ->
          fun ?usePreviousTemplate ->
            fun ?parameters ->
              fun ?capabilities ->
                fun ?tags ->
                  fun ?operationPreferences ->
                    fun ?administrationRoleARN ->
                      fun ?executionRoleName ->
                        fun ?deploymentTargets ->
                          fun ?permissionModel ->
                            fun ?autoDeployment ->
                              fun ?operationId ->
                                fun ?accounts ->
                                  fun ?regions ->
                                    fun ?callAs ->
                                      fun ?managedExecution ->
                                        fun ~stackSetName ->
                                          fun () ->
                                            {
                                              description;
                                              templateBody;
                                              templateURL;
                                              usePreviousTemplate;
                                              parameters;
                                              capabilities;
                                              tags;
                                              operationPreferences;
                                              administrationRoleARN;
                                              executionRoleName;
                                              deploymentTargets;
                                              permissionModel;
                                              autoDeployment;
                                              operationId;
                                              accounts;
                                              regions;
                                              callAs;
                                              managedExecution;
                                              stackSetName
                                            }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("UsePreviousTemplate",
          (Option.map x.usePreviousTemplate ~f:UsePreviousTemplate.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("AdministrationRoleARN",
          (Option.map x.administrationRoleARN ~f:RoleARN.to_value));
        ("ExecutionRoleName",
          (Option.map x.executionRoleName ~f:ExecutionRoleName.to_value));
        ("DeploymentTargets",
          (Option.map x.deploymentTargets ~f:DeploymentTargets.to_value));
        ("PermissionModel",
          (Option.map x.permissionModel ~f:PermissionModels.to_value));
        ("AutoDeployment",
          (Option.map x.autoDeployment ~f:AutoDeployment.to_value));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("Regions", (Option.map x.regions ~f:RegionList.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value));
        ("ManagedExecution",
          (Option.map x.managedExecution ~f:ManagedExecution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedExecution =
        (Option.map ~f:ManagedExecution.of_xml)
          (Xml.child xml_arg0 "ManagedExecution") in
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let regions =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "Regions") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let autoDeployment =
        (Option.map ~f:AutoDeployment.of_xml)
          (Xml.child xml_arg0 "AutoDeployment") in
      let permissionModel =
        (Option.map ~f:PermissionModels.of_xml)
          (Xml.child xml_arg0 "PermissionModel") in
      let deploymentTargets =
        (Option.map ~f:DeploymentTargets.of_xml)
          (Xml.child xml_arg0 "DeploymentTargets") in
      let executionRoleName =
        (Option.map ~f:ExecutionRoleName.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleName") in
      let administrationRoleARN =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "AdministrationRoleARN") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let usePreviousTemplate =
        (Option.map ~f:UsePreviousTemplate.of_xml)
          (Xml.child xml_arg0 "UsePreviousTemplate") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?managedExecution ?callAs ?regions ?accounts ?operationId
        ?autoDeployment ?permissionModel ?deploymentTargets
        ?executionRoleName ?administrationRoleARN ?operationPreferences ?tags
        ?capabilities ?parameters ?usePreviousTemplate ?templateURL
        ?templateBody ?description ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedExecution =
        field_map json__ "ManagedExecution" ManagedExecution.of_json in
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let regions = field_map json__ "Regions" RegionList.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let autoDeployment =
        field_map json__ "AutoDeployment" AutoDeployment.of_json in
      let permissionModel =
        field_map json__ "PermissionModel" PermissionModels.of_json in
      let deploymentTargets =
        field_map json__ "DeploymentTargets" DeploymentTargets.of_json in
      let executionRoleName =
        field_map json__ "ExecutionRoleName" ExecutionRoleName.of_json in
      let administrationRoleARN =
        field_map json__ "AdministrationRoleARN" RoleARN.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let usePreviousTemplate =
        field_map json__ "UsePreviousTemplate" UsePreviousTemplate.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?managedExecution ?callAs ?regions ?accounts ?operationId
        ?autoDeployment ?permissionModel ?deploymentTargets
        ?executionRoleName ?administrationRoleARN ?operationPreferences ?tags
        ?capabilities ?parameters ?usePreviousTemplate ?templateURL
        ?templateBody ?description ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the StackSet and associated stack instances in the specified accounts and Amazon Web Services Regions. Even if the StackSet operation created by updating the StackSet fails (completely or partially, below or above a specified failure tolerance), the StackSet is updated with your changes. Subsequent CreateStackInstances calls on the specified StackSet use the updated StackSet. The maximum number of organizational unit (OUs) supported by a UpdateStackSet operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module UpdateStackOutput =
  struct
    type updateStackResult =
      {
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      operationId: OperationId.t option
        [@ocaml.doc
          "A unique identifier for this update operation that can be used to track the operation's progress and events."]}
    and responseMetaData = unit
    and t =
      {
      updateStackResult: updateStackResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `InsufficientCapabilitiesException of
          InsufficientCapabilitiesException.t 
      | `TokenAlreadyExistsException of TokenAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateStackOutput"
    let make ?stackId =
      fun ?operationId ->
        fun () ->
          {
            updateStackResult = { stackId; operationId };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_json json)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_xml xml)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InsufficientCapabilitiesException e ->
          `Assoc
            [("error", (`String "InsufficientCapabilitiesException"));
            ("details", (InsufficientCapabilitiesException.to_json e))]
      | `TokenAlreadyExistsException e ->
          `Assoc
            [("error", (`String "TokenAlreadyExistsException"));
            ("details", (TokenAlreadyExistsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateStackResult in
      structure_to_wrapped_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
        ~wrapper:"UpdateStackResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "UpdateStackResult" in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?operationId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?operationId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for an UpdateStack action."]
module UpdateStackInstancesOutput =
  struct
    type updateStackInstancesResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique identifier for this StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      updateStackInstancesResult: updateStackInstancesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationIdAlreadyExistsException of
          OperationIdAlreadyExistsException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackInstanceNotFoundException of StackInstanceNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `StaleRequestException of StaleRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateStackInstancesOutput"
    let make ?operationId =
      fun () ->
        { updateStackInstancesResult = { operationId }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationIdAlreadyExistsException e ->
          `Assoc
            [("error", (`String "OperationIdAlreadyExistsException"));
            ("details", (OperationIdAlreadyExistsException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackInstanceNotFoundException e ->
          `Assoc
            [("error", (`String "StackInstanceNotFoundException"));
            ("details", (StackInstanceNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `StaleRequestException e ->
          `Assoc
            [("error", (`String "StaleRequestException"));
            ("details", (StaleRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateStackInstancesResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"UpdateStackInstancesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "UpdateStackInstancesResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the parameter values for stack instances for the specified accounts, within the specified Amazon Web Services Regions. A stack instance refers to a stack in a specific account and Region. You can only update stack instances in Amazon Web Services Regions and accounts where they already exist; to create additional stack instances, use CreateStackInstances. During StackSet updates, any parameters overridden for a stack instance aren't updated, but retain their overridden value. You can only update the parameter values that are specified in the StackSet. To add or delete a parameter itself, use UpdateStackSet to update the StackSet template. If you add a parameter to a template, before you can override the parameter value specified in the StackSet you must first use UpdateStackSet to update all stack instances with the updated template and parameter value specified in the StackSet. Once a stack instance has been updated with the new parameter, you can then override the parameter value using UpdateStackInstances. The maximum number of organizational unit (OUs) supported by a UpdateStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module UpdateStackInstancesInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetNameOrId.t
        [@ocaml.doc
          "The name or unique ID of the StackSet associated with the stack instances."];
      accounts: AccountList.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The account IDs of one or more Amazon Web Services accounts in which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and Amazon Web Services Regions. You can specify Accounts or DeploymentTargets, but not both."];
      deploymentTargets: DeploymentTargets.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The Organizations accounts in which you want to update parameter values for stack instances. If your update targets OUs, the overridden parameter values only apply to the accounts that are currently in the target OUs and their child OUs. Accounts added to the target OUs and their child OUs in the future won't use the overridden values. You can specify Accounts or DeploymentTargets, but not both."];
      regions: RegionList.t
        [@ocaml.doc
          "The names of one or more Amazon Web Services Regions in which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and Amazon Web Services Regions."];
      parameterOverrides: Parameters.t option
        [@ocaml.doc
          "A list of input parameters whose values you want to update for the specified stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and Amazon Web Services Regions. When specifying parameters and their values, be aware of how CloudFormation sets parameter values during stack instance update operations: To override the current value for a parameter, include the parameter and specify its value. To leave an overridden parameter set to its present value, include the parameter and specify UsePreviousValue as true. (You can't specify both a value and set UsePreviousValue to true.) To set an overridden parameter back to the value specified in the StackSet, specify a parameter list but don't include the parameter in the list. To leave all parameters set to their present values, don't specify this property at all. During StackSet updates, any parameter values overridden for a stack instance aren't updated, but retain their overridden value. You can only override the parameter values that are specified in the StackSet. To add or delete a parameter itself, use UpdateStackSet to update the StackSet template. If you add a parameter to a template, before you can override the parameter value specified in the StackSet you must first use UpdateStackSet to update all stack instances with the updated template and parameter value specified in the StackSet. Once a stack instance has been updated with the new parameter, you can then override the parameter value using UpdateStackInstances."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "Preferences for how CloudFormation performs this StackSet operation."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "The unique identifier for this StackSet operation. The operation ID also functions as an idempotency token, to ensure that CloudFormation performs the StackSet operation only once, even if you retry the request multiple times. You might retry StackSet operation requests to ensure that CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "UpdateStackInstancesInput"
    let make ?accounts =
      fun ?deploymentTargets ->
        fun ?parameterOverrides ->
          fun ?operationPreferences ->
            fun ?operationId ->
              fun ?callAs ->
                fun ~stackSetName ->
                  fun ~regions ->
                    fun () ->
                      {
                        accounts;
                        deploymentTargets;
                        parameterOverrides;
                        operationPreferences;
                        operationId;
                        callAs;
                        stackSetName;
                        regions
                      }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetNameOrId.to_value x.stackSetName)));
        ("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("DeploymentTargets",
          (Option.map x.deploymentTargets ~f:DeploymentTargets.to_value));
        ("Regions", (Some (RegionList.to_value x.regions)));
        ("ParameterOverrides",
          (Option.map x.parameterOverrides ~f:Parameters.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let parameterOverrides =
        (Option.map ~f:Parameters.of_xml)
          (Xml.child xml_arg0 "ParameterOverrides") in
      let regions =
        RegionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Regions") in
      let deploymentTargets =
        (Option.map ~f:DeploymentTargets.of_xml)
          (Xml.child xml_arg0 "DeploymentTargets") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      let stackSetName =
        StackSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?operationId ?operationPreferences ?parameterOverrides
        ~regions ?deploymentTargets ?accounts ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let parameterOverrides =
        field_map json__ "ParameterOverrides" Parameters.of_json in
      let regions = field_map_exn json__ "Regions" RegionList.of_json in
      let deploymentTargets =
        field_map json__ "DeploymentTargets" DeploymentTargets.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetNameOrId.of_json in
      make ?callAs ?operationId ?operationPreferences ?parameterOverrides
        ~regions ?deploymentTargets ?accounts ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the parameter values for stack instances for the specified accounts, within the specified Amazon Web Services Regions. A stack instance refers to a stack in a specific account and Region. You can only update stack instances in Amazon Web Services Regions and accounts where they already exist; to create additional stack instances, use CreateStackInstances. During StackSet updates, any parameters overridden for a stack instance aren't updated, but retain their overridden value. You can only update the parameter values that are specified in the StackSet. To add or delete a parameter itself, use UpdateStackSet to update the StackSet template. If you add a parameter to a template, before you can override the parameter value specified in the StackSet you must first use UpdateStackSet to update all stack instances with the updated template and parameter value specified in the StackSet. Once a stack instance has been updated with the new parameter, you can then override the parameter value using UpdateStackInstances. The maximum number of organizational unit (OUs) supported by a UpdateStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module UpdateStackInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc "The name or unique stack ID of the stack to update."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template that's located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      usePreviousTemplate: UsePreviousTemplate.t option
        [@ocaml.doc
          "Reuse the existing template that is associated with the stack that you are updating. When using templates with the AWS::LanguageExtensions transform, provide the template instead of using UsePreviousTemplate to ensure new parameter values and Systems Manager parameter updates are applied correctly. For more information, see AWS::LanguageExtensions transform. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      stackPolicyDuringUpdateBody: StackPolicyDuringUpdateBody.t option
        [@ocaml.doc
          "Structure that contains the temporary overriding stack policy body. You can specify either the StackPolicyDuringUpdateBody or the StackPolicyDuringUpdateURL parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you don't specify a stack policy, the current policy that is associated with the stack will be used."];
      stackPolicyDuringUpdateURL: StackPolicyDuringUpdateURL.t option
        [@ocaml.doc
          "Location of a file that contains the temporary overriding stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same Region as the stack. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. You can specify either the StackPolicyDuringUpdateBody or the StackPolicyDuringUpdateURL parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you don't specify a stack policy, the current policy that is associated with the stack will be used."];
      parameters: Parameters.t option
        [@ocaml.doc
          "A list of Parameter structures that specify input parameters for the stack. For more information, see the Parameter data type."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "In some cases, you must explicitly acknowledge that your stack template contains certain capabilities in order for CloudFormation to update the stack. CAPABILITY_IAM and CAPABILITY_NAMED_IAM Some stack templates might include resources that can affect permissions in your Amazon Web Services account, for example, by creating new IAM users. For those stacks, you must explicitly acknowledge this by specifying one of these capabilities. The following IAM resources require you to specify either the CAPABILITY_IAM or CAPABILITY_NAMED_IAM capability. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify either of these capabilities, CloudFormation returns an InsufficientCapabilities error. If your stack template contains these resources, we suggest that you review all permissions associated with them and edit their permissions if necessary. AWS::IAM::AccessKey AWS::IAM::Group AWS::IAM::InstanceProfile AWS::IAM::ManagedPolicy AWS::IAM::Policy AWS::IAM::Role AWS::IAM::User AWS::IAM::UserToGroupAddition For more information, see Acknowledging IAM resources in CloudFormation templates. CAPABILITY_AUTO_EXPAND Some template contain macros. Macros perform custom processing on templates; this can include simple actions like find-and-replace operations, all the way to extensive transformations of entire templates. Because of this, users typically create a change set from the processed template, so that they can review the changes resulting from the macros before actually updating the stack. If your stack template contains one or more macros, and you choose to update a stack directly from the processed template, without first reviewing the resulting changes in a change set, you must acknowledge this capability. This includes the AWS::Include and AWS::Serverless transforms, which are macros hosted by CloudFormation. If you want to update a stack from a stack template that contains macros and nested stacks, you must update the stack directly from the template using this capability. You should only update stacks directly from a stack template that contains macros if you know what processing the macro performs. Each macro relies on an underlying Lambda service function for processing stack templates. Be aware that the Lambda function owner can update the function operation without CloudFormation being notified. For more information, see Perform custom processing on CloudFormation templates with template macros. Only one of the Capabilities and ResourceType parameters can be specified."];
      resourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "Specifies which resource types you can work with, such as AWS::EC2::Instance or Custom::MyCustomInstance. If the list of resource types doesn't include a resource that you're updating, the stack update fails. By default, CloudFormation grants permissions to all resource types. IAM uses this parameter for CloudFormation-specific condition keys in IAM policies. For more information, see Control CloudFormation access with Identity and Access Management. Only one of the Capabilities and ResourceType parameters can be specified."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes to update the stack. CloudFormation uses the role's credentials to make calls on your behalf. CloudFormation always uses this role for all future operations on the stack. Provided that users have permission to operate on the stack, CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, CloudFormation uses the role that was previously associated with the stack. If no role is available, CloudFormation uses a temporary session that is generated from your user credentials."];
      rollbackConfiguration: RollbackConfiguration.t option
        [@ocaml.doc
          "The rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards."];
      stackPolicyBody: StackPolicyBody.t option
        [@ocaml.doc
          "Structure that contains a new stack policy body. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you don't specify a stack policy, the current policy that is associated with the stack is unchanged."];
      stackPolicyURL: StackPolicyURL.t option
        [@ocaml.doc
          "Location of a file that contains the updated stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same Region as the stack. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you don't specify a stack policy, the current policy that is associated with the stack is unchanged."];
      notificationARNs: NotificationARNs.t option
        [@ocaml.doc
          "Amazon Simple Notification Service topic Amazon Resource Names (ARNs) that CloudFormation associates with the stack. Specify an empty list to remove all notification topics."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs to associate with this stack. CloudFormation also propagates these tags to supported resources in the stack. You can specify a maximum number of 50 tags. If you don't specify this parameter, CloudFormation doesn't modify the stack's tags. If you specify an empty value, CloudFormation removes all associated tags."];
      disableRollback: DisableRollback.t option
        [@ocaml.doc
          "Preserve the state of previously provisioned resources when an operation fails. Default: False"];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this UpdateStack request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to update a stack with the same name. You might retry UpdateStack requests to ensure that CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a CreateStack operation with the token token1, then all the StackEvents generated by that operation will have ClientRequestToken set as token1. In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format Console-StackOperation-ID, which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002."];
      retainExceptOnCreate: RetainExceptOnCreate.t option
        [@ocaml.doc
          "When set to true, newly created resources are deleted when the operation rolls back. This includes newly created resources marked with a deletion policy of Retain. Default: false"]}
    let context_ = "UpdateStackInput"
    let make ?templateBody =
      fun ?templateURL ->
        fun ?usePreviousTemplate ->
          fun ?stackPolicyDuringUpdateBody ->
            fun ?stackPolicyDuringUpdateURL ->
              fun ?parameters ->
                fun ?capabilities ->
                  fun ?resourceTypes ->
                    fun ?roleARN ->
                      fun ?rollbackConfiguration ->
                        fun ?stackPolicyBody ->
                          fun ?stackPolicyURL ->
                            fun ?notificationARNs ->
                              fun ?tags ->
                                fun ?disableRollback ->
                                  fun ?clientRequestToken ->
                                    fun ?retainExceptOnCreate ->
                                      fun ~stackName ->
                                        fun () ->
                                          {
                                            templateBody;
                                            templateURL;
                                            usePreviousTemplate;
                                            stackPolicyDuringUpdateBody;
                                            stackPolicyDuringUpdateURL;
                                            parameters;
                                            capabilities;
                                            resourceTypes;
                                            roleARN;
                                            rollbackConfiguration;
                                            stackPolicyBody;
                                            stackPolicyURL;
                                            notificationARNs;
                                            tags;
                                            disableRollback;
                                            clientRequestToken;
                                            retainExceptOnCreate;
                                            stackName
                                          }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("UsePreviousTemplate",
          (Option.map x.usePreviousTemplate ~f:UsePreviousTemplate.to_value));
        ("StackPolicyDuringUpdateBody",
          (Option.map x.stackPolicyDuringUpdateBody
             ~f:StackPolicyDuringUpdateBody.to_value));
        ("StackPolicyDuringUpdateURL",
          (Option.map x.stackPolicyDuringUpdateURL
             ~f:StackPolicyDuringUpdateURL.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:ResourceTypes.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("RollbackConfiguration",
          (Option.map x.rollbackConfiguration
             ~f:RollbackConfiguration.to_value));
        ("StackPolicyBody",
          (Option.map x.stackPolicyBody ~f:StackPolicyBody.to_value));
        ("StackPolicyURL",
          (Option.map x.stackPolicyURL ~f:StackPolicyURL.to_value));
        ("NotificationARNs",
          (Option.map x.notificationARNs ~f:NotificationARNs.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("DisableRollback",
          (Option.map x.disableRollback ~f:DisableRollback.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("RetainExceptOnCreate",
          (Option.map x.retainExceptOnCreate ~f:RetainExceptOnCreate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retainExceptOnCreate =
        (Option.map ~f:RetainExceptOnCreate.of_xml)
          (Xml.child xml_arg0 "RetainExceptOnCreate") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let disableRollback =
        (Option.map ~f:DisableRollback.of_xml)
          (Xml.child xml_arg0 "DisableRollback") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let notificationARNs =
        (Option.map ~f:NotificationARNs.of_xml)
          (Xml.child xml_arg0 "NotificationARNs") in
      let stackPolicyURL =
        (Option.map ~f:StackPolicyURL.of_xml)
          (Xml.child xml_arg0 "StackPolicyURL") in
      let stackPolicyBody =
        (Option.map ~f:StackPolicyBody.of_xml)
          (Xml.child xml_arg0 "StackPolicyBody") in
      let rollbackConfiguration =
        (Option.map ~f:RollbackConfiguration.of_xml)
          (Xml.child xml_arg0 "RollbackConfiguration") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let stackPolicyDuringUpdateURL =
        (Option.map ~f:StackPolicyDuringUpdateURL.of_xml)
          (Xml.child xml_arg0 "StackPolicyDuringUpdateURL") in
      let stackPolicyDuringUpdateBody =
        (Option.map ~f:StackPolicyDuringUpdateBody.of_xml)
          (Xml.child xml_arg0 "StackPolicyDuringUpdateBody") in
      let usePreviousTemplate =
        (Option.map ~f:UsePreviousTemplate.of_xml)
          (Xml.child xml_arg0 "UsePreviousTemplate") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?retainExceptOnCreate ?clientRequestToken ?disableRollback ?tags
        ?notificationARNs ?stackPolicyURL ?stackPolicyBody
        ?rollbackConfiguration ?roleARN ?resourceTypes ?capabilities
        ?parameters ?stackPolicyDuringUpdateURL ?stackPolicyDuringUpdateBody
        ?usePreviousTemplate ?templateURL ?templateBody ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retainExceptOnCreate =
        field_map json__ "RetainExceptOnCreate" RetainExceptOnCreate.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let disableRollback =
        field_map json__ "DisableRollback" DisableRollback.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let notificationARNs =
        field_map json__ "NotificationARNs" NotificationARNs.of_json in
      let stackPolicyURL =
        field_map json__ "StackPolicyURL" StackPolicyURL.of_json in
      let stackPolicyBody =
        field_map json__ "StackPolicyBody" StackPolicyBody.of_json in
      let rollbackConfiguration =
        field_map json__ "RollbackConfiguration"
          RollbackConfiguration.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypes.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let stackPolicyDuringUpdateURL =
        field_map json__ "StackPolicyDuringUpdateURL"
          StackPolicyDuringUpdateURL.of_json in
      let stackPolicyDuringUpdateBody =
        field_map json__ "StackPolicyDuringUpdateBody"
          StackPolicyDuringUpdateBody.of_json in
      let usePreviousTemplate =
        field_map json__ "UsePreviousTemplate" UsePreviousTemplate.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?retainExceptOnCreate ?clientRequestToken ?disableRollback ?tags
        ?notificationARNs ?stackPolicyURL ?stackPolicyBody
        ?rollbackConfiguration ?roleARN ?resourceTypes ?capabilities
        ?parameters ?stackPolicyDuringUpdateURL ?stackPolicyDuringUpdateBody
        ?usePreviousTemplate ?templateURL ?templateBody ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for an UpdateStack action."]
module UpdateGeneratedTemplateOutput =
  struct
    type updateGeneratedTemplateResult =
      {
      generatedTemplateId: GeneratedTemplateId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the generated template. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:generatedtemplate/$\\{Id\\}. For example, arn:aws:cloudformation:us-east-1:123456789012:generatedtemplate/2e8465c1-9a80-43ea-a3a3-4f2d692fe6dc ."]}
    and responseMetaData = unit
    and t =
      {
      updateGeneratedTemplateResult: updateGeneratedTemplateResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `GeneratedTemplateNotFoundException of
          GeneratedTemplateNotFoundException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateGeneratedTemplateOutput"
    let make ?generatedTemplateId =
      fun () ->
        {
          updateGeneratedTemplateResult = { generatedTemplateId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `GeneratedTemplateNotFoundException e ->
          `Assoc
            [("error", (`String "GeneratedTemplateNotFoundException"));
            ("details", (GeneratedTemplateNotFoundException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateGeneratedTemplateResult in
      structure_to_wrapped_value
        [("GeneratedTemplateId",
           (Option.map x.generatedTemplateId ~f:GeneratedTemplateId.to_value))]
        ~wrapper:"UpdateGeneratedTemplateResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "UpdateGeneratedTemplateResult" in
      let generatedTemplateId =
        (Option.map ~f:GeneratedTemplateId.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateId") in
      make ?generatedTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedTemplateId =
        field_map json__ "GeneratedTemplateId" GeneratedTemplateId.of_json in
      make ?generatedTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a generated template. This can be used to change the name, add and remove resources, refresh resources, and change the DeletionPolicy and UpdateReplacePolicy settings. You can check the status of the update to the generated template using the DescribeGeneratedTemplate API action."]
module UpdateGeneratedTemplateInput =
  struct
    type nonrec t =
      {
      generatedTemplateName: GeneratedTemplateName.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of a generated template."];
      newGeneratedTemplateName: GeneratedTemplateName.t option
        [@ocaml.doc
          "An optional new name to assign to the generated template."];
      addResources: ResourceDefinitions.t option
        [@ocaml.doc
          "An optional list of resources to be added to the generated template."];
      removeResources: JazzLogicalResourceIds.t option
        [@ocaml.doc
          "A list of logical ids for resources to remove from the generated template."];
      refreshAllResources: RefreshAllResources.t option
        [@ocaml.doc
          "If true, update the resource properties in the generated template with their current live state. This feature is useful when the resource properties in your generated a template does not reflect the live state of the resource properties. This happens when a user update the resource properties after generating a template."];
      templateConfiguration: TemplateConfiguration.t option
        [@ocaml.doc
          "The configuration details of the generated template, including the DeletionPolicy and UpdateReplacePolicy."]}
    let context_ = "UpdateGeneratedTemplateInput"
    let make ?newGeneratedTemplateName =
      fun ?addResources ->
        fun ?removeResources ->
          fun ?refreshAllResources ->
            fun ?templateConfiguration ->
              fun ~generatedTemplateName ->
                fun () ->
                  {
                    newGeneratedTemplateName;
                    addResources;
                    removeResources;
                    refreshAllResources;
                    templateConfiguration;
                    generatedTemplateName
                  }
    let to_value x =
      structure_to_value
        [("GeneratedTemplateName",
           (Some (GeneratedTemplateName.to_value x.generatedTemplateName)));
        ("NewGeneratedTemplateName",
          (Option.map x.newGeneratedTemplateName
             ~f:GeneratedTemplateName.to_value));
        ("AddResources",
          (Option.map x.addResources ~f:ResourceDefinitions.to_value));
        ("RemoveResources",
          (Option.map x.removeResources ~f:JazzLogicalResourceIds.to_value));
        ("RefreshAllResources",
          (Option.map x.refreshAllResources ~f:RefreshAllResources.to_value));
        ("TemplateConfiguration",
          (Option.map x.templateConfiguration
             ~f:TemplateConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateConfiguration =
        (Option.map ~f:TemplateConfiguration.of_xml)
          (Xml.child xml_arg0 "TemplateConfiguration") in
      let refreshAllResources =
        (Option.map ~f:RefreshAllResources.of_xml)
          (Xml.child xml_arg0 "RefreshAllResources") in
      let removeResources =
        (Option.map ~f:JazzLogicalResourceIds.of_xml)
          (Xml.child xml_arg0 "RemoveResources") in
      let addResources =
        (Option.map ~f:ResourceDefinitions.of_xml)
          (Xml.child xml_arg0 "AddResources") in
      let newGeneratedTemplateName =
        (Option.map ~f:GeneratedTemplateName.of_xml)
          (Xml.child xml_arg0 "NewGeneratedTemplateName") in
      let generatedTemplateName =
        GeneratedTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedTemplateName") in
      make ?templateConfiguration ?refreshAllResources ?removeResources
        ?addResources ?newGeneratedTemplateName ~generatedTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateConfiguration =
        field_map json__ "TemplateConfiguration"
          TemplateConfiguration.of_json in
      let refreshAllResources =
        field_map json__ "RefreshAllResources" RefreshAllResources.of_json in
      let removeResources =
        field_map json__ "RemoveResources" JazzLogicalResourceIds.of_json in
      let addResources =
        field_map json__ "AddResources" ResourceDefinitions.of_json in
      let newGeneratedTemplateName =
        field_map json__ "NewGeneratedTemplateName"
          GeneratedTemplateName.of_json in
      let generatedTemplateName =
        field_map_exn json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      make ?templateConfiguration ?refreshAllResources ?removeResources
        ?addResources ?newGeneratedTemplateName ~generatedTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a generated template. This can be used to change the name, add and remove resources, refresh resources, and change the DeletionPolicy and UpdateReplacePolicy settings. You can check the status of the update to the generated template using the DescribeGeneratedTemplate API action."]
module TestTypeOutput =
  struct
    type testTypeResult =
      {
      typeVersionArn: TypeArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the extension."]}
    and responseMetaData = unit
    and t =
      {
      testTypeResult: testTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "TestTypeOutput"
    let make ?typeVersionArn =
      fun () ->
        { testTypeResult = { typeVersionArn }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.testTypeResult in
      structure_to_wrapped_value
        [("TypeVersionArn",
           (Option.map x.typeVersionArn ~f:TypeArn.to_value))]
        ~wrapper:"TestTypeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "TestTypeResult" in
      let typeVersionArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeVersionArn") in
      make ?typeVersionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersionArn = field_map json__ "TypeVersionArn" TypeArn.of_json in
      make ?typeVersionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tests a registered extension to make sure it meets all necessary requirements for being published in the CloudFormation registry. For resource types, this includes passing all contracts tests defined for the type. For modules, this includes determining if the module's model meets all necessary requirements. For more information, see Testing your public extension before publishing in the CloudFormation Command Line Interface (CLI) User Guide. If you don't specify a version, CloudFormation uses the default version of the extension in your account and Region for testing. To perform testing, CloudFormation assumes the execution role specified when the type was registered. For more information, see RegisterType. Once you've initiated testing on an extension using TestType, you can pass the returned TypeVersionArn into DescribeType to monitor the current test status and test status description for the extension. An extension must have a test status of PASSED before it can be published. For more information, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide."]
module TestTypeInput =
  struct
    type nonrec t =
      {
      arn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension. Conditional: You must specify Arn, or TypeName and Type."];
      type_: ThirdPartyType.t option
        [@ocaml.doc
          "The type of the extension to test. Conditional: You must specify Arn, or TypeName and Type."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension to test. Conditional: You must specify Arn, or TypeName and Type."];
      versionId: TypeVersionId.t option
        [@ocaml.doc
          "The version of the extension to test. You can specify the version id with either Arn, or with TypeName and Type. If you don't specify a version, CloudFormation uses the default version of the extension in this account and Region for testing."];
      logDeliveryBucket: S3Bucket.t option
        [@ocaml.doc
          "The S3 bucket to which CloudFormation delivers the contract test execution logs. CloudFormation delivers the logs by the time contract testing has completed and the extension has been assigned a test type status of PASSED or FAILED. The user calling TestType must be able to access items in the specified S3 bucket. Specifically, the user needs the following permissions: GetObject PutObject For more information, see Actions, Resources, and Condition Keys for Amazon S3 in the Identity and Access Management User Guide."]}
    let make ?arn =
      fun ?type_ ->
        fun ?typeName ->
          fun ?versionId ->
            fun ?logDeliveryBucket ->
              fun () ->
                { arn; type_; typeName; versionId; logDeliveryBucket }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:TypeArn.to_value));
        ("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("VersionId", (Option.map x.versionId ~f:TypeVersionId.to_value));
        ("LogDeliveryBucket",
          (Option.map x.logDeliveryBucket ~f:S3Bucket.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logDeliveryBucket =
        (Option.map ~f:S3Bucket.of_xml)
          (Xml.child xml_arg0 "LogDeliveryBucket") in
      let versionId =
        (Option.map ~f:TypeVersionId.of_xml) (Xml.child xml_arg0 "VersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?logDeliveryBucket ?versionId ?typeName ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logDeliveryBucket =
        field_map json__ "LogDeliveryBucket" S3Bucket.of_json in
      let versionId = field_map json__ "VersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      let arn = field_map json__ "Arn" TypeArn.of_json in
      make ?logDeliveryBucket ?versionId ?typeName ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tests a registered extension to make sure it meets all necessary requirements for being published in the CloudFormation registry. For resource types, this includes passing all contracts tests defined for the type. For modules, this includes determining if the module's model meets all necessary requirements. For more information, see Testing your public extension before publishing in the CloudFormation Command Line Interface (CLI) User Guide. If you don't specify a version, CloudFormation uses the default version of the extension in your account and Region for testing. To perform testing, CloudFormation assumes the execution role specified when the type was registered. For more information, see RegisterType. Once you've initiated testing on an extension using TestType, you can pass the returned TypeVersionArn into DescribeType to monitor the current test status and test status description for the extension. An extension must have a test status of PASSED before it can be published. For more information, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide."]
module StopStackSetOperationOutput =
  struct
    type stopStackSetOperationResult = unit
    and responseMetaData = unit
    and t =
      {
      stopStackSetOperationResult: stopStackSetOperationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationNotFoundException of OperationNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { stopStackSetOperationResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.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 an in-progress operation on a StackSet and its associated stack instances. StackSets will cancel all the unstarted stack instance deployments and wait for those are in-progress to complete."]
module StopStackSetOperationInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to stop the operation for."];
      operationId: ClientRequestToken.t
        [@ocaml.doc "The ID of the stack operation."];
      callAs: CallAs.t option
        [@ocaml.doc
          "Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. Valid only if the StackSet uses service-managed permissions. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "StopStackSetOperationInput"
    let make ?callAs =
      fun ~stackSetName ->
        fun ~operationId -> fun () -> { callAs; stackSetName; operationId }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("OperationId", (Some (ClientRequestToken.to_value x.operationId)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~operationId ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map_exn json__ "OperationId" ClientRequestToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ~operationId ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an in-progress operation on a StackSet and its associated stack instances. StackSets will cancel all the unstarted stack instance deployments and wait for those are in-progress to complete."]
module StartResourceScanOutput =
  struct
    type startResourceScanResult =
      {
      resourceScanId: ResourceScanId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource scan. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:resourceScan/$\\{Id\\}. An example is arn:aws:cloudformation:us-east-1:123456789012:resourceScan/f5b490f7-7ed4-428a-aa06-31ff25db0772 ."]}
    and responseMetaData = unit
    and t =
      {
      startResourceScanResult: startResourceScanResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `ResourceScanInProgressException of ResourceScanInProgressException.t 
      | `ResourceScanLimitExceededException of
          ResourceScanLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StartResourceScanOutput"
    let make ?resourceScanId =
      fun () ->
        { startResourceScanResult = { resourceScanId }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_json json)
      | "ResourceScanLimitExceededException" ->
          `ResourceScanLimitExceededException
            (ResourceScanLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_xml xml)
      | "ResourceScanLimitExceededException" ->
          `ResourceScanLimitExceededException
            (ResourceScanLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceScanInProgressException e ->
          `Assoc
            [("error", (`String "ResourceScanInProgressException"));
            ("details", (ResourceScanInProgressException.to_json e))]
      | `ResourceScanLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceScanLimitExceededException"));
            ("details", (ResourceScanLimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.startResourceScanResult in
      structure_to_wrapped_value
        [("ResourceScanId",
           (Option.map x.resourceScanId ~f:ResourceScanId.to_value))]
        ~wrapper:"StartResourceScanResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "StartResourceScanResult" in
      let resourceScanId =
        (Option.map ~f:ResourceScanId.of_xml)
          (Xml.child xml_arg0 "ResourceScanId") in
      make ?resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceScanId =
        field_map json__ "ResourceScanId" ResourceScanId.of_json in
      make ?resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a scan of the resources in this account in this Region. You can the status of a scan using the ListResourceScans API action."]
module StartResourceScanInput =
  struct
    type nonrec t =
      {
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this StartResourceScan request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to start a new resource scan."];
      scanFilters: ScanFilters.t option
        [@ocaml.doc "The scan filters to use."]}
    let make ?clientRequestToken =
      fun ?scanFilters -> fun () -> { clientRequestToken; scanFilters }
    let to_value x =
      structure_to_value
        [("ClientRequestToken",
           (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("ScanFilters", (Option.map x.scanFilters ~f:ScanFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scanFilters =
        (Option.map ~f:ScanFilters.of_xml) (Xml.child xml_arg0 "ScanFilters") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      make ?scanFilters ?clientRequestToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scanFilters = field_map json__ "ScanFilters" ScanFilters.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      make ?scanFilters ?clientRequestToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a scan of the resources in this account in this Region. You can the status of a scan using the ListResourceScans API action."]
module SignalResourceInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The stack name or unique stack ID that includes the resource that you want to signal."];
      logicalResourceId: LogicalResourceId.t
        [@ocaml.doc
          "The logical ID of the resource that you want to signal. The logical ID is the name of the resource that given in the template."];
      uniqueId: ResourceSignalUniqueId.t
        [@ocaml.doc
          "A unique ID of the signal. When you signal Amazon EC2 instances or Amazon EC2 Auto Scaling groups, specify the instance ID that you are signaling as the unique ID. If you send multiple signals to a single resource (such as signaling a wait condition), each signal requires a different unique ID."];
      status: ResourceSignalStatus.t
        [@ocaml.doc
          "The status of the signal, which is either success or failure. A failure signal causes CloudFormation to immediately fail the stack creation or update."]}
    let context_ = "SignalResourceInput"
    let make ~stackName =
      fun ~logicalResourceId ->
        fun ~uniqueId ->
          fun ~status ->
            fun () -> { stackName; logicalResourceId; uniqueId; status }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("LogicalResourceId",
          (Some (LogicalResourceId.to_value x.logicalResourceId)));
        ("UniqueId", (Some (ResourceSignalUniqueId.to_value x.uniqueId)));
        ("Status", (Some (ResourceSignalStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        ResourceSignalStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let uniqueId =
        ResourceSignalUniqueId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UniqueId") in
      let logicalResourceId =
        LogicalResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogicalResourceId") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ~status ~uniqueId ~logicalResourceId ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "Status" ResourceSignalStatus.of_json in
      let uniqueId =
        field_map_exn json__ "UniqueId" ResourceSignalUniqueId.of_json in
      let logicalResourceId =
        field_map_exn json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ~status ~uniqueId ~logicalResourceId ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the SignalResource action."]
module SetTypeDefaultVersionOutput =
  struct
    type setTypeDefaultVersionResult = unit
    and responseMetaData = unit
    and t =
      {
      setTypeDefaultVersionResult: setTypeDefaultVersionResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { setTypeDefaultVersionResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.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
       "Specify the default version of an extension. The default version of an extension will be used in CloudFormation operations."]
module SetTypeDefaultVersionInput =
  struct
    type nonrec t =
      {
      arn: PrivateTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension for which you want version summary information. Conditional: You must specify either TypeName and Type, or Arn."];
      type_: RegistryType.t option
        [@ocaml.doc
          "The kind of extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      versionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of a specific version of the extension. The version ID is the value at the end of the Amazon Resource Name (ARN) assigned to the extension version when it is registered."]}
    let make ?arn =
      fun ?type_ ->
        fun ?typeName ->
          fun ?versionId -> fun () -> { arn; type_; typeName; versionId }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:PrivateTypeArn.to_value));
        ("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("VersionId", (Option.map x.versionId ~f:TypeVersionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        (Option.map ~f:TypeVersionId.of_xml) (Xml.child xml_arg0 "VersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn =
        (Option.map ~f:PrivateTypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?versionId ?typeName ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId = field_map json__ "VersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      let arn = field_map json__ "Arn" PrivateTypeArn.of_json in
      make ?versionId ?typeName ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specify the default version of an extension. The default version of an extension will be used in CloudFormation operations."]
module SetTypeConfigurationOutput =
  struct
    type setTypeConfigurationResult =
      {
      configurationArn: TypeConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the configuration data in this account and Region. Conditional: You must specify ConfigurationArn, or Type and TypeName."]}
    and responseMetaData = unit
    and t =
      {
      setTypeConfigurationResult: setTypeConfigurationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SetTypeConfigurationOutput"
    let make ?configurationArn =
      fun () ->
        {
          setTypeConfigurationResult = { configurationArn };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.setTypeConfigurationResult in
      structure_to_wrapped_value
        [("ConfigurationArn",
           (Option.map x.configurationArn ~f:TypeConfigurationArn.to_value))]
        ~wrapper:"SetTypeConfigurationResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "SetTypeConfigurationResult" in
      let configurationArn =
        (Option.map ~f:TypeConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationArn") in
      make ?configurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationArn =
        field_map json__ "ConfigurationArn" TypeConfigurationArn.of_json in
      make ?configurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the configuration data for a CloudFormation extension, such as a resource or Hook, in the given account and Region. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide. To view the current configuration data for an extension, refer to the ConfigurationSchema element of DescribeType. It's strongly recommended that you use dynamic references to restrict sensitive configuration definitions, such as third-party credentials. For more information, see Specify values stored in other services using dynamic references in the CloudFormation User Guide. For more information about setting the configuration data for resource types, see Defining the account-level configuration of an extension in the CloudFormation Command Line Interface (CLI) User Guide. For more information about setting the configuration data for Hooks, see the CloudFormation Hooks User Guide."]
module SetTypeConfigurationInput =
  struct
    type nonrec t =
      {
      typeArn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the extension in this account and Region. For public extensions, this will be the ARN assigned when you call the ActivateType API operation in this account and Region. For private extensions, this will be the ARN assigned when you call the RegisterType API operation in this account and Region. Do not include the extension versions suffix at the end of the ARN. You can set the configuration for an extension, but not for a specific extension version."];
      configuration: TypeConfiguration.t
        [@ocaml.doc
          "The configuration data for the extension in this account and Region. The configuration data must be formatted as JSON and validate against the extension's schema returned in the Schema response element of DescribeType."];
      configurationAlias: TypeConfigurationAlias.t option
        [@ocaml.doc
          "An alias by which to refer to this extension configuration data. Conditional: Specifying a configuration alias is required when setting a configuration for a resource type extension."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify ConfigurationArn, or Type and TypeName."];
      type_: ThirdPartyType.t option
        [@ocaml.doc
          "The type of extension. Conditional: You must specify ConfigurationArn, or Type and TypeName."]}
    let context_ = "SetTypeConfigurationInput"
    let make ?typeArn =
      fun ?configurationAlias ->
        fun ?typeName ->
          fun ?type_ ->
            fun ~configuration ->
              fun () ->
                { typeArn; configurationAlias; typeName; type_; configuration
                }
    let to_value x =
      structure_to_value
        [("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("Configuration",
          (Some (TypeConfiguration.to_value x.configuration)));
        ("ConfigurationAlias",
          (Option.map x.configurationAlias ~f:TypeConfigurationAlias.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let configurationAlias =
        (Option.map ~f:TypeConfigurationAlias.of_xml)
          (Xml.child xml_arg0 "ConfigurationAlias") in
      let configuration =
        TypeConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Configuration") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      make ?type_ ?typeName ?configurationAlias ~configuration ?typeArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let configurationAlias =
        field_map json__ "ConfigurationAlias" TypeConfigurationAlias.of_json in
      let configuration =
        field_map_exn json__ "Configuration" TypeConfiguration.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      make ?type_ ?typeName ?configurationAlias ~configuration ?typeArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the configuration data for a CloudFormation extension, such as a resource or Hook, in the given account and Region. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide. To view the current configuration data for an extension, refer to the ConfigurationSchema element of DescribeType. It's strongly recommended that you use dynamic references to restrict sensitive configuration definitions, such as third-party credentials. For more information, see Specify values stored in other services using dynamic references in the CloudFormation User Guide. For more information about setting the configuration data for resource types, see Defining the account-level configuration of an extension in the CloudFormation Command Line Interface (CLI) User Guide. For more information about setting the configuration data for Hooks, see the CloudFormation Hooks User Guide."]
module SetStackPolicyInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or unique stack ID that you want to associate a policy with."];
      stackPolicyBody: StackPolicyBody.t option
        [@ocaml.doc
          "Structure that contains the stack policy body. For more information, see Prevent updates to stack resources in the CloudFormation User Guide. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both."];
      stackPolicyURL: StackPolicyURL.t option
        [@ocaml.doc
          "Location of a file that contains the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an Amazon S3 bucket in the same Amazon Web Services Region as the stack. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both."]}
    let context_ = "SetStackPolicyInput"
    let make ?stackPolicyBody =
      fun ?stackPolicyURL ->
        fun ~stackName ->
          fun () -> { stackPolicyBody; stackPolicyURL; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("StackPolicyBody",
          (Option.map x.stackPolicyBody ~f:StackPolicyBody.to_value));
        ("StackPolicyURL",
          (Option.map x.stackPolicyURL ~f:StackPolicyURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackPolicyURL =
        (Option.map ~f:StackPolicyURL.of_xml)
          (Xml.child xml_arg0 "StackPolicyURL") in
      let stackPolicyBody =
        (Option.map ~f:StackPolicyBody.of_xml)
          (Xml.child xml_arg0 "StackPolicyBody") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?stackPolicyURL ?stackPolicyBody ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackPolicyURL =
        field_map json__ "StackPolicyURL" StackPolicyURL.of_json in
      let stackPolicyBody =
        field_map json__ "StackPolicyBody" StackPolicyBody.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?stackPolicyURL ?stackPolicyBody ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the SetStackPolicy action."]
module RollbackStackOutput =
  struct
    type rollbackStackResult =
      {
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      operationId: OperationId.t option
        [@ocaml.doc
          "A unique identifier for this rollback operation that can be used to track the operation's progress and events."]}
    and responseMetaData = unit
    and t =
      {
      rollbackStackResult: rollbackStackResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `TokenAlreadyExistsException of TokenAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RollbackStackOutput"
    let make ?stackId =
      fun ?operationId ->
        fun () ->
          {
            rollbackStackResult = { stackId; operationId };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `TokenAlreadyExistsException e ->
          `Assoc
            [("error", (`String "TokenAlreadyExistsException"));
            ("details", (TokenAlreadyExistsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.rollbackStackResult in
      structure_to_wrapped_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
        ~wrapper:"RollbackStackResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "RollbackStackResult" in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?operationId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?operationId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When specifying RollbackStack, you preserve the state of previously provisioned resources when an operation fails. You can check the status of the stack through the DescribeStacks operation. Rolls back the specified stack to the last known stable state from CREATE_FAILED or UPDATE_FAILED stack statuses. This operation will delete a stack if it doesn't contain a last known stable state. A last known stable state includes any status in a *_COMPLETE. This includes the following stack statuses. CREATE_COMPLETE UPDATE_COMPLETE UPDATE_ROLLBACK_COMPLETE IMPORT_COMPLETE IMPORT_ROLLBACK_COMPLETE"]
module RollbackStackInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc "The name that's associated with the stack."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes to rollback the stack."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc "A unique identifier for this RollbackStack request."];
      retainExceptOnCreate: RetainExceptOnCreate.t option
        [@ocaml.doc
          "When set to true, newly created resources are deleted when the operation rolls back. This includes newly created resources marked with a deletion policy of Retain. Default: false"]}
    let context_ = "RollbackStackInput"
    let make ?roleARN =
      fun ?clientRequestToken ->
        fun ?retainExceptOnCreate ->
          fun ~stackName ->
            fun () ->
              { roleARN; clientRequestToken; retainExceptOnCreate; stackName
              }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("RetainExceptOnCreate",
          (Option.map x.retainExceptOnCreate ~f:RetainExceptOnCreate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retainExceptOnCreate =
        (Option.map ~f:RetainExceptOnCreate.of_xml)
          (Xml.child xml_arg0 "RetainExceptOnCreate") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?retainExceptOnCreate ?clientRequestToken ?roleARN ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retainExceptOnCreate =
        field_map json__ "RetainExceptOnCreate" RetainExceptOnCreate.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?retainExceptOnCreate ?clientRequestToken ?roleARN ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When specifying RollbackStack, you preserve the state of previously provisioned resources when an operation fails. You can check the status of the stack through the DescribeStacks operation. Rolls back the specified stack to the last known stable state from CREATE_FAILED or UPDATE_FAILED stack statuses. This operation will delete a stack if it doesn't contain a last known stable state. A last known stable state includes any status in a *_COMPLETE. This includes the following stack statuses. CREATE_COMPLETE UPDATE_COMPLETE UPDATE_ROLLBACK_COMPLETE IMPORT_COMPLETE IMPORT_ROLLBACK_COMPLETE"]
module RegisterTypeOutput =
  struct
    type registerTypeResult =
      {
      registrationToken: RegistrationToken.t option
        [@ocaml.doc
          "The identifier for this registration request. Use this registration token when calling DescribeTypeRegistration, which returns information about the status and IDs of the extension registration."]}
    and responseMetaData = unit
    and t =
      {
      registerTypeResult: registerTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RegisterTypeOutput"
    let make ?registrationToken =
      fun () ->
        { registerTypeResult = { registrationToken }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.registerTypeResult in
      structure_to_wrapped_value
        [("RegistrationToken",
           (Option.map x.registrationToken ~f:RegistrationToken.to_value))]
        ~wrapper:"RegisterTypeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "RegisterTypeResult" in
      let registrationToken =
        (Option.map ~f:RegistrationToken.of_xml)
          (Xml.child xml_arg0 "RegistrationToken") in
      make ?registrationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationToken =
        field_map json__ "RegistrationToken" RegistrationToken.of_json in
      make ?registrationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers an extension with the CloudFormation service. Registering an extension makes it available for use in CloudFormation templates in your Amazon Web Services account, and includes: Validating the extension schema. Determining which handlers, if any, have been specified for the extension. Making the extension available for use in your account. For more information about how to develop extensions and ready them for registration, see Creating resource types using the CloudFormation CLI in the CloudFormation Command Line Interface (CLI) User Guide. You can have a maximum of 50 resource extension versions registered at a time. This maximum is per account and per Region. Use DeregisterType to deregister specific extension versions if necessary. Once you have initiated a registration request using RegisterType, you can use DescribeTypeRegistration to monitor the progress of the registration request. Once you have registered a private extension in your account and Region, use SetTypeConfiguration to specify configuration properties for the extension. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module RegisterTypeInput =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option [@ocaml.doc "The kind of extension."];
      typeName: TypeName.t
        [@ocaml.doc
          "The name of the extension being registered. We suggest that extension names adhere to the following patterns: For resource types, company_or_organization::service::type. For modules, company_or_organization::service::type::MODULE. For Hooks, MyCompany::Testing::MyTestHook. The following organization namespaces are reserved and can't be used in your extension names: Alexa AMZN Amazon AWS Custom Dev"];
      schemaHandlerPackage: S3Url.t
        [@ocaml.doc
          "A URL to the S3 bucket that contains the extension project package that contains the necessary files for the extension you want to register. For information about generating a schema handler package for the extension you want to register, see submit in the CloudFormation Command Line Interface (CLI) User Guide. The user registering the extension must be able to access the package in the S3 bucket. That's, the user needs to have GetObject permissions for the schema handler package. For more information, see Actions, Resources, and Condition Keys for Amazon S3 in the Identity and Access Management User Guide."];
      loggingConfig: LoggingConfig.t option
        [@ocaml.doc
          "Specifies logging configuration information for an extension."];
      executionRoleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for CloudFormation to assume when invoking the extension. For CloudFormation to assume the specified execution role, the role must contain a trust relationship with the CloudFormation service principal (resources.cloudformation.amazonaws.com). For more information about adding trust relationships, see Modifying a role trust policy in the Identity and Access Management User Guide. If your extension calls Amazon Web Services APIs in any of its handlers, you must create an IAM execution role that includes the necessary permissions to call those Amazon Web Services APIs, and provision that execution role in your account. When CloudFormation needs to invoke the resource type handler, CloudFormation assumes this execution role to create a temporary session token, which it then passes to the resource type handler, thereby supplying your resource type with the appropriate credentials."];
      clientRequestToken: RequestToken.t option
        [@ocaml.doc
          "A unique identifier that acts as an idempotency key for this registration request. Specifying a client request token prevents CloudFormation from generating more than one version of an extension from the same registration request, even if the request is submitted multiple times."]}
    let context_ = "RegisterTypeInput"
    let make ?type_ =
      fun ?loggingConfig ->
        fun ?executionRoleArn ->
          fun ?clientRequestToken ->
            fun ~typeName ->
              fun ~schemaHandlerPackage ->
                fun () ->
                  {
                    type_;
                    loggingConfig;
                    executionRoleArn;
                    clientRequestToken;
                    typeName;
                    schemaHandlerPackage
                  }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Some (TypeName.to_value x.typeName)));
        ("SchemaHandlerPackage",
          (Some (S3Url.to_value x.schemaHandlerPackage)));
        ("LoggingConfig",
          (Option.map x.loggingConfig ~f:LoggingConfig.to_value));
        ("ExecutionRoleArn",
          (Option.map x.executionRoleArn ~f:RoleArn.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:RequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:RequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let executionRoleArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleArn") in
      let loggingConfig =
        (Option.map ~f:LoggingConfig.of_xml)
          (Xml.child xml_arg0 "LoggingConfig") in
      let schemaHandlerPackage =
        S3Url.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaHandlerPackage") in
      let typeName =
        TypeName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?clientRequestToken ?executionRoleArn ?loggingConfig
        ~schemaHandlerPackage ~typeName ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" RequestToken.of_json in
      let executionRoleArn =
        field_map json__ "ExecutionRoleArn" RoleArn.of_json in
      let loggingConfig =
        field_map json__ "LoggingConfig" LoggingConfig.of_json in
      let schemaHandlerPackage =
        field_map_exn json__ "SchemaHandlerPackage" S3Url.of_json in
      let typeName = field_map_exn json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?clientRequestToken ?executionRoleArn ?loggingConfig
        ~schemaHandlerPackage ~typeName ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers an extension with the CloudFormation service. Registering an extension makes it available for use in CloudFormation templates in your Amazon Web Services account, and includes: Validating the extension schema. Determining which handlers, if any, have been specified for the extension. Making the extension available for use in your account. For more information about how to develop extensions and ready them for registration, see Creating resource types using the CloudFormation CLI in the CloudFormation Command Line Interface (CLI) User Guide. You can have a maximum of 50 resource extension versions registered at a time. This maximum is per account and per Region. Use DeregisterType to deregister specific extension versions if necessary. Once you have initiated a registration request using RegisterType, you can use DescribeTypeRegistration to monitor the progress of the registration request. Once you have registered a private extension in your account and Region, use SetTypeConfiguration to specify configuration properties for the extension. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module RegisterPublisherOutput =
  struct
    type registerPublisherResult =
      {
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The ID assigned this account by CloudFormation for publishing extensions."]}
    and responseMetaData = unit
    and t =
      {
      registerPublisherResult: registerPublisherResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RegisterPublisherOutput"
    let make ?publisherId =
      fun () ->
        { registerPublisherResult = { publisherId }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.registerPublisherResult in
      structure_to_wrapped_value
        [("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value))]
        ~wrapper:"RegisterPublisherResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "RegisterPublisherResult" in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      make ?publisherId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      make ?publisherId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers your account as a publisher of public extensions in the CloudFormation registry. Public extensions are available for use by all CloudFormation users. This publisher ID applies to your account in all Amazon Web Services Regions. For information about requirements for registering as a public extension publisher, see Prerequisite: Registering your account to publish CloudFormation extensions in the CloudFormation Command Line Interface (CLI) User Guide."]
module RegisterPublisherInput =
  struct
    type nonrec t =
      {
      acceptTermsAndConditions: AcceptTermsAndConditions.t option
        [@ocaml.doc
          "Whether you accept the Terms and Conditions for publishing extensions in the CloudFormation registry. You must accept the terms and conditions in order to register to publish public extensions to the CloudFormation registry. The default is false."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "If you are using a Bitbucket or GitHub account for identity verification, the Amazon Resource Name (ARN) for your connection to that account. For more information, see Prerequisite: Registering your account to publish CloudFormation extensions in the CloudFormation Command Line Interface (CLI) User Guide."]}
    let make ?acceptTermsAndConditions =
      fun ?connectionArn ->
        fun () -> { acceptTermsAndConditions; connectionArn }
    let to_value x =
      structure_to_value
        [("AcceptTermsAndConditions",
           (Option.map x.acceptTermsAndConditions
              ~f:AcceptTermsAndConditions.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let acceptTermsAndConditions =
        (Option.map ~f:AcceptTermsAndConditions.of_xml)
          (Xml.child xml_arg0 "AcceptTermsAndConditions") in
      make ?connectionArn ?acceptTermsAndConditions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let acceptTermsAndConditions =
        field_map json__ "AcceptTermsAndConditions"
          AcceptTermsAndConditions.of_json in
      make ?connectionArn ?acceptTermsAndConditions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers your account as a publisher of public extensions in the CloudFormation registry. Public extensions are available for use by all CloudFormation users. This publisher ID applies to your account in all Amazon Web Services Regions. For information about requirements for registering as a public extension publisher, see Prerequisite: Registering your account to publish CloudFormation extensions in the CloudFormation Command Line Interface (CLI) User Guide."]
module RecordHandlerProgressOutput =
  struct
    type recordHandlerProgressResult = unit
    and responseMetaData = unit
    and t =
      {
      recordHandlerProgressResult: recordHandlerProgressResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `InvalidStateTransitionException of InvalidStateTransitionException.t 
      | `OperationStatusCheckFailedException of
          OperationStatusCheckFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { recordHandlerProgressResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidStateTransitionException" ->
          `InvalidStateTransitionException
            (InvalidStateTransitionException.of_json json)
      | "OperationStatusCheckFailedException" ->
          `OperationStatusCheckFailedException
            (OperationStatusCheckFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidStateTransitionException" ->
          `InvalidStateTransitionException
            (InvalidStateTransitionException.of_xml xml)
      | "OperationStatusCheckFailedException" ->
          `OperationStatusCheckFailedException
            (OperationStatusCheckFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidStateTransitionException e ->
          `Assoc
            [("error", (`String "InvalidStateTransitionException"));
            ("details", (InvalidStateTransitionException.to_json e))]
      | `OperationStatusCheckFailedException e ->
          `Assoc
            [("error", (`String "OperationStatusCheckFailedException"));
            ("details", (OperationStatusCheckFailedException.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
       "Reports progress of a resource handler to CloudFormation. Reserved for use by the CloudFormation CLI. Don't use this API in your code."]
module RecordHandlerProgressInput =
  struct
    type nonrec t =
      {
      bearerToken: ClientToken.t
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      operationStatus: OperationStatus.t
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      currentOperationStatus: OperationStatus.t option
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      errorCode: HandlerErrorCode.t option
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      resourceModel: ResourceModel.t option
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc "Reserved for use by the CloudFormation CLI."]}
    let context_ = "RecordHandlerProgressInput"
    let make ?currentOperationStatus =
      fun ?statusMessage ->
        fun ?errorCode ->
          fun ?resourceModel ->
            fun ?clientRequestToken ->
              fun ~bearerToken ->
                fun ~operationStatus ->
                  fun () ->
                    {
                      currentOperationStatus;
                      statusMessage;
                      errorCode;
                      resourceModel;
                      clientRequestToken;
                      bearerToken;
                      operationStatus
                    }
    let to_value x =
      structure_to_value
        [("BearerToken", (Some (ClientToken.to_value x.bearerToken)));
        ("OperationStatus",
          (Some (OperationStatus.to_value x.operationStatus)));
        ("CurrentOperationStatus",
          (Option.map x.currentOperationStatus ~f:OperationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:HandlerErrorCode.to_value));
        ("ResourceModel",
          (Option.map x.resourceModel ~f:ResourceModel.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let resourceModel =
        (Option.map ~f:ResourceModel.of_xml)
          (Xml.child xml_arg0 "ResourceModel") in
      let errorCode =
        (Option.map ~f:HandlerErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let currentOperationStatus =
        (Option.map ~f:OperationStatus.of_xml)
          (Xml.child xml_arg0 "CurrentOperationStatus") in
      let operationStatus =
        OperationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationStatus") in
      let bearerToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BearerToken") in
      make ?clientRequestToken ?resourceModel ?errorCode ?statusMessage
        ?currentOperationStatus ~operationStatus ~bearerToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let resourceModel =
        field_map json__ "ResourceModel" ResourceModel.of_json in
      let errorCode = field_map json__ "ErrorCode" HandlerErrorCode.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let currentOperationStatus =
        field_map json__ "CurrentOperationStatus" OperationStatus.of_json in
      let operationStatus =
        field_map_exn json__ "OperationStatus" OperationStatus.of_json in
      let bearerToken =
        field_map_exn json__ "BearerToken" ClientToken.of_json in
      make ?clientRequestToken ?resourceModel ?errorCode ?statusMessage
        ?currentOperationStatus ~operationStatus ~bearerToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Reports progress of a resource handler to CloudFormation. Reserved for use by the CloudFormation CLI. Don't use this API in your code."]
module PublishTypeOutput =
  struct
    type publishTypeResult =
      {
      publicTypeArn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the public extension upon publication."]}
    and responseMetaData = unit
    and t =
      {
      publishTypeResult: publishTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "PublishTypeOutput"
    let make ?publicTypeArn =
      fun () ->
        { publishTypeResult = { publicTypeArn }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.publishTypeResult in
      structure_to_wrapped_value
        [("PublicTypeArn", (Option.map x.publicTypeArn ~f:TypeArn.to_value))]
        ~wrapper:"PublishTypeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "PublishTypeResult" in
      let publicTypeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "PublicTypeArn") in
      make ?publicTypeArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicTypeArn = field_map json__ "PublicTypeArn" TypeArn.of_json in
      make ?publicTypeArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes the specified extension to the CloudFormation registry as a public extension in this Region. Public extensions are available for use by all CloudFormation users. For more information about publishing extensions, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide. To publish an extension, you must be registered as a publisher with CloudFormation. For more information, see RegisterPublisher."]
module PublishTypeInput =
  struct
    type nonrec t =
      {
      type_: ThirdPartyType.t option
        [@ocaml.doc
          "The type of the extension. Conditional: You must specify Arn, or TypeName and Type."];
      arn: PrivateTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension. Conditional: You must specify Arn, or TypeName and Type."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify Arn, or TypeName and Type."];
      publicVersionNumber: PublicVersionNumber.t option
        [@ocaml.doc
          "The version number to assign to this version of the extension. Use the following format, and adhere to semantic versioning when assigning a version number to your extension: MAJOR.MINOR.PATCH For more information, see Semantic Versioning 2.0.0. If you don't specify a version number, CloudFormation increments the version number by one minor version release. You cannot specify a version number the first time you publish a type. CloudFormation automatically sets the first version number to be 1.0.0."]}
    let make ?type_ =
      fun ?arn ->
        fun ?typeName ->
          fun ?publicVersionNumber ->
            fun () -> { type_; arn; typeName; publicVersionNumber }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value));
        ("Arn", (Option.map x.arn ~f:PrivateTypeArn.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("PublicVersionNumber",
          (Option.map x.publicVersionNumber ~f:PublicVersionNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicVersionNumber =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "PublicVersionNumber") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let arn =
        (Option.map ~f:PrivateTypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?publicVersionNumber ?typeName ?arn ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicVersionNumber =
        field_map json__ "PublicVersionNumber" PublicVersionNumber.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let arn = field_map json__ "Arn" PrivateTypeArn.of_json in
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      make ?publicVersionNumber ?typeName ?arn ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes the specified extension to the CloudFormation registry as a public extension in this Region. Public extensions are available for use by all CloudFormation users. For more information about publishing extensions, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide. To publish an extension, you must be registered as a publisher with CloudFormation. For more information, see RegisterPublisher."]
module ListTypesOutput =
  struct
    type listTypesResult =
      {
      typeSummaries: TypeSummaries.t option
        [@ocaml.doc
          "A list of TypeSummary structures that contain information about the specified extensions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listTypesResult: listTypesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListTypesOutput"
    let make ?typeSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listTypesResult = { typeSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTypesResult in
      structure_to_wrapped_value
        [("TypeSummaries",
           (Option.map x.typeSummaries ~f:TypeSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListTypesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListTypesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let typeSummaries =
        (Option.map ~f:TypeSummaries.of_xml)
          (Xml.child xml_arg0 "TypeSummaries") in
      make ?nextToken ?typeSummaries ()
    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 typeSummaries =
        field_map json__ "TypeSummaries" TypeSummaries.of_json in
      make ?nextToken ?typeSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about all extensions, including your private resource types, modules, and Hooks as well as all public extensions from Amazon Web Services and third-party publishers."]
module ListTypesInput =
  struct
    type nonrec t =
      {
      visibility: Visibility.t option
        [@ocaml.doc
          "The scope at which the extensions are visible and usable in CloudFormation operations. Valid values include: PRIVATE: Extensions that are visible and usable within this account and Region. This includes: Private extensions you have registered in this account and Region. Public extensions that you have activated in this account and Region. PUBLIC: Extensions that are publicly visible and available to be activated within any Amazon Web Services account. This includes extensions from Amazon Web Services and third-party publishers. The default is PRIVATE."];
      provisioningType: ProvisioningType.t option
        [@ocaml.doc
          "For resource types, the provisioning behavior of the resource type. CloudFormation determines the provisioning type during registration, based on the types of handlers in the schema handler package submitted. Valid values include: FULLY_MUTABLE: The resource type includes an update handler to process updates to the type during stack update operations. IMMUTABLE: The resource type doesn't include an update handler, so the type can't be updated and must instead be replaced during stack update operations. NON_PROVISIONABLE: The resource type doesn't include create, read, and delete handlers, and therefore can't actually be provisioned. The default is FULLY_MUTABLE."];
      deprecatedStatus: DeprecatedStatus.t option
        [@ocaml.doc
          "The deprecation status of the extension that you want to get summary information about. Valid values include: LIVE: The extension is registered for use in CloudFormation operations. DEPRECATED: The extension has been deregistered and can no longer be used in CloudFormation operations."];
      type_: RegistryType.t option [@ocaml.doc "The type of extension."];
      filters: TypeFilters.t option
        [@ocaml.doc
          "Filter criteria to use in determining which extensions to return. Filters must be compatible with Visibility to return valid results. For example, specifying AWS_TYPES for Category and PRIVATE for Visibility returns an empty list of types, but specifying PUBLIC for Visibility returns the desired list."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?visibility =
      fun ?provisioningType ->
        fun ?deprecatedStatus ->
          fun ?type_ ->
            fun ?filters ->
              fun ?maxResults ->
                fun ?nextToken ->
                  fun () ->
                    {
                      visibility;
                      provisioningType;
                      deprecatedStatus;
                      type_;
                      filters;
                      maxResults;
                      nextToken
                    }
    let to_value x =
      structure_to_value
        [("Visibility", (Option.map x.visibility ~f:Visibility.to_value));
        ("ProvisioningType",
          (Option.map x.provisioningType ~f:ProvisioningType.to_value));
        ("DeprecatedStatus",
          (Option.map x.deprecatedStatus ~f:DeprecatedStatus.to_value));
        ("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("Filters", (Option.map x.filters ~f:TypeFilters.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.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 maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:TypeFilters.of_xml) (Xml.child xml_arg0 "Filters") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      let deprecatedStatus =
        (Option.map ~f:DeprecatedStatus.of_xml)
          (Xml.child xml_arg0 "DeprecatedStatus") in
      let provisioningType =
        (Option.map ~f:ProvisioningType.of_xml)
          (Xml.child xml_arg0 "ProvisioningType") in
      let visibility =
        (Option.map ~f:Visibility.of_xml) (Xml.child xml_arg0 "Visibility") in
      make ?nextToken ?maxResults ?filters ?type_ ?deprecatedStatus
        ?provisioningType ?visibility ()
    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 maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let filters = field_map json__ "Filters" TypeFilters.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      let deprecatedStatus =
        field_map json__ "DeprecatedStatus" DeprecatedStatus.of_json in
      let provisioningType =
        field_map json__ "ProvisioningType" ProvisioningType.of_json in
      let visibility = field_map json__ "Visibility" Visibility.of_json in
      make ?nextToken ?maxResults ?filters ?type_ ?deprecatedStatus
        ?provisioningType ?visibility ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about all extensions, including your private resource types, modules, and Hooks as well as all public extensions from Amazon Web Services and third-party publishers."]
module ListTypeVersionsOutput =
  struct
    type listTypeVersionsResult =
      {
      typeVersionSummaries: TypeVersionSummaries.t option
        [@ocaml.doc
          "A list of TypeVersionSummary structures that contain information about the specified extension's versions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all of the remaining results, NextToken is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listTypeVersionsResult: listTypeVersionsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListTypeVersionsOutput"
    let make ?typeVersionSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listTypeVersionsResult = { typeVersionSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTypeVersionsResult in
      structure_to_wrapped_value
        [("TypeVersionSummaries",
           (Option.map x.typeVersionSummaries
              ~f:TypeVersionSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListTypeVersionsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListTypeVersionsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let typeVersionSummaries =
        (Option.map ~f:TypeVersionSummaries.of_xml)
          (Xml.child xml_arg0 "TypeVersionSummaries") in
      make ?nextToken ?typeVersionSummaries ()
    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 typeVersionSummaries =
        field_map json__ "TypeVersionSummaries" TypeVersionSummaries.of_json in
      make ?nextToken ?typeVersionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about the versions of an extension."]
module ListTypeVersionsInput =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option
        [@ocaml.doc
          "The kind of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension for which you want version summary information. Conditional: You must specify either TypeName and Type, or Arn."];
      arn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension for which you want version summary information. Conditional: You must specify either TypeName and Type, or Arn."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      deprecatedStatus: DeprecatedStatus.t option
        [@ocaml.doc
          "The deprecation status of the extension versions that you want to get summary information about. Valid values include: LIVE: The extension version is registered and can be used in CloudFormation operations, dependent on its provisioning behavior and visibility scope. DEPRECATED: The extension version has been deregistered and can no longer be used in CloudFormation operations. The default is LIVE."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The publisher ID of the extension publisher. Extensions published by Amazon aren't assigned a publisher ID."]}
    let make ?type_ =
      fun ?typeName ->
        fun ?arn ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?deprecatedStatus ->
                fun ?publisherId ->
                  fun () ->
                    {
                      type_;
                      typeName;
                      arn;
                      maxResults;
                      nextToken;
                      deprecatedStatus;
                      publisherId
                    }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("Arn", (Option.map x.arn ~f:TypeArn.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("DeprecatedStatus",
          (Option.map x.deprecatedStatus ~f:DeprecatedStatus.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let deprecatedStatus =
        (Option.map ~f:DeprecatedStatus.of_xml)
          (Xml.child xml_arg0 "DeprecatedStatus") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let arn = (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?publisherId ?deprecatedStatus ?nextToken ?maxResults ?arn
        ?typeName ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let deprecatedStatus =
        field_map json__ "DeprecatedStatus" DeprecatedStatus.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let arn = field_map json__ "Arn" TypeArn.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?publisherId ?deprecatedStatus ?nextToken ?maxResults ?arn
        ?typeName ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about the versions of an extension."]
module ListTypeRegistrationsOutput =
  struct
    type listTypeRegistrationsResult =
      {
      registrationTokenList: RegistrationTokenList.t option
        [@ocaml.doc
          "A list of extension registration tokens. Use DescribeTypeRegistration to return detailed information about a type registration request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listTypeRegistrationsResult: listTypeRegistrationsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListTypeRegistrationsOutput"
    let make ?registrationTokenList =
      fun ?nextToken ->
        fun () ->
          {
            listTypeRegistrationsResult =
              { registrationTokenList; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTypeRegistrationsResult in
      structure_to_wrapped_value
        [("RegistrationTokenList",
           (Option.map x.registrationTokenList
              ~f:RegistrationTokenList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListTypeRegistrationsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListTypeRegistrationsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let registrationTokenList =
        (Option.map ~f:RegistrationTokenList.of_xml)
          (Xml.child xml_arg0 "RegistrationTokenList") in
      make ?nextToken ?registrationTokenList ()
    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 registrationTokenList =
        field_map json__ "RegistrationTokenList"
          RegistrationTokenList.of_json in
      make ?nextToken ?registrationTokenList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of registration tokens for the specified extension(s)."]
module ListTypeRegistrationsInput =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option
        [@ocaml.doc
          "The kind of extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeArn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      registrationStatusFilter: RegistrationStatus.t option
        [@ocaml.doc
          "The current status of the extension registration request. The default is IN_PROGRESS."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?type_ =
      fun ?typeName ->
        fun ?typeArn ->
          fun ?registrationStatusFilter ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    type_;
                    typeName;
                    typeArn;
                    registrationStatusFilter;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("RegistrationStatusFilter",
          (Option.map x.registrationStatusFilter
             ~f:RegistrationStatus.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.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 maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let registrationStatusFilter =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationStatusFilter") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?nextToken ?maxResults ?registrationStatusFilter ?typeArn
        ?typeName ?type_ ()
    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 maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let registrationStatusFilter =
        field_map json__ "RegistrationStatusFilter"
          RegistrationStatus.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?nextToken ?maxResults ?registrationStatusFilter ?typeArn
        ?typeName ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of registration tokens for the specified extension(s)."]
module ListStacksOutput =
  struct
    type listStacksResult =
      {
      stackSummaries: StackSummaries.t option
        [@ocaml.doc
          "A list of StackSummary structures that contains information about the specified stacks."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      listStacksResult: listStacksResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStacksOutput"
    let make ?stackSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listStacksResult = { stackSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStacksResult in
      structure_to_wrapped_value
        [("StackSummaries",
           (Option.map x.stackSummaries ~f:StackSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStacksResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListStacksResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackSummaries =
        (Option.map ~f:StackSummaries.of_xml)
          (Xml.child xml_arg0 "StackSummaries") in
      make ?nextToken ?stackSummaries ()
    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 stackSummaries =
        field_map json__ "StackSummaries" StackSummaries.of_json in
      make ?nextToken ?stackSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for ListStacks action."]
module ListStacksInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      stackStatusFilter: StackStatusFilter.t option
        [@ocaml.doc
          "Stack status to use as a filter. Specify one or more stack status codes to list only stacks with the specified status codes. For a complete list of stack status codes, see the StackStatus parameter of the Stack data type."]}
    let make ?nextToken =
      fun ?stackStatusFilter -> fun () -> { nextToken; stackStatusFilter }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("StackStatusFilter",
          (Option.map x.stackStatusFilter ~f:StackStatusFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackStatusFilter =
        (Option.map ~f:StackStatusFilter.of_xml)
          (Xml.child xml_arg0 "StackStatusFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?stackStatusFilter ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackStatusFilter =
        field_map json__ "StackStatusFilter" StackStatusFilter.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?stackStatusFilter ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for ListStacks action."]
module ListStackSetsOutput =
  struct
    type listStackSetsResult =
      {
      summaries: StackSetSummaries.t option
        [@ocaml.doc
          "A list of StackSetSummary structures that contain information about the user's StackSets."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all of the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListStackInstances again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackSetsResult: listStackSetsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackSetsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackSetsResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackSetsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries ~f:StackSetSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackSetsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListStackSetsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackSetSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries = field_map json__ "Summaries" StackSetSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about StackSets that are associated with the user. This API provides strongly consistent reads meaning it will always return the most up-to-date data. \\[Self-managed permissions\\] If you set the CallAs parameter to SELF while signed in to your Amazon Web Services account, ListStackSets returns all self-managed StackSets in your Amazon Web Services account. \\[Service-managed permissions\\] If you set the CallAs parameter to SELF while signed in to the organization's management account, ListStackSets returns all StackSets in the management account. \\[Service-managed permissions\\] If you set the CallAs parameter to DELEGATED_ADMIN while signed in to your member account, ListStackSets returns all StackSets with service-managed permissions in the management account."]
module ListStackSetsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      status: StackSetStatus.t option
        [@ocaml.doc
          "The status of the StackSets that you want to get summary information about."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?status ->
          fun ?callAs -> fun () -> { nextToken; maxResults; status; callAs }
    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));
        ("Status", (Option.map x.status ~f:StackSetStatus.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let status =
        (Option.map ~f:StackSetStatus.of_xml) (Xml.child xml_arg0 "Status") 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
      make ?callAs ?status ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let status = field_map json__ "Status" StackSetStatus.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?callAs ?status ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about StackSets that are associated with the user. This API provides strongly consistent reads meaning it will always return the most up-to-date data. \\[Self-managed permissions\\] If you set the CallAs parameter to SELF while signed in to your Amazon Web Services account, ListStackSets returns all self-managed StackSets in your Amazon Web Services account. \\[Service-managed permissions\\] If you set the CallAs parameter to SELF while signed in to the organization's management account, ListStackSets returns all StackSets in the management account. \\[Service-managed permissions\\] If you set the CallAs parameter to DELEGATED_ADMIN while signed in to your member account, ListStackSets returns all StackSets with service-managed permissions in the management account."]
module ListStackSetOperationsOutput =
  struct
    type listStackSetOperationsResult =
      {
      summaries: StackSetOperationSummaries.t option
        [@ocaml.doc
          "A list of StackSetOperationSummary structures that contain summary information about operations for the specified StackSet."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all results, NextToken is set to a token. To retrieve the next set of results, call ListOperationResults again and assign that token to the request object's NextToken parameter. If there are no remaining results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackSetOperationsResult: listStackSetOperationsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackSetOperationsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackSetOperationsResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackSetOperationsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries ~f:StackSetOperationSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackSetOperationsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListStackSetOperationsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackSetOperationSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries =
        field_map json__ "Summaries" StackSetOperationSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about operations performed on a StackSet. This API provides eventually consistent reads meaning it may take some time but will eventually return the most up-to-date data."]
module ListStackSetOperationsInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to get operation summaries for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "ListStackSetOperationsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?callAs ->
          fun ~stackSetName ->
            fun () -> { nextToken; maxResults; callAs; stackSetName }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") 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 stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?maxResults ?nextToken ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ?maxResults ?nextToken ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about operations performed on a StackSet. This API provides eventually consistent reads meaning it may take some time but will eventually return the most up-to-date data."]
module ListStackSetOperationResultsOutput =
  struct
    type listStackSetOperationResultsResult =
      {
      summaries: StackSetOperationResultSummaries.t option
        [@ocaml.doc
          "A list of StackSetOperationResultSummary structures that contain information about the specified operation results, for accounts and Amazon Web Services Regions that are included in the operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all results, NextToken is set to a token. To retrieve the next set of results, call ListOperationResults again and assign that token to the request object's NextToken parameter. If there are no remaining results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackSetOperationResultsResult: listStackSetOperationResultsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `OperationNotFoundException of OperationNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackSetOperationResultsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackSetOperationResultsResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackSetOperationResultsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries
              ~f:StackSetOperationResultSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackSetOperationResultsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "ListStackSetOperationResultsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackSetOperationResultSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries =
        field_map json__ "Summaries" StackSetOperationResultSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about the results of a StackSet operation. This API provides eventually consistent reads meaning it may take some time but will eventually return the most up-to-date data."]
module ListStackSetOperationResultsInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to get operation results for."];
      operationId: ClientRequestToken.t
        [@ocaml.doc "The ID of the StackSet operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."];
      filters: OperationResultFilters.t option
        [@ocaml.doc "The filter to apply to operation results."]}
    let context_ = "ListStackSetOperationResultsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?callAs ->
          fun ?filters ->
            fun ~stackSetName ->
              fun ~operationId ->
                fun () ->
                  {
                    nextToken;
                    maxResults;
                    callAs;
                    filters;
                    stackSetName;
                    operationId
                  }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("OperationId", (Some (ClientRequestToken.to_value x.operationId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value));
        ("Filters",
          (Option.map x.filters ~f:OperationResultFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:OperationResultFilters.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") 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 operationId =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?filters ?callAs ?maxResults ?nextToken ~operationId ~stackSetName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" OperationResultFilters.of_json in
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let operationId =
        field_map_exn json__ "OperationId" ClientRequestToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?filters ?callAs ?maxResults ?nextToken ~operationId ~stackSetName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about the results of a StackSet operation. This API provides eventually consistent reads meaning it may take some time but will eventually return the most up-to-date data."]
module ListStackSetAutoDeploymentTargetsOutput =
  struct
    type listStackSetAutoDeploymentTargetsResult =
      {
      summaries: StackSetAutoDeploymentTargetSummaries.t option
        [@ocaml.doc
          "An array of summaries of the deployment targets for the StackSet."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListStackSetAutoDeploymentTargets again and use that value for the NextToken parameter. If the request returns all results, NextToken is set to an empty string."]}
    and responseMetaData = unit
    and t =
      {
      listStackSetAutoDeploymentTargetsResult:
        listStackSetAutoDeploymentTargetsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackSetAutoDeploymentTargetsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackSetAutoDeploymentTargetsResult =
              { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackSetAutoDeploymentTargetsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries
              ~f:StackSetAutoDeploymentTargetSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackSetAutoDeploymentTargetsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "ListStackSetAutoDeploymentTargetsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackSetAutoDeploymentTargetSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries =
        field_map json__ "Summaries"
          StackSetAutoDeploymentTargetSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about deployment targets for a StackSet."]
module ListStackSetAutoDeploymentTargetsInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetNameOrId.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to get automatic deployment targets for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      callAs: CallAs.t option
        [@ocaml.doc
          "Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "ListStackSetAutoDeploymentTargetsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?callAs ->
          fun ~stackSetName ->
            fun () -> { nextToken; maxResults; callAs; stackSetName }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetNameOrId.to_value x.stackSetName)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") 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 stackSetName =
        StackSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?maxResults ?nextToken ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetNameOrId.of_json in
      make ?callAs ?maxResults ?nextToken ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about deployment targets for a StackSet."]
module ListStackResourcesOutput =
  struct
    type listStackResourcesResult =
      {
      stackResourceSummaries: StackResourceSummaries.t option
        [@ocaml.doc "A list of StackResourceSummary structures."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB, a string that identifies the next page of stack resources. If no additional page exists, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      listStackResourcesResult: listStackResourcesResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackResourcesOutput"
    let make ?stackResourceSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackResourcesResult = { stackResourceSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackResourcesResult in
      structure_to_wrapped_value
        [("StackResourceSummaries",
           (Option.map x.stackResourceSummaries
              ~f:StackResourceSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackResourcesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListStackResourcesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackResourceSummaries =
        (Option.map ~f:StackResourceSummaries.of_xml)
          (Xml.child xml_arg0 "StackResourceSummaries") in
      make ?nextToken ?stackResourceSummaries ()
    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 stackResourceSummaries =
        field_map json__ "StackResourceSummaries"
          StackResourceSummaries.of_json in
      make ?nextToken ?stackResourceSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a ListStackResources action."]
module ListStackResourcesInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or the unique stack ID that is associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let context_ = "ListStackResourcesInput"
    let make ?nextToken =
      fun ~stackName -> fun () -> { nextToken; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("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 stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?nextToken ~stackName ()
    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 stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?nextToken ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the ListStackResource action."]
module ListStackRefactorsOutput =
  struct
    type listStackRefactorsResult =
      {
      stackRefactorSummaries: StackRefactorSummaries.t option
        [@ocaml.doc
          "Provides a summary of a stack refactor, including the following: StackRefactorId Status StatusReason ExecutionStatus ExecutionStatusReason Description"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackRefactorsResult: listStackRefactorsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackRefactorsOutput"
    let make ?stackRefactorSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackRefactorsResult = { stackRefactorSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackRefactorsResult in
      structure_to_wrapped_value
        [("StackRefactorSummaries",
           (Option.map x.stackRefactorSummaries
              ~f:StackRefactorSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackRefactorsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListStackRefactorsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackRefactorSummaries =
        (Option.map ~f:StackRefactorSummaries.of_xml)
          (Xml.child xml_arg0 "StackRefactorSummaries") in
      make ?nextToken ?stackRefactorSummaries ()
    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 stackRefactorSummaries =
        field_map json__ "StackRefactorSummaries"
          StackRefactorSummaries.of_json in
      make ?nextToken ?stackRefactorSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all account stack refactor operations and their statuses."]
module ListStackRefactorsInput =
  struct
    type nonrec t =
      {
      executionStatusFilter: StackRefactorExecutionStatusFilter.t option
        [@ocaml.doc
          "Execution status to use as a filter. Specify one or more execution status codes to list only stack refactors with the specified execution status codes."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."]}
    let make ?executionStatusFilter =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { executionStatusFilter; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ExecutionStatusFilter",
           (Option.map x.executionStatusFilter
              ~f:StackRefactorExecutionStatusFilter.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 executionStatusFilter =
        (Option.map ~f:StackRefactorExecutionStatusFilter.of_xml)
          (Xml.child xml_arg0 "ExecutionStatusFilter") in
      make ?maxResults ?nextToken ?executionStatusFilter ()
    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 executionStatusFilter =
        field_map json__ "ExecutionStatusFilter"
          StackRefactorExecutionStatusFilter.of_json in
      make ?maxResults ?nextToken ?executionStatusFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all account stack refactor operations and their statuses."]
module ListStackRefactorActionsOutput =
  struct
    type listStackRefactorActionsResult =
      {
      stackRefactorActions: StackRefactorActions.t option
        [@ocaml.doc "The stack refactor actions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackRefactorActionsResult: listStackRefactorActionsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackRefactorActionsOutput"
    let make ?stackRefactorActions =
      fun ?nextToken ->
        fun () ->
          {
            listStackRefactorActionsResult =
              { stackRefactorActions; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackRefactorActionsResult in
      structure_to_wrapped_value
        [("StackRefactorActions",
           (Option.map x.stackRefactorActions
              ~f:StackRefactorActions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackRefactorActionsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListStackRefactorActionsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackRefactorActions =
        (Option.map ~f:StackRefactorActions.of_xml)
          (Xml.child xml_arg0 "StackRefactorActions") in
      make ?nextToken ?stackRefactorActions ()
    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 stackRefactorActions =
        field_map json__ "StackRefactorActions" StackRefactorActions.of_json in
      make ?nextToken ?stackRefactorActions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the stack refactor actions that will be taken after calling the ExecuteStackRefactor action."]
module ListStackRefactorActionsInput =
  struct
    type nonrec t =
      {
      stackRefactorId: StackRefactorId.t
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."]}
    let context_ = "ListStackRefactorActionsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~stackRefactorId ->
          fun () -> { nextToken; maxResults; stackRefactorId }
    let to_value x =
      structure_to_value
        [("StackRefactorId",
           (Some (StackRefactorId.to_value x.stackRefactorId)));
        ("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 stackRefactorId =
        StackRefactorId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackRefactorId") in
      make ?maxResults ?nextToken ~stackRefactorId ()
    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 stackRefactorId =
        field_map_exn json__ "StackRefactorId" StackRefactorId.of_json in
      make ?maxResults ?nextToken ~stackRefactorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the stack refactor actions that will be taken after calling the ExecuteStackRefactor action."]
module ListStackInstancesOutput =
  struct
    type listStackInstancesResult =
      {
      summaries: StackInstanceSummaries.t option
        [@ocaml.doc
          "A list of StackInstanceSummary structures that contain information about the specified stack instances."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListStackInstances again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackInstancesResult: listStackInstancesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackInstancesOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackInstancesResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackInstancesResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries ~f:StackInstanceSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackInstancesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListStackInstancesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackInstanceSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries =
        field_map json__ "Summaries" StackInstanceSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about stack instances that are associated with the specified StackSet. You can filter for stack instances that are associated with a specific Amazon Web Services account name or Region, or that have a specific status."]
module ListStackInstancesInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to list stack instances for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      filters: StackInstanceFilters.t option
        [@ocaml.doc "The filter to apply to stack instances"];
      stackInstanceAccount: Account.t option
        [@ocaml.doc
          "The name of the Amazon Web Services account that you want to list stack instances for."];
      stackInstanceRegion: Region.t option
        [@ocaml.doc
          "The name of the Region where you want to list stack instances."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "ListStackInstancesInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?filters ->
          fun ?stackInstanceAccount ->
            fun ?stackInstanceRegion ->
              fun ?callAs ->
                fun ~stackSetName ->
                  fun () ->
                    {
                      nextToken;
                      maxResults;
                      filters;
                      stackInstanceAccount;
                      stackInstanceRegion;
                      callAs;
                      stackSetName
                    }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("Filters", (Option.map x.filters ~f:StackInstanceFilters.to_value));
        ("StackInstanceAccount",
          (Option.map x.stackInstanceAccount ~f:Account.to_value));
        ("StackInstanceRegion",
          (Option.map x.stackInstanceRegion ~f:Region.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let stackInstanceRegion =
        (Option.map ~f:Region.of_xml)
          (Xml.child xml_arg0 "StackInstanceRegion") in
      let stackInstanceAccount =
        (Option.map ~f:Account.of_xml)
          (Xml.child xml_arg0 "StackInstanceAccount") in
      let filters =
        (Option.map ~f:StackInstanceFilters.of_xml)
          (Xml.child xml_arg0 "Filters") 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 stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?stackInstanceRegion ?stackInstanceAccount ?filters
        ?maxResults ?nextToken ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let stackInstanceRegion =
        field_map json__ "StackInstanceRegion" Region.of_json in
      let stackInstanceAccount =
        field_map json__ "StackInstanceAccount" Account.of_json in
      let filters = field_map json__ "Filters" StackInstanceFilters.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ?stackInstanceRegion ?stackInstanceAccount ?filters
        ?maxResults ?nextToken ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summary information about stack instances that are associated with the specified StackSet. You can filter for stack instances that are associated with a specific Amazon Web Services account name or Region, or that have a specific status."]
module ListStackInstanceResourceDriftsOutput =
  struct
    type listStackInstanceResourceDriftsResult =
      {
      summaries: StackInstanceResourceDriftsSummaries.t option
        [@ocaml.doc
          "A list of StackInstanceResourceDriftsSummary structures that contain information about the specified stack instances."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the previous paginated request didn't return all of the remaining results, the response object's NextToken parameter value is set to a token. To retrieve the next set of results, call this action again and assign that token to the request object's NextToken parameter. If there are no remaining results, the previous response object's NextToken parameter is set to null."]}
    and responseMetaData = unit
    and t =
      {
      listStackInstanceResourceDriftsResult:
        listStackInstanceResourceDriftsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `OperationNotFoundException of OperationNotFoundException.t 
      | `StackInstanceNotFoundException of StackInstanceNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListStackInstanceResourceDriftsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listStackInstanceResourceDriftsResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.to_json e))]
      | `StackInstanceNotFoundException e ->
          `Assoc
            [("error", (`String "StackInstanceNotFoundException"));
            ("details", (StackInstanceNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listStackInstanceResourceDriftsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries
              ~f:StackInstanceResourceDriftsSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListStackInstanceResourceDriftsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "ListStackInstanceResourceDriftsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:StackInstanceResourceDriftsSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries =
        field_map json__ "Summaries"
          StackInstanceResourceDriftsSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns drift information for resources in a stack instance. ListStackInstanceResourceDrifts returns drift information for the most recent drift detection operation. If an operation is in progress, it may only return partial results."]
module ListStackInstanceResourceDriftsInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetNameOrId.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to list drifted resources for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."];
      stackInstanceResourceDriftStatuses:
        StackResourceDriftStatusFilters.t option
        [@ocaml.doc
          "The resource drift status of the stack instance. DELETED: The resource differs from its expected template configuration in that the resource has been deleted. MODIFIED: One or more resource properties differ from their expected template values. IN_SYNC: The resource's actual configuration matches its expected template configuration. NOT_CHECKED: CloudFormation doesn't currently return this value."];
      stackInstanceAccount: Account.t
        [@ocaml.doc
          "The name of the Amazon Web Services account that you want to list resource drifts for."];
      stackInstanceRegion: Region.t
        [@ocaml.doc
          "The name of the Region where you want to list resource drifts."];
      operationId: ClientRequestToken.t
        [@ocaml.doc "The unique ID of the drift operation."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "ListStackInstanceResourceDriftsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?stackInstanceResourceDriftStatuses ->
          fun ?callAs ->
            fun ~stackSetName ->
              fun ~stackInstanceAccount ->
                fun ~stackInstanceRegion ->
                  fun ~operationId ->
                    fun () ->
                      {
                        nextToken;
                        maxResults;
                        stackInstanceResourceDriftStatuses;
                        callAs;
                        stackSetName;
                        stackInstanceAccount;
                        stackInstanceRegion;
                        operationId
                      }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetNameOrId.to_value x.stackSetName)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("StackInstanceResourceDriftStatuses",
          (Option.map x.stackInstanceResourceDriftStatuses
             ~f:StackResourceDriftStatusFilters.to_value));
        ("StackInstanceAccount",
          (Some (Account.to_value x.stackInstanceAccount)));
        ("StackInstanceRegion",
          (Some (Region.to_value x.stackInstanceRegion)));
        ("OperationId", (Some (ClientRequestToken.to_value x.operationId)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      let stackInstanceRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackInstanceRegion") in
      let stackInstanceAccount =
        Account.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackInstanceAccount") in
      let stackInstanceResourceDriftStatuses =
        (Option.map ~f:StackResourceDriftStatusFilters.of_xml)
          (Xml.child xml_arg0 "StackInstanceResourceDriftStatuses") 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 stackSetName =
        StackSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~operationId ~stackInstanceRegion ~stackInstanceAccount
        ?stackInstanceResourceDriftStatuses ?maxResults ?nextToken
        ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map_exn json__ "OperationId" ClientRequestToken.of_json in
      let stackInstanceRegion =
        field_map_exn json__ "StackInstanceRegion" Region.of_json in
      let stackInstanceAccount =
        field_map_exn json__ "StackInstanceAccount" Account.of_json in
      let stackInstanceResourceDriftStatuses =
        field_map json__ "StackInstanceResourceDriftStatuses"
          StackResourceDriftStatusFilters.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetNameOrId.of_json in
      make ?callAs ~operationId ~stackInstanceRegion ~stackInstanceAccount
        ?stackInstanceResourceDriftStatuses ?maxResults ?nextToken
        ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns drift information for resources in a stack instance. ListStackInstanceResourceDrifts returns drift information for the most recent drift detection operation. If an operation is in progress, it may only return partial results."]
module ListResourceScansOutput =
  struct
    type listResourceScansResult =
      {
      resourceScanSummaries: ResourceScanSummaries.t option
        [@ocaml.doc "The list of scans returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListResourceScans again and use that value for the NextToken parameter. If the request returns all results, NextToken is set to an empty string."]}
    and responseMetaData = unit
    and t =
      {
      listResourceScansResult: listResourceScansResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListResourceScansOutput"
    let make ?resourceScanSummaries =
      fun ?nextToken ->
        fun () ->
          {
            listResourceScansResult = { resourceScanSummaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listResourceScansResult in
      structure_to_wrapped_value
        [("ResourceScanSummaries",
           (Option.map x.resourceScanSummaries
              ~f:ResourceScanSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListResourceScansResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListResourceScansResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceScanSummaries =
        (Option.map ~f:ResourceScanSummaries.of_xml)
          (Xml.child xml_arg0 "ResourceScanSummaries") in
      make ?nextToken ?resourceScanSummaries ()
    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 resourceScanSummaries =
        field_map json__ "ResourceScanSummaries"
          ResourceScanSummaries.of_json in
      make ?nextToken ?resourceScanSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the resource scans from newest to oldest. By default it will return up to 10 resource scans."]
module ListResourceScansInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: ResourceScannerMaxResults.t option
        [@ocaml.doc
          "If the number of available results exceeds this maximum, the response includes a NextToken value that you can use for the NextToken parameter to get the next set of results. The default value is 10. The maximum value is 100."];
      scanTypeFilter: ScanType.t option
        [@ocaml.doc
          "The scan type that you want to get summary information about. The default is FULL."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?scanTypeFilter ->
          fun () -> { nextToken; maxResults; scanTypeFilter }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:ResourceScannerMaxResults.to_value));
        ("ScanTypeFilter",
          (Option.map x.scanTypeFilter ~f:ScanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scanTypeFilter =
        (Option.map ~f:ScanType.of_xml) (Xml.child xml_arg0 "ScanTypeFilter") in
      let maxResults =
        (Option.map ~f:ResourceScannerMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?scanTypeFilter ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scanTypeFilter = field_map json__ "ScanTypeFilter" ScanType.of_json in
      let maxResults =
        field_map json__ "MaxResults" ResourceScannerMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?scanTypeFilter ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the resource scans from newest to oldest. By default it will return up to 10 resource scans."]
module ListResourceScanResourcesOutput =
  struct
    type listResourceScanResourcesResult =
      {
      resources: ScannedResources.t option
        [@ocaml.doc
          "List of up to MaxResults resources in the specified resource scan that match all of the specified filters."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListResourceScanResources again and use that value for the NextToken parameter. If the request returns all results, NextToken is set to an empty string."]}
    and responseMetaData = unit
    and t =
      {
      listResourceScanResourcesResult: listResourceScanResourcesResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `ResourceScanInProgressException of ResourceScanInProgressException.t 
      | `ResourceScanNotFoundException of ResourceScanNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListResourceScanResourcesOutput"
    let make ?resources =
      fun ?nextToken ->
        fun () ->
          {
            listResourceScanResourcesResult = { resources; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_json json)
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_xml xml)
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceScanInProgressException e ->
          `Assoc
            [("error", (`String "ResourceScanInProgressException"));
            ("details", (ResourceScanInProgressException.to_json e))]
      | `ResourceScanNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceScanNotFoundException"));
            ("details", (ResourceScanNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listResourceScanResourcesResult in
      structure_to_wrapped_value
        [("Resources", (Option.map x.resources ~f:ScannedResources.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListResourceScanResourcesResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListResourceScanResourcesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resources =
        (Option.map ~f:ScannedResources.of_xml)
          (Xml.child xml_arg0 "Resources") in
      make ?nextToken ?resources ()
    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 resources = field_map json__ "Resources" ScannedResources.of_json in
      make ?nextToken ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resources from a resource scan. The results can be filtered by resource identifier, resource type prefix, tag key, and tag value. Only resources that match all specified filters are returned. The response indicates whether each returned resource is already managed by CloudFormation."]
module ListResourceScanResourcesInput =
  struct
    type nonrec t =
      {
      resourceScanId: ResourceScanId.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource scan."];
      resourceIdentifier: ResourceIdentifier.t option
        [@ocaml.doc
          "If specified, the returned resources will have the specified resource identifier (or one of them in the case where the resource has multiple identifiers)."];
      resourceTypePrefix: ResourceTypePrefix.t option
        [@ocaml.doc
          "If specified, the returned resources will be of any of the resource types with the specified prefix."];
      tagKey: TagKey.t option
        [@ocaml.doc
          "If specified, the returned resources will have a matching tag key."];
      tagValue: TagValue.t option
        [@ocaml.doc
          "If specified, the returned resources will have a matching tag value."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: ResourceScannerMaxResults.t option
        [@ocaml.doc
          "If the number of available results exceeds this maximum, the response includes a NextToken value that you can use for the NextToken parameter to get the next set of results. By default the ListResourceScanResources API action will return at most 100 results in each response. The maximum value is 100."]}
    let context_ = "ListResourceScanResourcesInput"
    let make ?resourceIdentifier =
      fun ?resourceTypePrefix ->
        fun ?tagKey ->
          fun ?tagValue ->
            fun ?nextToken ->
              fun ?maxResults ->
                fun ~resourceScanId ->
                  fun () ->
                    {
                      resourceIdentifier;
                      resourceTypePrefix;
                      tagKey;
                      tagValue;
                      nextToken;
                      maxResults;
                      resourceScanId
                    }
    let to_value x =
      structure_to_value
        [("ResourceScanId",
           (Some (ResourceScanId.to_value x.resourceScanId)));
        ("ResourceIdentifier",
          (Option.map x.resourceIdentifier ~f:ResourceIdentifier.to_value));
        ("ResourceTypePrefix",
          (Option.map x.resourceTypePrefix ~f:ResourceTypePrefix.to_value));
        ("TagKey", (Option.map x.tagKey ~f:TagKey.to_value));
        ("TagValue", (Option.map x.tagValue ~f:TagValue.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:ResourceScannerMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResourceScannerMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tagValue =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "TagValue") in
      let tagKey =
        (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "TagKey") in
      let resourceTypePrefix =
        (Option.map ~f:ResourceTypePrefix.of_xml)
          (Xml.child xml_arg0 "ResourceTypePrefix") in
      let resourceIdentifier =
        (Option.map ~f:ResourceIdentifier.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifier") in
      let resourceScanId =
        ResourceScanId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceScanId") in
      make ?maxResults ?nextToken ?tagValue ?tagKey ?resourceTypePrefix
        ?resourceIdentifier ~resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" ResourceScannerMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tagValue = field_map json__ "TagValue" TagValue.of_json in
      let tagKey = field_map json__ "TagKey" TagKey.of_json in
      let resourceTypePrefix =
        field_map json__ "ResourceTypePrefix" ResourceTypePrefix.of_json in
      let resourceIdentifier =
        field_map json__ "ResourceIdentifier" ResourceIdentifier.of_json in
      let resourceScanId =
        field_map_exn json__ "ResourceScanId" ResourceScanId.of_json in
      make ?maxResults ?nextToken ?tagValue ?tagKey ?resourceTypePrefix
        ?resourceIdentifier ~resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resources from a resource scan. The results can be filtered by resource identifier, resource type prefix, tag key, and tag value. Only resources that match all specified filters are returned. The response indicates whether each returned resource is already managed by CloudFormation."]
module ListResourceScanRelatedResourcesOutput =
  struct
    type listResourceScanRelatedResourcesResult =
      {
      relatedResources: RelatedResources.t option
        [@ocaml.doc
          "List of up to MaxResults resources in the specified resource scan related to the specified resources."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListResourceScanRelatedResources again and use that value for the NextToken parameter. If the request returns all results, NextToken is set to an empty string."]}
    and responseMetaData = unit
    and t =
      {
      listResourceScanRelatedResourcesResult:
        listResourceScanRelatedResourcesResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `ResourceScanInProgressException of ResourceScanInProgressException.t 
      | `ResourceScanNotFoundException of ResourceScanNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListResourceScanRelatedResourcesOutput"
    let make ?relatedResources =
      fun ?nextToken ->
        fun () ->
          {
            listResourceScanRelatedResourcesResult =
              { relatedResources; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_json json)
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceScanInProgressException" ->
          `ResourceScanInProgressException
            (ResourceScanInProgressException.of_xml xml)
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceScanInProgressException e ->
          `Assoc
            [("error", (`String "ResourceScanInProgressException"));
            ("details", (ResourceScanInProgressException.to_json e))]
      | `ResourceScanNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceScanNotFoundException"));
            ("details", (ResourceScanNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listResourceScanRelatedResourcesResult in
      structure_to_wrapped_value
        [("RelatedResources",
           (Option.map x.relatedResources ~f:RelatedResources.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListResourceScanRelatedResourcesResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "ListResourceScanRelatedResourcesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let relatedResources =
        (Option.map ~f:RelatedResources.of_xml)
          (Xml.child xml_arg0 "RelatedResources") in
      make ?nextToken ?relatedResources ()
    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 relatedResources =
        field_map json__ "RelatedResources" RelatedResources.of_json in
      make ?nextToken ?relatedResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the related resources for a list of resources from a resource scan. The response indicates whether each returned resource is already managed by CloudFormation."]
module ListResourceScanRelatedResourcesInput =
  struct
    type nonrec t =
      {
      resourceScanId: ResourceScanId.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource scan."];
      resources: ScannedResourceIdentifiers.t
        [@ocaml.doc
          "The list of resources for which you want to get the related resources. Up to 100 resources can be provided."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: BoxedMaxResults.t option
        [@ocaml.doc
          "If the number of available results exceeds this maximum, the response includes a NextToken value that you can use for the NextToken parameter to get the next set of results. By default the ListResourceScanRelatedResources API action will return up to 100 results in each response. The maximum value is 100."]}
    let context_ = "ListResourceScanRelatedResourcesInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceScanId ->
          fun ~resources ->
            fun () -> { nextToken; maxResults; resourceScanId; resources }
    let to_value x =
      structure_to_value
        [("ResourceScanId",
           (Some (ResourceScanId.to_value x.resourceScanId)));
        ("Resources",
          (Some (ScannedResourceIdentifiers.to_value x.resources)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxedMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:BoxedMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resources =
        ScannedResourceIdentifiers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Resources") in
      let resourceScanId =
        ResourceScanId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceScanId") in
      make ?maxResults ?nextToken ~resources ~resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" BoxedMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let resources =
        field_map_exn json__ "Resources" ScannedResourceIdentifiers.of_json in
      let resourceScanId =
        field_map_exn json__ "ResourceScanId" ResourceScanId.of_json in
      make ?maxResults ?nextToken ~resources ~resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the related resources for a list of resources from a resource scan. The response indicates whether each returned resource is already managed by CloudFormation."]
module ListImportsOutput =
  struct
    type listImportsResult =
      {
      imports: Imports.t option
        [@ocaml.doc
          "A list of stack names that are importing the specified exported output value."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string that identifies the next page of exports. If there is no additional page, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      listImportsResult: listImportsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListImportsOutput"
    let make ?imports =
      fun ?nextToken ->
        fun () ->
          { listImportsResult = { imports; nextToken }; responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listImportsResult in
      structure_to_wrapped_value
        [("Imports", (Option.map x.imports ~f:Imports.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListImportsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListImportsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let imports =
        (Option.map ~f:Imports.of_xml) (Xml.child xml_arg0 "Imports") in
      make ?nextToken ?imports ()
    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 imports = field_map json__ "Imports" Imports.of_json in
      make ?nextToken ?imports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all stacks that are importing an exported output value. To modify or remove an exported output value, first use this action to see which stacks are using it. To see the exported output values in your account, see ListExports. For more information about importing an exported output value, see the Fn::ImportValue function."]
module ListImportsInput =
  struct
    type nonrec t =
      {
      exportName: ExportName.t
        [@ocaml.doc
          "The name of the exported output value. CloudFormation returns the stack names that are importing this value."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let context_ = "ListImportsInput"
    let make ?nextToken =
      fun ~exportName -> fun () -> { nextToken; exportName }
    let to_value x =
      structure_to_value
        [("ExportName", (Some (ExportName.to_value x.exportName)));
        ("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 exportName =
        ExportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExportName") in
      make ?nextToken ~exportName ()
    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 exportName = field_map_exn json__ "ExportName" ExportName.of_json in
      make ?nextToken ~exportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all stacks that are importing an exported output value. To modify or remove an exported output value, first use this action to see which stacks are using it. To see the exported output values in your account, see ListExports. For more information about importing an exported output value, see the Fn::ImportValue function."]
module ListHookResultsOutput =
  struct
    type listHookResultsResult =
      {
      targetType: ListHookResultsTargetType.t option
        [@ocaml.doc "The target type."];
      targetId: HookResultId.t option
        [@ocaml.doc "The unique identifier of the Hook invocation target."];
      hookResults: HookResultSummaries.t option
        [@ocaml.doc
          "A list of HookResultSummary structures that provides the status and Hook status reason for each Hook invocation for the specified target."];
      nextToken: NextToken.t option
        [@ocaml.doc "Pagination token, null or empty if no more results."]}
    and responseMetaData = unit
    and t =
      {
      listHookResultsResult: listHookResultsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `HookResultNotFoundException of HookResultNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListHookResultsOutput"
    let make ?targetType =
      fun ?targetId ->
        fun ?hookResults ->
          fun ?nextToken ->
            fun () ->
              {
                listHookResultsResult =
                  { targetType; targetId; hookResults; nextToken };
                responseMetaData = ()
              }
    let error_of_json name json =
      match name with
      | "HookResultNotFoundException" ->
          `HookResultNotFoundException
            (HookResultNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "HookResultNotFoundException" ->
          `HookResultNotFoundException
            (HookResultNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `HookResultNotFoundException e ->
          `Assoc
            [("error", (`String "HookResultNotFoundException"));
            ("details", (HookResultNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listHookResultsResult in
      structure_to_wrapped_value
        [("TargetType",
           (Option.map x.targetType ~f:ListHookResultsTargetType.to_value));
        ("TargetId", (Option.map x.targetId ~f:HookResultId.to_value));
        ("HookResults",
          (Option.map x.hookResults ~f:HookResultSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListHookResultsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListHookResultsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let hookResults =
        (Option.map ~f:HookResultSummaries.of_xml)
          (Xml.child xml_arg0 "HookResults") in
      let targetId =
        (Option.map ~f:HookResultId.of_xml) (Xml.child xml_arg0 "TargetId") in
      let targetType =
        (Option.map ~f:ListHookResultsTargetType.of_xml)
          (Xml.child xml_arg0 "TargetType") in
      make ?nextToken ?hookResults ?targetId ?targetType ()
    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 hookResults =
        field_map json__ "HookResults" HookResultSummaries.of_json in
      let targetId = field_map json__ "TargetId" HookResultId.of_json in
      let targetType =
        field_map json__ "TargetType" ListHookResultsTargetType.of_json in
      make ?nextToken ?hookResults ?targetId ?targetType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summaries of invoked Hooks. For more information, see View invocation summaries for CloudFormation Hooks in the CloudFormation Hooks User Guide. This operation supports the following parameter combinations: No parameters: Returns all Hook invocation summaries. TypeArn only: Returns summaries for a specific Hook. TypeArn and Status: Returns summaries for a specific Hook filtered by status. TargetId and TargetType: Returns summaries for a specific Hook invocation target."]
module ListHookResultsInput =
  struct
    type nonrec t =
      {
      targetType: ListHookResultsTargetType.t option
        [@ocaml.doc
          "Filters results by target type. Currently, only CHANGE_SET and CLOUD_CONTROL are supported filter options. Required when TargetId is specified and cannot be used otherwise."];
      targetId: HookResultId.t option
        [@ocaml.doc
          "Filters results by the unique identifier of the target the Hook was invoked against. For change sets, this is the change set ARN. When the target is a Cloud Control API operation, this value must be the HookRequestToken returned by the Cloud Control API request. For more information on the HookRequestToken, see ProgressEvent. Required when TargetType is specified and cannot be used otherwise."];
      typeArn: HookTypeArn.t option
        [@ocaml.doc
          "Filters results by the ARN of the Hook. Can be used alone or in combination with Status."];
      status: HookStatus.t option
        [@ocaml.doc
          "Filters results by the status of Hook invocations. Can only be used in combination with TypeArn. Valid values are: HOOK_IN_PROGRESS: The Hook is currently running. HOOK_COMPLETE_SUCCEEDED: The Hook completed successfully. HOOK_COMPLETE_FAILED: The Hook completed but failed validation. HOOK_FAILED: The Hook encountered an error during execution."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?targetType =
      fun ?targetId ->
        fun ?typeArn ->
          fun ?status ->
            fun ?nextToken ->
              fun () -> { targetType; targetId; typeArn; status; nextToken }
    let to_value x =
      structure_to_value
        [("TargetType",
           (Option.map x.targetType ~f:ListHookResultsTargetType.to_value));
        ("TargetId", (Option.map x.targetId ~f:HookResultId.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:HookTypeArn.to_value));
        ("Status", (Option.map x.status ~f:HookStatus.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 status =
        (Option.map ~f:HookStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let typeArn =
        (Option.map ~f:HookTypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let targetId =
        (Option.map ~f:HookResultId.of_xml) (Xml.child xml_arg0 "TargetId") in
      let targetType =
        (Option.map ~f:ListHookResultsTargetType.of_xml)
          (Xml.child xml_arg0 "TargetType") in
      make ?nextToken ?status ?typeArn ?targetId ?targetType ()
    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 status = field_map json__ "Status" HookStatus.of_json in
      let typeArn = field_map json__ "TypeArn" HookTypeArn.of_json in
      let targetId = field_map json__ "TargetId" HookResultId.of_json in
      let targetType =
        field_map json__ "TargetType" ListHookResultsTargetType.of_json in
      make ?nextToken ?status ?typeArn ?targetId ?targetType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns summaries of invoked Hooks. For more information, see View invocation summaries for CloudFormation Hooks in the CloudFormation Hooks User Guide. This operation supports the following parameter combinations: No parameters: Returns all Hook invocation summaries. TypeArn only: Returns summaries for a specific Hook. TypeArn and Status: Returns summaries for a specific Hook filtered by status. TargetId and TargetType: Returns summaries for a specific Hook invocation target."]
module ListGeneratedTemplatesOutput =
  struct
    type listGeneratedTemplatesResult =
      {
      summaries: TemplateSummaries.t option
        [@ocaml.doc "A list of summaries of the generated templates."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call ListGeneratedTemplates again and use that value for the NextToken parameter. If the request returns all results, NextToken is set to an empty string."]}
    and responseMetaData = unit
    and t =
      {
      listGeneratedTemplatesResult: listGeneratedTemplatesResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListGeneratedTemplatesOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listGeneratedTemplatesResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listGeneratedTemplatesResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries ~f:TemplateSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListGeneratedTemplatesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListGeneratedTemplatesResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:TemplateSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries = field_map json__ "Summaries" TemplateSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists your generated templates in this Region."]
module ListGeneratedTemplatesInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "If the number of available results exceeds this maximum, the response includes a NextToken value that you can use for the NextToken parameter to get the next set of results. By default the ListGeneratedTemplates API action will return at most 50 results in each response. The maximum value is 100."]}
    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 your generated templates in this Region."]
module ListExportsOutput =
  struct
    type listExportsResult =
      {
      exports: Exports.t option
        [@ocaml.doc "The output for the ListExports action."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 100 exported output values, a string that identifies the next page of exports. If there is no additional page, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      listExportsResult: listExportsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListExportsOutput"
    let make ?exports =
      fun ?nextToken ->
        fun () ->
          { listExportsResult = { exports; nextToken }; responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listExportsResult in
      structure_to_wrapped_value
        [("Exports", (Option.map x.exports ~f:Exports.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListExportsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListExportsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let exports =
        (Option.map ~f:Exports.of_xml) (Xml.child xml_arg0 "Exports") in
      make ?nextToken ?exports ()
    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 exports = field_map json__ "Exports" Exports.of_json in
      make ?nextToken ?exports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all exported output values in the account and Region in which you call this action. Use this action to see the exported output values that you can import into other stacks. To import values, use the Fn::ImportValue function. For more information, see Get exported outputs from a deployed CloudFormation stack."]
module ListExportsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_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
      make ?nextToken ()
    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
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all exported output values in the account and Region in which you call this action. Use this action to see the exported output values that you can import into other stacks. To import values, use the Fn::ImportValue function. For more information, see Get exported outputs from a deployed CloudFormation stack."]
module ListChangeSetsOutput =
  struct
    type listChangeSetsResult =
      {
      summaries: ChangeSetSummaries.t option
        [@ocaml.doc
          "A list of ChangeSetSummary structures that provides the ID and status of each change set for the specified stack."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB, a string that identifies the next page of change sets. If there is no additional page, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      listChangeSetsResult: listChangeSetsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ListChangeSetsOutput"
    let make ?summaries =
      fun ?nextToken ->
        fun () ->
          {
            listChangeSetsResult = { summaries; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listChangeSetsResult in
      structure_to_wrapped_value
        [("Summaries",
           (Option.map x.summaries ~f:ChangeSetSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListChangeSetsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListChangeSetsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let summaries =
        (Option.map ~f:ChangeSetSummaries.of_xml)
          (Xml.child xml_arg0 "Summaries") in
      make ?nextToken ?summaries ()
    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 summaries = field_map json__ "Summaries" ChangeSetSummaries.of_json in
      make ?nextToken ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the ListChangeSets action."]
module ListChangeSetsInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name or the Amazon Resource Name (ARN) of the stack for which you want to list change sets."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let context_ = "ListChangeSetsInput"
    let make ?nextToken =
      fun ~stackName -> fun () -> { nextToken; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("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 stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?nextToken ~stackName ()
    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 stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?nextToken ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the ListChangeSets action."]
module ImportStacksToStackSetOutput =
  struct
    type importStacksToStackSetResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique identifier for the StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      importStacksToStackSetResult: importStacksToStackSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `OperationIdAlreadyExistsException of
          OperationIdAlreadyExistsException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackNotFoundException of StackNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `StaleRequestException of StaleRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ImportStacksToStackSetOutput"
    let make ?operationId =
      fun () ->
        {
          importStacksToStackSetResult = { operationId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackNotFoundException" ->
          `StackNotFoundException (StackNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackNotFoundException" ->
          `StackNotFoundException (StackNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `OperationIdAlreadyExistsException e ->
          `Assoc
            [("error", (`String "OperationIdAlreadyExistsException"));
            ("details", (OperationIdAlreadyExistsException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackNotFoundException e ->
          `Assoc
            [("error", (`String "StackNotFoundException"));
            ("details", (StackNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `StaleRequestException e ->
          `Assoc
            [("error", (`String "StaleRequestException"));
            ("details", (StaleRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.importStacksToStackSetResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"ImportStacksToStackSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ImportStacksToStackSetResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import existing stacks into a new StackSets. Use the stack import operation to import up to 10 stacks into a new StackSet in the same account as the source stack or in a different administrator account and Region, by specifying the stack ID of the stack you intend to import."]
module ImportStacksToStackSetInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetNameOrId.t
        [@ocaml.doc
          "The name of the StackSet. The name must be unique in the Region where you create your StackSet."];
      stackIds: StackIdList.t option
        [@ocaml.doc
          "The IDs of the stacks you are importing into a StackSet. You import up to 10 stacks per StackSet at a time. Specify either StackIds or StackIdsUrl."];
      stackIdsUrl: StackIdsUrl.t option
        [@ocaml.doc
          "The Amazon S3 URL which contains list of stack ids to be inputted. Specify either StackIds or StackIdsUrl."];
      organizationalUnitIds: OrganizationalUnitIdList.t option
        [@ocaml.doc
          "The list of OU ID's to which the imported stacks must be mapped as deployment targets."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "The user-specified preferences for how CloudFormation performs a StackSet operation. For more information about maximum concurrent accounts and failure tolerance, see StackSet operation options."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, user defined, identifier for the StackSet operation."];
      callAs: CallAs.t option
        [@ocaml.doc
          "By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. For service managed StackSets, specify DELEGATED_ADMIN."]}
    let context_ = "ImportStacksToStackSetInput"
    let make ?stackIds =
      fun ?stackIdsUrl ->
        fun ?organizationalUnitIds ->
          fun ?operationPreferences ->
            fun ?operationId ->
              fun ?callAs ->
                fun ~stackSetName ->
                  fun () ->
                    {
                      stackIds;
                      stackIdsUrl;
                      organizationalUnitIds;
                      operationPreferences;
                      operationId;
                      callAs;
                      stackSetName
                    }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetNameOrId.to_value x.stackSetName)));
        ("StackIds", (Option.map x.stackIds ~f:StackIdList.to_value));
        ("StackIdsUrl", (Option.map x.stackIdsUrl ~f:StackIdsUrl.to_value));
        ("OrganizationalUnitIds",
          (Option.map x.organizationalUnitIds
             ~f:OrganizationalUnitIdList.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let organizationalUnitIds =
        (Option.map ~f:OrganizationalUnitIdList.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitIds") in
      let stackIdsUrl =
        (Option.map ~f:StackIdsUrl.of_xml) (Xml.child xml_arg0 "StackIdsUrl") in
      let stackIds =
        (Option.map ~f:StackIdList.of_xml) (Xml.child xml_arg0 "StackIds") in
      let stackSetName =
        StackSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?operationId ?operationPreferences ?organizationalUnitIds
        ?stackIdsUrl ?stackIds ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let organizationalUnitIds =
        field_map json__ "OrganizationalUnitIds"
          OrganizationalUnitIdList.of_json in
      let stackIdsUrl = field_map json__ "StackIdsUrl" StackIdsUrl.of_json in
      let stackIds = field_map json__ "StackIds" StackIdList.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetNameOrId.of_json in
      make ?callAs ?operationId ?operationPreferences ?organizationalUnitIds
        ?stackIdsUrl ?stackIds ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import existing stacks into a new StackSets. Use the stack import operation to import up to 10 stacks into a new StackSet in the same account as the source stack or in a different administrator account and Region, by specifying the stack ID of the stack you intend to import."]
module GetTemplateSummaryOutput =
  struct
    type getTemplateSummaryResult =
      {
      parameters: ParameterDeclarations.t option
        [@ocaml.doc
          "A list of parameter declarations that describe various properties for each parameter."];
      description: Description.t option
        [@ocaml.doc
          "The value that's defined in the Description property of the template."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the CreateStack or UpdateStack actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see Acknowledging IAM resources in CloudFormation templates."];
      capabilitiesReason: CapabilitiesReason.t option
        [@ocaml.doc
          "The list of resources that generated the values in the Capabilities response element."];
      resourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "A list of all the template resource types that are defined in the template, such as AWS::EC2::Instance, AWS::Dynamo::Table, and Custom::MyCustomInstance."];
      version: Version.t option
        [@ocaml.doc
          "The Amazon Web Services template format version, which identifies the capabilities of the template."];
      metadata: Metadata.t option
        [@ocaml.doc
          "The value that's defined for the Metadata property of the template."];
      declaredTransforms: TransformsList.t option
        [@ocaml.doc
          "A list of the transforms that are declared in the template."];
      resourceIdentifierSummaries: ResourceIdentifierSummaries.t option
        [@ocaml.doc
          "A list of resource identifier summaries that describe the target resources of an import operation and the properties you can provide during the import to identify the target resources. For example, BucketName is a possible identifier property for an AWS::S3::Bucket resource."];
      warnings: Warnings.t option
        [@ocaml.doc "An object that contains any warnings returned."]}
    and responseMetaData = unit
    and t =
      {
      getTemplateSummaryResult: getTemplateSummaryResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetTemplateSummaryOutput"
    let make ?parameters =
      fun ?description ->
        fun ?capabilities ->
          fun ?capabilitiesReason ->
            fun ?resourceTypes ->
              fun ?version ->
                fun ?metadata ->
                  fun ?declaredTransforms ->
                    fun ?resourceIdentifierSummaries ->
                      fun ?warnings ->
                        fun () ->
                          {
                            getTemplateSummaryResult =
                              {
                                parameters;
                                description;
                                capabilities;
                                capabilitiesReason;
                                resourceTypes;
                                version;
                                metadata;
                                declaredTransforms;
                                resourceIdentifierSummaries;
                                warnings
                              };
                            responseMetaData = ()
                          }
    let error_of_json name json =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getTemplateSummaryResult in
      structure_to_wrapped_value
        [("Parameters",
           (Option.map x.parameters ~f:ParameterDeclarations.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("CapabilitiesReason",
          (Option.map x.capabilitiesReason ~f:CapabilitiesReason.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:ResourceTypes.to_value));
        ("Version", (Option.map x.version ~f:Version.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("DeclaredTransforms",
          (Option.map x.declaredTransforms ~f:TransformsList.to_value));
        ("ResourceIdentifierSummaries",
          (Option.map x.resourceIdentifierSummaries
             ~f:ResourceIdentifierSummaries.to_value));
        ("Warnings", (Option.map x.warnings ~f:Warnings.to_value))]
        ~wrapper:"GetTemplateSummaryResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetTemplateSummaryResult" in
      let warnings =
        (Option.map ~f:Warnings.of_xml) (Xml.child xml_arg0 "Warnings") in
      let resourceIdentifierSummaries =
        (Option.map ~f:ResourceIdentifierSummaries.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifierSummaries") in
      let declaredTransforms =
        (Option.map ~f:TransformsList.of_xml)
          (Xml.child xml_arg0 "DeclaredTransforms") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let version =
        (Option.map ~f:Version.of_xml) (Xml.child xml_arg0 "Version") in
      let resourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let capabilitiesReason =
        (Option.map ~f:CapabilitiesReason.of_xml)
          (Xml.child xml_arg0 "CapabilitiesReason") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let parameters =
        (Option.map ~f:ParameterDeclarations.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      make ?warnings ?resourceIdentifierSummaries ?declaredTransforms
        ?metadata ?version ?resourceTypes ?capabilitiesReason ?capabilities
        ?description ?parameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warnings = field_map json__ "Warnings" Warnings.of_json in
      let resourceIdentifierSummaries =
        field_map json__ "ResourceIdentifierSummaries"
          ResourceIdentifierSummaries.of_json in
      let declaredTransforms =
        field_map json__ "DeclaredTransforms" TransformsList.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let version = field_map json__ "Version" Version.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypes.of_json in
      let capabilitiesReason =
        field_map json__ "CapabilitiesReason" CapabilitiesReason.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let parameters =
        field_map json__ "Parameters" ParameterDeclarations.of_json in
      make ?warnings ?resourceIdentifierSummaries ?declaredTransforms
        ?metadata ?version ?resourceTypes ?capabilitiesReason ?capabilities
        ?description ?parameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the GetTemplateSummary action."]
module GetTemplateSummaryInput =
  struct
    type nonrec t =
      {
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must specify only one of the following parameters: StackName, StackSetName, TemplateBody, or TemplateURL."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template (max size: 1 MB) that's located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. Conditional: You must specify only one of the following parameters: StackName, StackSetName, TemplateBody, or TemplateURL."];
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "The name or the stack ID that's associated with the stack, which aren't always interchangeable. For running stacks, you can specify either the stack's name or its unique stack ID. For deleted stack, you must specify the unique stack ID. Conditional: You must specify only one of the following parameters: StackName, StackSetName, TemplateBody, or TemplateURL."];
      stackSetName: StackSetNameOrId.t option
        [@ocaml.doc
          "The name or unique ID of the StackSet from which the stack was created. Conditional: You must specify only one of the following parameters: StackName, StackSetName, TemplateBody, or TemplateURL."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."];
      templateSummaryConfig: TemplateSummaryConfig.t option
        [@ocaml.doc
          "Specifies options for the GetTemplateSummary API action."]}
    let make ?templateBody =
      fun ?templateURL ->
        fun ?stackName ->
          fun ?stackSetName ->
            fun ?callAs ->
              fun ?templateSummaryConfig ->
                fun () ->
                  {
                    templateBody;
                    templateURL;
                    stackName;
                    stackSetName;
                    callAs;
                    templateSummaryConfig
                  }
    let to_value x =
      structure_to_value
        [("TemplateBody",
           (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value));
        ("StackSetName",
          (Option.map x.stackSetName ~f:StackSetNameOrId.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value));
        ("TemplateSummaryConfig",
          (Option.map x.templateSummaryConfig
             ~f:TemplateSummaryConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateSummaryConfig =
        (Option.map ~f:TemplateSummaryConfig.of_xml)
          (Xml.child xml_arg0 "TemplateSummaryConfig") in
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let stackSetName =
        (Option.map ~f:StackSetNameOrId.of_xml)
          (Xml.child xml_arg0 "StackSetName") in
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      make ?templateSummaryConfig ?callAs ?stackSetName ?stackName
        ?templateURL ?templateBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateSummaryConfig =
        field_map json__ "TemplateSummaryConfig"
          TemplateSummaryConfig.of_json in
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let stackSetName =
        field_map json__ "StackSetName" StackSetNameOrId.of_json in
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      make ?templateSummaryConfig ?callAs ?stackSetName ?stackName
        ?templateURL ?templateBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the GetTemplateSummary action."]
module GetTemplateOutput =
  struct
    type getTemplateResult =
      {
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body. CloudFormation returns the same template that was used when the stack was created."];
      stagesAvailable: StageList.t option
        [@ocaml.doc
          "The stage of the template that you can retrieve. For stacks, the Original and Processed templates are always available. For change sets, the Original template is always available. After CloudFormation finishes creating the change set, the Processed template becomes available."]}
    and responseMetaData = unit
    and t =
      {
      getTemplateResult: getTemplateResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ChangeSetNotFoundException of ChangeSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetTemplateOutput"
    let make ?templateBody =
      fun ?stagesAvailable ->
        fun () ->
          {
            getTemplateResult = { templateBody; stagesAvailable };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException
            (ChangeSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException (ChangeSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ChangeSetNotFoundException e ->
          `Assoc
            [("error", (`String "ChangeSetNotFoundException"));
            ("details", (ChangeSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getTemplateResult in
      structure_to_wrapped_value
        [("TemplateBody",
           (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("StagesAvailable",
          (Option.map x.stagesAvailable ~f:StageList.to_value))]
        ~wrapper:"GetTemplateResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "GetTemplateResult" in
      let stagesAvailable =
        (Option.map ~f:StageList.of_xml)
          (Xml.child xml_arg0 "StagesAvailable") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      make ?stagesAvailable ?templateBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stagesAvailable =
        field_map json__ "StagesAvailable" StageList.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      make ?stagesAvailable ?templateBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for GetTemplate action."]
module GetTemplateInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc
          "The name or the unique stack ID that's associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID."];
      changeSetName: ChangeSetNameOrId.t option
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of a change set for which CloudFormation returns the associated template. If you specify a name, you must also specify the StackName."];
      templateStage: TemplateStage.t option
        [@ocaml.doc
          "For templates that include transforms, the stage of the template that CloudFormation returns. To get the user-submitted template, specify Original. To get the template after CloudFormation has processed all transforms, specify Processed. If the template doesn't include transforms, Original and Processed return the same template. By default, CloudFormation specifies Processed."]}
    let make ?stackName =
      fun ?changeSetName ->
        fun ?templateStage ->
          fun () -> { stackName; changeSetName; templateStage }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("ChangeSetName",
          (Option.map x.changeSetName ~f:ChangeSetNameOrId.to_value));
        ("TemplateStage",
          (Option.map x.templateStage ~f:TemplateStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateStage =
        (Option.map ~f:TemplateStage.of_xml)
          (Xml.child xml_arg0 "TemplateStage") in
      let changeSetName =
        (Option.map ~f:ChangeSetNameOrId.of_xml)
          (Xml.child xml_arg0 "ChangeSetName") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?templateStage ?changeSetName ?stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateStage =
        field_map json__ "TemplateStage" TemplateStage.of_json in
      let changeSetName =
        field_map json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      make ?templateStage ?changeSetName ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for a GetTemplate action."]
module GetStackPolicyOutput =
  struct
    type getStackPolicyResult =
      {
      stackPolicyBody: StackPolicyBody.t option
        [@ocaml.doc
          "Structure that contains the stack policy body. For more information, see Prevent updates to stack resources in the CloudFormation User Guide."]}
    and responseMetaData = unit
    and t =
      {
      getStackPolicyResult: getStackPolicyResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "GetStackPolicyOutput"
    let make ?stackPolicyBody =
      fun () ->
        { getStackPolicyResult = { stackPolicyBody }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getStackPolicyResult in
      structure_to_wrapped_value
        [("StackPolicyBody",
           (Option.map x.stackPolicyBody ~f:StackPolicyBody.to_value))]
        ~wrapper:"GetStackPolicyResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "GetStackPolicyResult" in
      let stackPolicyBody =
        (Option.map ~f:StackPolicyBody.of_xml)
          (Xml.child xml_arg0 "StackPolicyBody") in
      make ?stackPolicyBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackPolicyBody =
        field_map json__ "StackPolicyBody" StackPolicyBody.of_json in
      make ?stackPolicyBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the GetStackPolicy action."]
module GetStackPolicyInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or unique stack ID that's associated with the stack whose policy you want to get."]}
    let context_ = "GetStackPolicyInput"
    let make ~stackName = fun () -> { stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the GetStackPolicy action."]
module GetHookResultOutput =
  struct
    type getHookResultResult =
      {
      hookResultId: HookInvocationId.t option
        [@ocaml.doc "The unique identifier of the Hook result."];
      invocationPoint: HookInvocationPoint.t option
        [@ocaml.doc
          "The specific point in the provisioning process where the Hook is invoked."];
      failureMode: HookFailureMode.t option
        [@ocaml.doc "The failure mode of the invocation."];
      typeName: HookTypeName.t option
        [@ocaml.doc "The name of the Hook that was invoked."];
      originalTypeName: HookTypeName.t option
        [@ocaml.doc
          "The original public type name of the Hook when an alias is used. For example, if you activate AWS::Hooks::GuardHook with alias MyCompany::Custom::GuardHook, then TypeName will be MyCompany::Custom::GuardHook and OriginalTypeName will be AWS::Hooks::GuardHook."];
      typeVersionId: HookTypeVersionId.t option
        [@ocaml.doc "The version identifier of the Hook that was invoked."];
      typeConfigurationVersionId: HookTypeConfigurationVersionId.t option
        [@ocaml.doc
          "The version identifier of the Hook configuration data that was used during invocation."];
      typeArn: HookTypeArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Hook."];
      status: HookStatus.t option
        [@ocaml.doc
          "The status of the Hook invocation. The following statuses are possible: HOOK_IN_PROGRESS: The Hook is currently running. HOOK_COMPLETE_SUCCEEDED: The Hook completed successfully. HOOK_COMPLETE_FAILED: The Hook completed but failed validation. HOOK_FAILED: The Hook encountered an error during execution."];
      hookStatusReason: HookStatusReason.t option
        [@ocaml.doc
          "A message that provides additional details about the Hook invocation status."];
      invokedAt: Timestamp.t option
        [@ocaml.doc "The timestamp when the Hook was invoked."];
      target: HookTarget.t option
        [@ocaml.doc "Information about the target of the Hook invocation."];
      annotations: AnnotationList.t option
        [@ocaml.doc
          "A list of objects with additional information and guidance that can help you resolve a failed Hook invocation."]}
    and responseMetaData = unit
    and t =
      {
      getHookResultResult: getHookResultResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `HookResultNotFoundException of HookResultNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetHookResultOutput"
    let make ?hookResultId =
      fun ?invocationPoint ->
        fun ?failureMode ->
          fun ?typeName ->
            fun ?originalTypeName ->
              fun ?typeVersionId ->
                fun ?typeConfigurationVersionId ->
                  fun ?typeArn ->
                    fun ?status ->
                      fun ?hookStatusReason ->
                        fun ?invokedAt ->
                          fun ?target ->
                            fun ?annotations ->
                              fun () ->
                                {
                                  getHookResultResult =
                                    {
                                      hookResultId;
                                      invocationPoint;
                                      failureMode;
                                      typeName;
                                      originalTypeName;
                                      typeVersionId;
                                      typeConfigurationVersionId;
                                      typeArn;
                                      status;
                                      hookStatusReason;
                                      invokedAt;
                                      target;
                                      annotations
                                    };
                                  responseMetaData = ()
                                }
    let error_of_json name json =
      match name with
      | "HookResultNotFoundException" ->
          `HookResultNotFoundException
            (HookResultNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "HookResultNotFoundException" ->
          `HookResultNotFoundException
            (HookResultNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `HookResultNotFoundException e ->
          `Assoc
            [("error", (`String "HookResultNotFoundException"));
            ("details", (HookResultNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getHookResultResult in
      structure_to_wrapped_value
        [("HookResultId",
           (Option.map x.hookResultId ~f:HookInvocationId.to_value));
        ("InvocationPoint",
          (Option.map x.invocationPoint ~f:HookInvocationPoint.to_value));
        ("FailureMode",
          (Option.map x.failureMode ~f:HookFailureMode.to_value));
        ("TypeName", (Option.map x.typeName ~f:HookTypeName.to_value));
        ("OriginalTypeName",
          (Option.map x.originalTypeName ~f:HookTypeName.to_value));
        ("TypeVersionId",
          (Option.map x.typeVersionId ~f:HookTypeVersionId.to_value));
        ("TypeConfigurationVersionId",
          (Option.map x.typeConfigurationVersionId
             ~f:HookTypeConfigurationVersionId.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:HookTypeArn.to_value));
        ("Status", (Option.map x.status ~f:HookStatus.to_value));
        ("HookStatusReason",
          (Option.map x.hookStatusReason ~f:HookStatusReason.to_value));
        ("InvokedAt", (Option.map x.invokedAt ~f:Timestamp.to_value));
        ("Target", (Option.map x.target ~f:HookTarget.to_value));
        ("Annotations",
          (Option.map x.annotations ~f:AnnotationList.to_value))]
        ~wrapper:"GetHookResultResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "GetHookResultResult" in
      let annotations =
        (Option.map ~f:AnnotationList.of_xml)
          (Xml.child xml_arg0 "Annotations") in
      let target =
        (Option.map ~f:HookTarget.of_xml) (Xml.child xml_arg0 "Target") in
      let invokedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "InvokedAt") in
      let hookStatusReason =
        (Option.map ~f:HookStatusReason.of_xml)
          (Xml.child xml_arg0 "HookStatusReason") in
      let status =
        (Option.map ~f:HookStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let typeArn =
        (Option.map ~f:HookTypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let typeConfigurationVersionId =
        (Option.map ~f:HookTypeConfigurationVersionId.of_xml)
          (Xml.child xml_arg0 "TypeConfigurationVersionId") in
      let typeVersionId =
        (Option.map ~f:HookTypeVersionId.of_xml)
          (Xml.child xml_arg0 "TypeVersionId") in
      let originalTypeName =
        (Option.map ~f:HookTypeName.of_xml)
          (Xml.child xml_arg0 "OriginalTypeName") in
      let typeName =
        (Option.map ~f:HookTypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let failureMode =
        (Option.map ~f:HookFailureMode.of_xml)
          (Xml.child xml_arg0 "FailureMode") in
      let invocationPoint =
        (Option.map ~f:HookInvocationPoint.of_xml)
          (Xml.child xml_arg0 "InvocationPoint") in
      let hookResultId =
        (Option.map ~f:HookInvocationId.of_xml)
          (Xml.child xml_arg0 "HookResultId") in
      make ?annotations ?target ?invokedAt ?hookStatusReason ?status ?typeArn
        ?typeConfigurationVersionId ?typeVersionId ?originalTypeName
        ?typeName ?failureMode ?invocationPoint ?hookResultId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let annotations = field_map json__ "Annotations" AnnotationList.of_json in
      let target = field_map json__ "Target" HookTarget.of_json in
      let invokedAt = field_map json__ "InvokedAt" Timestamp.of_json in
      let hookStatusReason =
        field_map json__ "HookStatusReason" HookStatusReason.of_json in
      let status = field_map json__ "Status" HookStatus.of_json in
      let typeArn = field_map json__ "TypeArn" HookTypeArn.of_json in
      let typeConfigurationVersionId =
        field_map json__ "TypeConfigurationVersionId"
          HookTypeConfigurationVersionId.of_json in
      let typeVersionId =
        field_map json__ "TypeVersionId" HookTypeVersionId.of_json in
      let originalTypeName =
        field_map json__ "OriginalTypeName" HookTypeName.of_json in
      let typeName = field_map json__ "TypeName" HookTypeName.of_json in
      let failureMode =
        field_map json__ "FailureMode" HookFailureMode.of_json in
      let invocationPoint =
        field_map json__ "InvocationPoint" HookInvocationPoint.of_json in
      let hookResultId =
        field_map json__ "HookResultId" HookInvocationId.of_json in
      make ?annotations ?target ?invokedAt ?hookStatusReason ?status ?typeArn
        ?typeConfigurationVersionId ?typeVersionId ?originalTypeName
        ?typeName ?failureMode ?invocationPoint ?hookResultId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information and remediation guidance for a Hook invocation result. If the Hook uses a KMS key to encrypt annotations, callers of the GetHookResult operation must have kms:Decrypt permissions. For more information, see KMS key policy and permissions for encrypting CloudFormation Hooks results at rest in the CloudFormation Hooks User Guide."]
module GetHookResultInput =
  struct
    type nonrec t =
      {
      hookResultId: HookInvocationId.t option
        [@ocaml.doc
          "The unique identifier (ID) of the Hook invocation result that you want details about. You can get the ID from the ListHookResults operation."]}
    let make ?hookResultId = fun () -> { hookResultId }
    let to_value x =
      structure_to_value
        [("HookResultId",
           (Option.map x.hookResultId ~f:HookInvocationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hookResultId =
        (Option.map ~f:HookInvocationId.of_xml)
          (Xml.child xml_arg0 "HookResultId") in
      make ?hookResultId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hookResultId =
        field_map json__ "HookResultId" HookInvocationId.of_json in
      make ?hookResultId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information and remediation guidance for a Hook invocation result. If the Hook uses a KMS key to encrypt annotations, callers of the GetHookResult operation must have kms:Decrypt permissions. For more information, see KMS key policy and permissions for encrypting CloudFormation Hooks results at rest in the CloudFormation Hooks User Guide."]
module GetGeneratedTemplateOutput =
  struct
    type getGeneratedTemplateResult =
      {
      status: GeneratedTemplateStatus.t option
        [@ocaml.doc
          "The status of the template generation. Supported values are: CreatePending - the creation of the template is pending. CreateInProgress - the creation of the template is in progress. DeletePending - the deletion of the template is pending. DeleteInProgress - the deletion of the template is in progress. UpdatePending - the update of the template is pending. UpdateInProgress - the update of the template is in progress. Failed - the template operation failed. Complete - the template operation is complete."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "The template body of the generated template, in the language specified by the Language parameter."]}
    and responseMetaData = unit
    and t =
      {
      getGeneratedTemplateResult: getGeneratedTemplateResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `GeneratedTemplateNotFoundException of
          GeneratedTemplateNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetGeneratedTemplateOutput"
    let make ?status =
      fun ?templateBody ->
        fun () ->
          {
            getGeneratedTemplateResult = { status; templateBody };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `GeneratedTemplateNotFoundException e ->
          `Assoc
            [("error", (`String "GeneratedTemplateNotFoundException"));
            ("details", (GeneratedTemplateNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getGeneratedTemplateResult in
      structure_to_wrapped_value
        [("Status",
           (Option.map x.status ~f:GeneratedTemplateStatus.to_value));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value))]
        ~wrapper:"GetGeneratedTemplateResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetGeneratedTemplateResult" in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let status =
        (Option.map ~f:GeneratedTemplateStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?templateBody ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let status = field_map json__ "Status" GeneratedTemplateStatus.of_json in
      make ?templateBody ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a generated template. If the template is in an InProgress or Pending status then the template returned will be the template when the template was last in a Complete status. If the template has not yet been in a Complete status then an empty template will be returned."]
module GetGeneratedTemplateInput =
  struct
    type nonrec t =
      {
      format: TemplateFormat.t option
        [@ocaml.doc
          "The language to use to retrieve for the generated template. Supported values are: JSON YAML"];
      generatedTemplateName: GeneratedTemplateName.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the generated template. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:generatedtemplate/$\\{Id\\}. For example, arn:aws:cloudformation:us-east-1:123456789012:generatedtemplate/2e8465c1-9a80-43ea-a3a3-4f2d692fe6dc ."]}
    let context_ = "GetGeneratedTemplateInput"
    let make ?format =
      fun ~generatedTemplateName ->
        fun () -> { format; generatedTemplateName }
    let to_value x =
      structure_to_value
        [("Format", (Option.map x.format ~f:TemplateFormat.to_value));
        ("GeneratedTemplateName",
          (Some (GeneratedTemplateName.to_value x.generatedTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generatedTemplateName =
        GeneratedTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedTemplateName") in
      let format =
        (Option.map ~f:TemplateFormat.of_xml) (Xml.child xml_arg0 "Format_") in
      make ~generatedTemplateName ?format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedTemplateName =
        field_map_exn json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      let format = field_map json__ "Format" TemplateFormat.of_json in
      make ~generatedTemplateName ?format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a generated template. If the template is in an InProgress or Pending status then the template returned will be the template when the template was last in a Complete status. If the template has not yet been in a Complete status then an empty template will be returned."]
module ExecuteStackRefactorInput =
  struct
    type nonrec t =
      {
      stackRefactorId: StackRefactorId.t
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."]}
    let context_ = "ExecuteStackRefactorInput"
    let make ~stackRefactorId = fun () -> { stackRefactorId }
    let to_value x =
      structure_to_value
        [("StackRefactorId",
           (Some (StackRefactorId.to_value x.stackRefactorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackRefactorId =
        StackRefactorId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackRefactorId") in
      make ~stackRefactorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackRefactorId =
        field_map_exn json__ "StackRefactorId" StackRefactorId.of_json in
      make ~stackRefactorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Executes the stack refactor operation."]
module ExecuteChangeSetOutput =
  struct
    type executeChangeSetResult = unit
    and responseMetaData = unit
    and t =
      {
      executeChangeSetResult: executeChangeSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ChangeSetNotFoundException of ChangeSetNotFoundException.t 
      | `InsufficientCapabilitiesException of
          InsufficientCapabilitiesException.t 
      | `InvalidChangeSetStatusException of InvalidChangeSetStatusException.t 
      | `TokenAlreadyExistsException of TokenAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { executeChangeSetResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException
            (ChangeSetNotFoundException.of_json json)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_json json)
      | "InvalidChangeSetStatusException" ->
          `InvalidChangeSetStatusException
            (InvalidChangeSetStatusException.of_json json)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException (ChangeSetNotFoundException.of_xml xml)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_xml xml)
      | "InvalidChangeSetStatusException" ->
          `InvalidChangeSetStatusException
            (InvalidChangeSetStatusException.of_xml xml)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ChangeSetNotFoundException e ->
          `Assoc
            [("error", (`String "ChangeSetNotFoundException"));
            ("details", (ChangeSetNotFoundException.to_json e))]
      | `InsufficientCapabilitiesException e ->
          `Assoc
            [("error", (`String "InsufficientCapabilitiesException"));
            ("details", (InsufficientCapabilitiesException.to_json e))]
      | `InvalidChangeSetStatusException e ->
          `Assoc
            [("error", (`String "InvalidChangeSetStatusException"));
            ("details", (InvalidChangeSetStatusException.to_json e))]
      | `TokenAlreadyExistsException e ->
          `Assoc
            [("error", (`String "TokenAlreadyExistsException"));
            ("details", (TokenAlreadyExistsException.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 "The output for the ExecuteChangeSet action."]
module ExecuteChangeSetInput =
  struct
    type nonrec t =
      {
      changeSetName: ChangeSetNameOrId.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the change set that you want use to update the specified stack."];
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "If you specified the name of a change set, specify the stack name or Amazon Resource Name (ARN) that's associated with the change set you want to execute."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this ExecuteChangeSet request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to execute a change set to update a stack with the same name. You might retry ExecuteChangeSet requests to ensure that CloudFormation successfully received them."];
      disableRollback: DisableRollback.t option
        [@ocaml.doc
          "Preserves the state of previously provisioned resources when an operation fails. This parameter can't be specified when the OnStackFailure parameter to the CreateChangeSet API operation was specified. True - if the stack creation fails, do nothing. This is equivalent to specifying DO_NOTHING for the OnStackFailure parameter to the CreateChangeSet API operation. False - if the stack creation fails, roll back the stack. This is equivalent to specifying ROLLBACK for the OnStackFailure parameter to the CreateChangeSet API operation. Default: True"];
      retainExceptOnCreate: RetainExceptOnCreate.t option
        [@ocaml.doc
          "When set to true, newly created resources are deleted when the operation rolls back. This includes newly created resources marked with a deletion policy of Retain. Default: false"]}
    let context_ = "ExecuteChangeSetInput"
    let make ?stackName =
      fun ?clientRequestToken ->
        fun ?disableRollback ->
          fun ?retainExceptOnCreate ->
            fun ~changeSetName ->
              fun () ->
                {
                  stackName;
                  clientRequestToken;
                  disableRollback;
                  retainExceptOnCreate;
                  changeSetName
                }
    let to_value x =
      structure_to_value
        [("ChangeSetName",
           (Some (ChangeSetNameOrId.to_value x.changeSetName)));
        ("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("DisableRollback",
          (Option.map x.disableRollback ~f:DisableRollback.to_value));
        ("RetainExceptOnCreate",
          (Option.map x.retainExceptOnCreate ~f:RetainExceptOnCreate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retainExceptOnCreate =
        (Option.map ~f:RetainExceptOnCreate.of_xml)
          (Xml.child xml_arg0 "RetainExceptOnCreate") in
      let disableRollback =
        (Option.map ~f:DisableRollback.of_xml)
          (Xml.child xml_arg0 "DisableRollback") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      let changeSetName =
        ChangeSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChangeSetName") in
      make ?retainExceptOnCreate ?disableRollback ?clientRequestToken
        ?stackName ~changeSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retainExceptOnCreate =
        field_map json__ "RetainExceptOnCreate" RetainExceptOnCreate.of_json in
      let disableRollback =
        field_map json__ "DisableRollback" DisableRollback.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      let changeSetName =
        field_map_exn json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      make ?retainExceptOnCreate ?disableRollback ?clientRequestToken
        ?stackName ~changeSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the ExecuteChangeSet action."]
module EstimateTemplateCostOutput =
  struct
    type estimateTemplateCostResult =
      {
      url: Url.t option
        [@ocaml.doc
          "An Amazon Web Services Simple Monthly Calculator URL with a query string that describes the resources required to run the template."]}
    and responseMetaData = unit
    and t =
      {
      estimateTemplateCostResult: estimateTemplateCostResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "EstimateTemplateCostOutput"
    let make ?url =
      fun () ->
        { estimateTemplateCostResult = { url }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.estimateTemplateCostResult in
      structure_to_wrapped_value
        [("Url", (Option.map x.url ~f:Url.to_value))]
        ~wrapper:"EstimateTemplateCostResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "EstimateTemplateCostResult" in
      let url = (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "Url") in
      make ?url ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let url = field_map json__ "Url" Url.of_json in make ?url ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a EstimateTemplateCost action."]
module EstimateTemplateCostInput =
  struct
    type nonrec t =
      {
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must pass TemplateBody or TemplateURL. If both are passed, only TemplateBody is used."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template that's located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. Conditional: You must pass TemplateURL or TemplateBody. If both are passed, only TemplateBody is used."];
      parameters: Parameters.t option
        [@ocaml.doc
          "A list of Parameter structures that specify input parameters."]}
    let make ?templateBody =
      fun ?templateURL ->
        fun ?parameters ->
          fun () -> { templateBody; templateURL; parameters }
    let to_value x =
      structure_to_value
        [("TemplateBody",
           (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      make ?parameters ?templateURL ?templateBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      make ?parameters ?templateURL ?templateBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for an EstimateTemplateCost action."]
module DetectStackSetDriftOutput =
  struct
    type detectStackSetDriftResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "The ID of the drift detection StackSet operation. You can use this operation ID with DescribeStackSetOperation to monitor the progress of the drift detection operation."]}
    and responseMetaData = unit
    and t =
      {
      detectStackSetDriftResult: detectStackSetDriftResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DetectStackSetDriftOutput"
    let make ?operationId =
      fun () ->
        { detectStackSetDriftResult = { operationId }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.detectStackSetDriftResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"DetectStackSetDriftResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DetectStackSetDriftResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detect drift on a StackSet. When CloudFormation performs drift detection on a StackSet, it performs drift detection on the stack associated with each stack instance in the StackSet. For more information, see Performing drift detection on CloudFormation StackSets. DetectStackSetDrift returns the OperationId of the StackSet drift detection operation. Use this operation id with DescribeStackSetOperation to monitor the progress of the drift detection operation. The drift detection operation may take some time, depending on the number of stack instances included in the StackSet, in addition to the number of resources included in each stack. Once the operation has completed, use the following actions to return drift information: Use DescribeStackSet to return detailed information about the stack set, including detailed information about the last completed drift operation performed on the StackSet. (Information about drift operations that are in progress isn't included.) Use ListStackInstances to return a list of stack instances belonging to the StackSet, including the drift status and last drift time checked of each instance. Use DescribeStackInstance to return detailed information about a specific stack instance, including its drift status and last drift time checked. You can only run a single drift detection operation on a given StackSet at one time. To stop a drift detection StackSet operation, use StopStackSetOperation."]
module DetectStackSetDriftInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetNameOrId.t
        [@ocaml.doc
          "The name of the StackSet on which to perform the drift detection operation."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "The user-specified preferences for how CloudFormation performs a StackSet operation. For more information about maximum concurrent accounts and failure tolerance, see StackSet operation options."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The ID of the StackSet operation."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DetectStackSetDriftInput"
    let make ?operationPreferences =
      fun ?operationId ->
        fun ?callAs ->
          fun ~stackSetName ->
            fun () ->
              { operationPreferences; operationId; callAs; stackSetName }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetNameOrId.to_value x.stackSetName)));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let stackSetName =
        StackSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?operationId ?operationPreferences ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetNameOrId.of_json in
      make ?callAs ?operationId ?operationPreferences ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detect drift on a StackSet. When CloudFormation performs drift detection on a StackSet, it performs drift detection on the stack associated with each stack instance in the StackSet. For more information, see Performing drift detection on CloudFormation StackSets. DetectStackSetDrift returns the OperationId of the StackSet drift detection operation. Use this operation id with DescribeStackSetOperation to monitor the progress of the drift detection operation. The drift detection operation may take some time, depending on the number of stack instances included in the StackSet, in addition to the number of resources included in each stack. Once the operation has completed, use the following actions to return drift information: Use DescribeStackSet to return detailed information about the stack set, including detailed information about the last completed drift operation performed on the StackSet. (Information about drift operations that are in progress isn't included.) Use ListStackInstances to return a list of stack instances belonging to the StackSet, including the drift status and last drift time checked of each instance. Use DescribeStackInstance to return detailed information about a specific stack instance, including its drift status and last drift time checked. You can only run a single drift detection operation on a given StackSet at one time. To stop a drift detection StackSet operation, use StopStackSetOperation."]
module DetectStackResourceDriftOutput =
  struct
    type detectStackResourceDriftResult =
      {
      stackResourceDrift: StackResourceDrift.t option
        [@ocaml.doc
          "Information about whether the resource's actual configuration has drifted from its expected template configuration, including actual and expected property values and any differences detected."]}
    and responseMetaData = unit
    and t =
      {
      detectStackResourceDriftResult: detectStackResourceDriftResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DetectStackResourceDriftOutput"
    let make ?stackResourceDrift =
      fun () ->
        {
          detectStackResourceDriftResult = { stackResourceDrift };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.detectStackResourceDriftResult in
      structure_to_wrapped_value
        [("StackResourceDrift",
           (Option.map x.stackResourceDrift ~f:StackResourceDrift.to_value))]
        ~wrapper:"DetectStackResourceDriftResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DetectStackResourceDriftResult" in
      let stackResourceDrift =
        (Option.map ~f:StackResourceDrift.of_xml)
          (Xml.child xml_arg0 "StackResourceDrift") in
      make ?stackResourceDrift ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackResourceDrift =
        field_map json__ "StackResourceDrift" StackResourceDrift.of_json in
      make ?stackResourceDrift ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about whether a resource's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. This information includes actual and expected property values for resources in which CloudFormation detects drift. Only resource properties explicitly defined in the stack template are checked for drift. For more information about stack and resource drift, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackResourceDrift to detect drift on individual resources, or DetectStackDrift to detect drift on all resources in a given stack that support drift detection. Resources that don't currently support drift detection can't be checked. For a list of resources that support drift detection, see Resource type support for imports and drift detection."]
module DetectStackResourceDriftInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc "The name of the stack to which the resource belongs."];
      logicalResourceId: LogicalResourceId.t
        [@ocaml.doc
          "The logical name of the resource for which to return drift information."]}
    let context_ = "DetectStackResourceDriftInput"
    let make ~stackName =
      fun ~logicalResourceId -> fun () -> { stackName; logicalResourceId }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("LogicalResourceId",
          (Some (LogicalResourceId.to_value x.logicalResourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalResourceId =
        LogicalResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogicalResourceId") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ~logicalResourceId ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalResourceId =
        field_map_exn json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ~logicalResourceId ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about whether a resource's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. This information includes actual and expected property values for resources in which CloudFormation detects drift. Only resource properties explicitly defined in the stack template are checked for drift. For more information about stack and resource drift, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackResourceDrift to detect drift on individual resources, or DetectStackDrift to detect drift on all resources in a given stack that support drift detection. Resources that don't currently support drift detection can't be checked. For a list of resources that support drift detection, see Resource type support for imports and drift detection."]
module DetectStackDriftOutput =
  struct
    type detectStackDriftResult =
      {
      stackDriftDetectionId: StackDriftDetectionId.t option
        [@ocaml.doc
          "The ID of the drift detection results of this operation. CloudFormation generates new results, with a new drift detection ID, each time this operation is run. However, the number of drift results CloudFormation retains for any given stack, and for how long, may vary."]}
    and responseMetaData = unit
    and t =
      {
      detectStackDriftResult: detectStackDriftResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DetectStackDriftOutput"
    let make ?stackDriftDetectionId =
      fun () ->
        {
          detectStackDriftResult = { stackDriftDetectionId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.detectStackDriftResult in
      structure_to_wrapped_value
        [("StackDriftDetectionId",
           (Option.map x.stackDriftDetectionId
              ~f:StackDriftDetectionId.to_value))]
        ~wrapper:"DetectStackDriftResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DetectStackDriftResult" in
      let stackDriftDetectionId =
        (Option.map ~f:StackDriftDetectionId.of_xml)
          (Xml.child xml_arg0 "StackDriftDetectionId") in
      make ?stackDriftDetectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackDriftDetectionId =
        field_map json__ "StackDriftDetectionId"
          StackDriftDetectionId.of_json in
      make ?stackDriftDetectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detects whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For each resource in the stack that supports drift detection, CloudFormation compares the actual configuration of the resource with its expected template configuration. Only resource properties explicitly defined in the stack template are checked for drift. A stack is considered to have drifted if one or more of its resources differ from their expected template configurations. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackDrift to detect drift on all supported resources for a given stack, or DetectStackResourceDrift to detect drift on individual resources. For a list of stack resources that currently support drift detection, see Resource type support for imports and drift detection. DetectStackDrift can take up to several minutes, depending on the number of resources contained within the stack. Use DescribeStackDriftDetectionStatus to monitor the progress of a detect stack drift operation. Once the drift detection operation has completed, use DescribeStackResourceDrifts to return drift information about the stack and its resources. When detecting drift on a stack, CloudFormation doesn't detect drift on any nested stacks belonging to that stack. Perform DetectStackDrift directly on the nested stack itself."]
module DetectStackDriftInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name of the stack for which you want to detect drift."];
      logicalResourceIds: LogicalResourceIds.t option
        [@ocaml.doc
          "The logical names of any resources you want to use as filters."]}
    let context_ = "DetectStackDriftInput"
    let make ?logicalResourceIds =
      fun ~stackName -> fun () -> { logicalResourceIds; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("LogicalResourceIds",
          (Option.map x.logicalResourceIds ~f:LogicalResourceIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalResourceIds =
        (Option.map ~f:LogicalResourceIds.of_xml)
          (Xml.child xml_arg0 "LogicalResourceIds") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?logicalResourceIds ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalResourceIds =
        field_map json__ "LogicalResourceIds" LogicalResourceIds.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?logicalResourceIds ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detects whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. For each resource in the stack that supports drift detection, CloudFormation compares the actual configuration of the resource with its expected template configuration. Only resource properties explicitly defined in the stack template are checked for drift. A stack is considered to have drifted if one or more of its resources differ from their expected template configurations. For more information, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackDrift to detect drift on all supported resources for a given stack, or DetectStackResourceDrift to detect drift on individual resources. For a list of stack resources that currently support drift detection, see Resource type support for imports and drift detection. DetectStackDrift can take up to several minutes, depending on the number of resources contained within the stack. Use DescribeStackDriftDetectionStatus to monitor the progress of a detect stack drift operation. Once the drift detection operation has completed, use DescribeStackResourceDrifts to return drift information about the stack and its resources. When detecting drift on a stack, CloudFormation doesn't detect drift on any nested stacks belonging to that stack. Perform DetectStackDrift directly on the nested stack itself."]
module DescribeTypeRegistrationOutput =
  struct
    type describeTypeRegistrationResult =
      {
      progressStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The current status of the extension registration request."];
      description: Description.t option
        [@ocaml.doc "The description of the extension registration request."];
      typeArn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension being registered. For registration requests with a ProgressStatus of other than COMPLETE, this will be null."];
      typeVersionArn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of this specific version of the extension being registered. For registration requests with a ProgressStatus of other than COMPLETE, this will be null."]}
    and responseMetaData = unit
    and t =
      {
      describeTypeRegistrationResult: describeTypeRegistrationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeTypeRegistrationOutput"
    let make ?progressStatus =
      fun ?description ->
        fun ?typeArn ->
          fun ?typeVersionArn ->
            fun () ->
              {
                describeTypeRegistrationResult =
                  { progressStatus; description; typeArn; typeVersionArn };
                responseMetaData = ()
              }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeTypeRegistrationResult in
      structure_to_wrapped_value
        [("ProgressStatus",
           (Option.map x.progressStatus ~f:RegistrationStatus.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("TypeArn", (Option.map x.typeArn ~f:TypeArn.to_value));
        ("TypeVersionArn", (Option.map x.typeVersionArn ~f:TypeArn.to_value))]
        ~wrapper:"DescribeTypeRegistrationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeTypeRegistrationResult" in
      let typeVersionArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeVersionArn") in
      let typeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "TypeArn") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let progressStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "ProgressStatus") in
      make ?typeVersionArn ?typeArn ?description ?progressStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersionArn = field_map json__ "TypeVersionArn" TypeArn.of_json in
      let typeArn = field_map json__ "TypeArn" TypeArn.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let progressStatus =
        field_map json__ "ProgressStatus" RegistrationStatus.of_json in
      make ?typeVersionArn ?typeArn ?description ?progressStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an extension's registration, including its current status and type and version identifiers. When you initiate a registration request using RegisterType, you can then use DescribeTypeRegistration to monitor the progress of that registration request. Once the registration request has completed, use DescribeType to return detailed information about an extension."]
module DescribeTypeRegistrationInput =
  struct
    type nonrec t =
      {
      registrationToken: RegistrationToken.t
        [@ocaml.doc
          "The identifier for this registration request. This registration token is generated by CloudFormation when you initiate a registration request using RegisterType."]}
    let context_ = "DescribeTypeRegistrationInput"
    let make ~registrationToken = fun () -> { registrationToken }
    let to_value x =
      structure_to_value
        [("RegistrationToken",
           (Some (RegistrationToken.to_value x.registrationToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationToken =
        RegistrationToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationToken") in
      make ~registrationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationToken =
        field_map_exn json__ "RegistrationToken" RegistrationToken.of_json in
      make ~registrationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an extension's registration, including its current status and type and version identifiers. When you initiate a registration request using RegisterType, you can then use DescribeTypeRegistration to monitor the progress of that registration request. Once the registration request has completed, use DescribeType to return detailed information about an extension."]
module DescribeTypeOutput =
  struct
    type describeTypeResult =
      {
      arn: TypeArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the extension."];
      type_: RegistryType.t option [@ocaml.doc "The kind of extension."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. If the extension is a public third-party type you have activated with a type name alias, CloudFormation returns the type name alias. For more information, see ActivateType."];
      defaultVersionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of the default version of the extension. The default version is used when the extension version isn't specified. This applies only to private extensions you have registered in your account. For public extensions, both those provided by Amazon Web Services and published by third parties, CloudFormation returns null. For more information, see RegisterType. To set the default version of an extension, use SetTypeDefaultVersion."];
      isDefaultVersion: IsDefaultVersion.t option
        [@ocaml.doc
          "Whether the specified extension version is set as the default version. This applies only to private extensions you have registered in your account, and extensions published by Amazon Web Services. For public third-party extensions, whether they are activated in your account, CloudFormation returns null."];
      typeTestsStatus: TypeTestsStatus.t option
        [@ocaml.doc
          "The contract test status of the registered extension version. To return the extension test status of a specific extension version, you must specify VersionId. This applies only to registered private extension versions. CloudFormation doesn't return this information for public extensions, whether they are activated in your account. PASSED: The extension has passed all its contract tests. An extension must have a test status of PASSED before it can be published. For more information, see Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide. FAILED: The extension has failed one or more contract tests. IN_PROGRESS: Contract tests are currently being performed on the extension. NOT_TESTED: Contract tests haven't been performed on the extension."];
      typeTestsStatusDescription: TypeTestsStatusDescription.t option
        [@ocaml.doc
          "The description of the test status. To return the extension test status of a specific extension version, you must specify VersionId. This applies only to registered private extension versions. CloudFormation doesn't return this information for public extensions, whether they are activated in your account."];
      description: Description.t option
        [@ocaml.doc "The description of the extension."];
      schema: TypeSchema.t option
        [@ocaml.doc
          "The schema that defines the extension. For more information, see Resource type schema in the CloudFormation Command Line Interface (CLI) User Guide and the CloudFormation Hooks User Guide."];
      provisioningType: ProvisioningType.t option
        [@ocaml.doc
          "For resource type extensions, the provisioning behavior of the resource type. CloudFormation determines the provisioning type during registration, based on the types of handlers in the schema handler package submitted. Valid values include: FULLY_MUTABLE: The resource type includes an update handler to process updates to the type during stack update operations. IMMUTABLE: The resource type doesn't include an update handler, so the type can't be updated and must instead be replaced during stack update operations. NON_PROVISIONABLE: The resource type doesn't include all the following handlers, and therefore can't actually be provisioned. create read delete"];
      deprecatedStatus: DeprecatedStatus.t option
        [@ocaml.doc
          "The deprecation status of the extension version. Valid values include: LIVE: The extension is activated or registered and can be used in CloudFormation operations, dependent on its provisioning behavior and visibility scope. DEPRECATED: The extension has been deactivated or deregistered and can no longer be used in CloudFormation operations. For public third-party extensions, CloudFormation returns null."];
      loggingConfig: LoggingConfig.t option
        [@ocaml.doc
          "Contains logging configuration information for private extensions. This applies only to private extensions you have registered in your account. For public extensions, both those provided by Amazon Web Services and published by third parties, CloudFormation returns null. For more information, see RegisterType."];
      requiredActivatedTypes: RequiredActivatedTypes.t option
        [@ocaml.doc
          "For extensions that are modules, the public third-party extensions that must be activated in your account in order for the module itself to be activated."];
      executionRoleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM execution role used to register the extension. This applies only to private extensions you have registered in your account. For more information, see RegisterType. If the registered extension calls any Amazon Web Services APIs, you must create an IAM execution role that includes the necessary permissions to call those Amazon Web Services APIs, and provision that execution role in your account. CloudFormation then assumes that execution role to provide your extension with the appropriate credentials."];
      visibility: Visibility.t option
        [@ocaml.doc
          "The scope at which the extension is visible and usable in CloudFormation operations. Valid values include: PRIVATE: The extension is only visible and usable within the account in which it is registered. CloudFormation marks any extensions you register as PRIVATE. PUBLIC: The extension is publicly visible and usable within any Amazon Web Services account."];
      sourceUrl: OptionalSecureUrl.t option
        [@ocaml.doc "The URL of the source code for the extension."];
      documentationUrl: OptionalSecureUrl.t option
        [@ocaml.doc
          "The URL of a page providing detailed documentation for this extension."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "When the specified extension version was registered. This applies only to: Private extensions you have registered in your account. For more information, see RegisterType. Public extensions you have activated in your account with auto-update specified. For more information, see ActivateType."];
      timeCreated: Timestamp.t option
        [@ocaml.doc
          "When the specified private extension version was registered or activated in your account."];
      configurationSchema: ConfigurationSchema.t option
        [@ocaml.doc
          "A JSON string that represent the current configuration data for the extension in this account and Region. To set the configuration data for an extension, use SetTypeConfiguration."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The publisher ID of the extension publisher. This applies only to public third-party extensions. For private registered extensions, and extensions provided by Amazon Web Services, CloudFormation returns null."];
      originalTypeName: TypeName.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the type name of the public extension. If you specified a TypeNameAlias when enabling the extension in this account and Region, CloudFormation treats that alias as the extension's type name within the account and Region, not the type name of the public extension. For more information, see Use aliases to refer to extensions in the CloudFormation User Guide."];
      originalTypeArn: TypeArn.t option
        [@ocaml.doc
          "For public extensions that have been activated for this account and Region, the Amazon Resource Name (ARN) of the public extension."];
      publicVersionNumber: PublicVersionNumber.t option
        [@ocaml.doc
          "The version number of a public third-party extension. This applies only if you specify a public extension you have activated in your account, or specify a public extension without specifying a version. For all other extensions, CloudFormation returns null."];
      latestPublicVersion: PublicVersionNumber.t option
        [@ocaml.doc
          "The latest version of a public extension that is available for use. This only applies if you specify a public extension, and you don't specify a version. For all other requests, CloudFormation returns null."];
      isActivated: IsActivated.t option
        [@ocaml.doc
          "Whether the extension is activated in the account and Region. This only applies to public third-party extensions. For all other extensions, CloudFormation returns null."];
      autoUpdate: AutoUpdate.t option
        [@ocaml.doc
          "Whether CloudFormation automatically updates the extension in this account and Region when a new minor version is published by the extension publisher. Major versions released by the publisher must be manually updated. For more information, see Automatically use new versions of extensions in the CloudFormation User Guide."]}
    and responseMetaData = unit
    and t =
      {
      describeTypeResult: describeTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeTypeOutput"
    let make ?arn =
      fun ?type_ ->
        fun ?typeName ->
          fun ?defaultVersionId ->
            fun ?isDefaultVersion ->
              fun ?typeTestsStatus ->
                fun ?typeTestsStatusDescription ->
                  fun ?description ->
                    fun ?schema ->
                      fun ?provisioningType ->
                        fun ?deprecatedStatus ->
                          fun ?loggingConfig ->
                            fun ?requiredActivatedTypes ->
                              fun ?executionRoleArn ->
                                fun ?visibility ->
                                  fun ?sourceUrl ->
                                    fun ?documentationUrl ->
                                      fun ?lastUpdated ->
                                        fun ?timeCreated ->
                                          fun ?configurationSchema ->
                                            fun ?publisherId ->
                                              fun ?originalTypeName ->
                                                fun ?originalTypeArn ->
                                                  fun ?publicVersionNumber ->
                                                    fun ?latestPublicVersion
                                                      ->
                                                      fun ?isActivated ->
                                                        fun ?autoUpdate ->
                                                          fun () ->
                                                            {
                                                              describeTypeResult
                                                                =
                                                                {
                                                                  arn;
                                                                  type_;
                                                                  typeName;
                                                                  defaultVersionId;
                                                                  isDefaultVersion;
                                                                  typeTestsStatus;
                                                                  typeTestsStatusDescription;
                                                                  description;
                                                                  schema;
                                                                  provisioningType;
                                                                  deprecatedStatus;
                                                                  loggingConfig;
                                                                  requiredActivatedTypes;
                                                                  executionRoleArn;
                                                                  visibility;
                                                                  sourceUrl;
                                                                  documentationUrl;
                                                                  lastUpdated;
                                                                  timeCreated;
                                                                  configurationSchema;
                                                                  publisherId;
                                                                  originalTypeName;
                                                                  originalTypeArn;
                                                                  publicVersionNumber;
                                                                  latestPublicVersion;
                                                                  isActivated;
                                                                  autoUpdate
                                                                };
                                                              responseMetaData
                                                                = ()
                                                            }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeTypeResult in
      structure_to_wrapped_value
        [("Arn", (Option.map x.arn ~f:TypeArn.to_value));
        ("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("DefaultVersionId",
          (Option.map x.defaultVersionId ~f:TypeVersionId.to_value));
        ("IsDefaultVersion",
          (Option.map x.isDefaultVersion ~f:IsDefaultVersion.to_value));
        ("TypeTestsStatus",
          (Option.map x.typeTestsStatus ~f:TypeTestsStatus.to_value));
        ("TypeTestsStatusDescription",
          (Option.map x.typeTestsStatusDescription
             ~f:TypeTestsStatusDescription.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Schema", (Option.map x.schema ~f:TypeSchema.to_value));
        ("ProvisioningType",
          (Option.map x.provisioningType ~f:ProvisioningType.to_value));
        ("DeprecatedStatus",
          (Option.map x.deprecatedStatus ~f:DeprecatedStatus.to_value));
        ("LoggingConfig",
          (Option.map x.loggingConfig ~f:LoggingConfig.to_value));
        ("RequiredActivatedTypes",
          (Option.map x.requiredActivatedTypes
             ~f:RequiredActivatedTypes.to_value));
        ("ExecutionRoleArn",
          (Option.map x.executionRoleArn ~f:RoleArn.to_value));
        ("Visibility", (Option.map x.visibility ~f:Visibility.to_value));
        ("SourceUrl", (Option.map x.sourceUrl ~f:OptionalSecureUrl.to_value));
        ("DocumentationUrl",
          (Option.map x.documentationUrl ~f:OptionalSecureUrl.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("TimeCreated", (Option.map x.timeCreated ~f:Timestamp.to_value));
        ("ConfigurationSchema",
          (Option.map x.configurationSchema ~f:ConfigurationSchema.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("OriginalTypeName",
          (Option.map x.originalTypeName ~f:TypeName.to_value));
        ("OriginalTypeArn",
          (Option.map x.originalTypeArn ~f:TypeArn.to_value));
        ("PublicVersionNumber",
          (Option.map x.publicVersionNumber ~f:PublicVersionNumber.to_value));
        ("LatestPublicVersion",
          (Option.map x.latestPublicVersion ~f:PublicVersionNumber.to_value));
        ("IsActivated", (Option.map x.isActivated ~f:IsActivated.to_value));
        ("AutoUpdate", (Option.map x.autoUpdate ~f:AutoUpdate.to_value))]
        ~wrapper:"DescribeTypeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "DescribeTypeResult" in
      let autoUpdate =
        (Option.map ~f:AutoUpdate.of_xml) (Xml.child xml_arg0 "AutoUpdate") in
      let isActivated =
        (Option.map ~f:IsActivated.of_xml) (Xml.child xml_arg0 "IsActivated") in
      let latestPublicVersion =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "LatestPublicVersion") in
      let publicVersionNumber =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "PublicVersionNumber") in
      let originalTypeArn =
        (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "OriginalTypeArn") in
      let originalTypeName =
        (Option.map ~f:TypeName.of_xml)
          (Xml.child xml_arg0 "OriginalTypeName") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let configurationSchema =
        (Option.map ~f:ConfigurationSchema.of_xml)
          (Xml.child xml_arg0 "ConfigurationSchema") in
      let timeCreated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "TimeCreated") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let documentationUrl =
        (Option.map ~f:OptionalSecureUrl.of_xml)
          (Xml.child xml_arg0 "DocumentationUrl") in
      let sourceUrl =
        (Option.map ~f:OptionalSecureUrl.of_xml)
          (Xml.child xml_arg0 "SourceUrl") in
      let visibility =
        (Option.map ~f:Visibility.of_xml) (Xml.child xml_arg0 "Visibility") in
      let executionRoleArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleArn") in
      let requiredActivatedTypes =
        (Option.map ~f:RequiredActivatedTypes.of_xml)
          (Xml.child xml_arg0 "RequiredActivatedTypes") in
      let loggingConfig =
        (Option.map ~f:LoggingConfig.of_xml)
          (Xml.child xml_arg0 "LoggingConfig") in
      let deprecatedStatus =
        (Option.map ~f:DeprecatedStatus.of_xml)
          (Xml.child xml_arg0 "DeprecatedStatus") in
      let provisioningType =
        (Option.map ~f:ProvisioningType.of_xml)
          (Xml.child xml_arg0 "ProvisioningType") in
      let schema =
        (Option.map ~f:TypeSchema.of_xml) (Xml.child xml_arg0 "Schema") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let typeTestsStatusDescription =
        (Option.map ~f:TypeTestsStatusDescription.of_xml)
          (Xml.child xml_arg0 "TypeTestsStatusDescription") in
      let typeTestsStatus =
        (Option.map ~f:TypeTestsStatus.of_xml)
          (Xml.child xml_arg0 "TypeTestsStatus") in
      let isDefaultVersion =
        (Option.map ~f:IsDefaultVersion.of_xml)
          (Xml.child xml_arg0 "IsDefaultVersion") in
      let defaultVersionId =
        (Option.map ~f:TypeVersionId.of_xml)
          (Xml.child xml_arg0 "DefaultVersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?autoUpdate ?isActivated ?latestPublicVersion ?publicVersionNumber
        ?originalTypeArn ?originalTypeName ?publisherId ?configurationSchema
        ?timeCreated ?lastUpdated ?documentationUrl ?sourceUrl ?visibility
        ?executionRoleArn ?requiredActivatedTypes ?loggingConfig
        ?deprecatedStatus ?provisioningType ?schema ?description
        ?typeTestsStatusDescription ?typeTestsStatus ?isDefaultVersion
        ?defaultVersionId ?typeName ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoUpdate = field_map json__ "AutoUpdate" AutoUpdate.of_json in
      let isActivated = field_map json__ "IsActivated" IsActivated.of_json in
      let latestPublicVersion =
        field_map json__ "LatestPublicVersion" PublicVersionNumber.of_json in
      let publicVersionNumber =
        field_map json__ "PublicVersionNumber" PublicVersionNumber.of_json in
      let originalTypeArn =
        field_map json__ "OriginalTypeArn" TypeArn.of_json in
      let originalTypeName =
        field_map json__ "OriginalTypeName" TypeName.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let configurationSchema =
        field_map json__ "ConfigurationSchema" ConfigurationSchema.of_json in
      let timeCreated = field_map json__ "TimeCreated" Timestamp.of_json in
      let lastUpdated = field_map json__ "LastUpdated" Timestamp.of_json in
      let documentationUrl =
        field_map json__ "DocumentationUrl" OptionalSecureUrl.of_json in
      let sourceUrl = field_map json__ "SourceUrl" OptionalSecureUrl.of_json in
      let visibility = field_map json__ "Visibility" Visibility.of_json in
      let executionRoleArn =
        field_map json__ "ExecutionRoleArn" RoleArn.of_json in
      let requiredActivatedTypes =
        field_map json__ "RequiredActivatedTypes"
          RequiredActivatedTypes.of_json in
      let loggingConfig =
        field_map json__ "LoggingConfig" LoggingConfig.of_json in
      let deprecatedStatus =
        field_map json__ "DeprecatedStatus" DeprecatedStatus.of_json in
      let provisioningType =
        field_map json__ "ProvisioningType" ProvisioningType.of_json in
      let schema = field_map json__ "Schema" TypeSchema.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let typeTestsStatusDescription =
        field_map json__ "TypeTestsStatusDescription"
          TypeTestsStatusDescription.of_json in
      let typeTestsStatus =
        field_map json__ "TypeTestsStatus" TypeTestsStatus.of_json in
      let isDefaultVersion =
        field_map json__ "IsDefaultVersion" IsDefaultVersion.of_json in
      let defaultVersionId =
        field_map json__ "DefaultVersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      let arn = field_map json__ "Arn" TypeArn.of_json in
      make ?autoUpdate ?isActivated ?latestPublicVersion ?publicVersionNumber
        ?originalTypeArn ?originalTypeName ?publisherId ?configurationSchema
        ?timeCreated ?lastUpdated ?documentationUrl ?sourceUrl ?visibility
        ?executionRoleArn ?requiredActivatedTypes ?loggingConfig
        ?deprecatedStatus ?provisioningType ?schema ?description
        ?typeTestsStatusDescription ?typeTestsStatus ?isDefaultVersion
        ?defaultVersionId ?typeName ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about an extension from the CloudFormation registry in your current account and Region. If you specify a VersionId, DescribeType returns information about that specific extension version. Otherwise, it returns information about the default extension version. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module DescribeTypeInput =
  struct
    type nonrec t =
      {
      type_: RegistryType.t option
        [@ocaml.doc
          "The kind of extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      arn: TypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      versionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of a specific version of the extension. The version ID is the value at the end of the Amazon Resource Name (ARN) assigned to the extension version when it is registered. If you specify a VersionId, DescribeType returns information about that specific extension version. Otherwise, it returns information about the default extension version."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The publisher ID of the extension publisher. Extensions provided by Amazon Web Services are not assigned a publisher ID."];
      publicVersionNumber: PublicVersionNumber.t option
        [@ocaml.doc "The version number of a public third-party extension."]}
    let make ?type_ =
      fun ?typeName ->
        fun ?arn ->
          fun ?versionId ->
            fun ?publisherId ->
              fun ?publicVersionNumber ->
                fun () ->
                  {
                    type_;
                    typeName;
                    arn;
                    versionId;
                    publisherId;
                    publicVersionNumber
                  }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("Arn", (Option.map x.arn ~f:TypeArn.to_value));
        ("VersionId", (Option.map x.versionId ~f:TypeVersionId.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("PublicVersionNumber",
          (Option.map x.publicVersionNumber ~f:PublicVersionNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicVersionNumber =
        (Option.map ~f:PublicVersionNumber.of_xml)
          (Xml.child xml_arg0 "PublicVersionNumber") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let versionId =
        (Option.map ~f:TypeVersionId.of_xml) (Xml.child xml_arg0 "VersionId") in
      let arn = (Option.map ~f:TypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?publicVersionNumber ?publisherId ?versionId ?arn ?typeName ?type_
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicVersionNumber =
        field_map json__ "PublicVersionNumber" PublicVersionNumber.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let versionId = field_map json__ "VersionId" TypeVersionId.of_json in
      let arn = field_map json__ "Arn" TypeArn.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      make ?publicVersionNumber ?publisherId ?versionId ?arn ?typeName ?type_
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about an extension from the CloudFormation registry in your current account and Region. If you specify a VersionId, DescribeType returns information about that specific extension version. Otherwise, it returns information about the default extension version. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module DescribeStacksOutput =
  struct
    type describeStacksResult =
      {
      stacks: Stacks.t option [@ocaml.doc "A list of stack structures."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      describeStacksResult: describeStacksResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStacksOutput"
    let make ?stacks =
      fun ?nextToken ->
        fun () ->
          {
            describeStacksResult = { stacks; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStacksResult in
      structure_to_wrapped_value
        [("Stacks", (Option.map x.stacks ~f:Stacks.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"DescribeStacksResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "DescribeStacksResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stacks =
        (Option.map ~f:Stacks.of_xml) (Xml.child xml_arg0 "Stacks") in
      make ?nextToken ?stacks ()
    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 stacks = field_map json__ "Stacks" Stacks.of_json in
      make ?nextToken ?stacks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a DescribeStacks action."]
module DescribeStacksInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc
          "If you don't pass a parameter to StackName, the API returns a response that describes all resources in the account, which can impact performance. This requires ListStacks and DescribeStacks permissions. Consider using the ListStacks API if you're not passing a parameter to StackName. The IAM policy below can be added to IAM policies when you want to limit resource-level permissions and avoid returning a response when no parameter is sent in the request: \\{ \"Version\": \"2012-10-17\", \"Statement\": \\[\\{ \"Effect\": \"Deny\", \"Action\": \"cloudformation:DescribeStacks\", \"NotResource\": \"arn:aws:cloudformation:*:*:stack/*/*\" \\}\\] \\} The name or the unique stack ID that's associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?stackName =
      fun ?nextToken -> fun () -> { stackName; nextToken }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.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 stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?nextToken ?stackName ()
    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 stackName = field_map json__ "StackName" StackName.of_json in
      make ?nextToken ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for DescribeStacks action."]
module DescribeStackSetOutput =
  struct
    type describeStackSetResult =
      {
      stackSet: StackSet.t option [@ocaml.doc "The specified StackSet."]}
    and responseMetaData = unit
    and t =
      {
      describeStackSetResult: describeStackSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackSetOutput"
    let make ?stackSet =
      fun () ->
        { describeStackSetResult = { stackSet }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackSetResult in
      structure_to_wrapped_value
        [("StackSet", (Option.map x.stackSet ~f:StackSet.to_value))]
        ~wrapper:"DescribeStackSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackSetResult" in
      let stackSet =
        (Option.map ~f:StackSet.of_xml) (Xml.child xml_arg0 "StackSet") in
      make ?stackSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackSet = field_map json__ "StackSet" StackSet.of_json in
      make ?stackSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of the specified StackSet. This API provides strongly consistent reads meaning it will always return the most up-to-date data."]
module DescribeStackSetOperationOutput =
  struct
    type describeStackSetOperationResult =
      {
      stackSetOperation: StackSetOperation.t option
        [@ocaml.doc "The specified StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      describeStackSetOperationResult: describeStackSetOperationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `OperationNotFoundException of OperationNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackSetOperationOutput"
    let make ?stackSetOperation =
      fun () ->
        {
          describeStackSetOperationResult = { stackSetOperation };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackSetOperationResult in
      structure_to_wrapped_value
        [("StackSetOperation",
           (Option.map x.stackSetOperation ~f:StackSetOperation.to_value))]
        ~wrapper:"DescribeStackSetOperationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackSetOperationResult" in
      let stackSetOperation =
        (Option.map ~f:StackSetOperation.of_xml)
          (Xml.child xml_arg0 "StackSetOperation") in
      make ?stackSetOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackSetOperation =
        field_map json__ "StackSetOperation" StackSetOperation.of_json in
      make ?stackSetOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of the specified StackSet operation. This API provides strongly consistent reads meaning it will always return the most up-to-date data."]
module DescribeStackSetOperationInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or the unique stack ID of the StackSet for the stack operation."];
      operationId: ClientRequestToken.t
        [@ocaml.doc "The unique ID of the StackSet operation."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DescribeStackSetOperationInput"
    let make ?callAs =
      fun ~stackSetName ->
        fun ~operationId -> fun () -> { callAs; stackSetName; operationId }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("OperationId", (Some (ClientRequestToken.to_value x.operationId)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~operationId ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map_exn json__ "OperationId" ClientRequestToken.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ~operationId ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of the specified StackSet operation. This API provides strongly consistent reads meaning it will always return the most up-to-date data."]
module DescribeStackSetInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet whose description you want."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DescribeStackSetInput"
    let make ?callAs =
      fun ~stackSetName -> fun () -> { callAs; stackSetName }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of the specified StackSet. This API provides strongly consistent reads meaning it will always return the most up-to-date data."]
module DescribeStackResourcesOutput =
  struct
    type describeStackResourcesResult =
      {
      stackResources: StackResources.t option
        [@ocaml.doc "A list of StackResource structures."]}
    and responseMetaData = unit
    and t =
      {
      describeStackResourcesResult: describeStackResourcesResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackResourcesOutput"
    let make ?stackResources =
      fun () ->
        {
          describeStackResourcesResult = { stackResources };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackResourcesResult in
      structure_to_wrapped_value
        [("StackResources",
           (Option.map x.stackResources ~f:StackResources.to_value))]
        ~wrapper:"DescribeStackResourcesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackResourcesResult" in
      let stackResources =
        (Option.map ~f:StackResources.of_xml)
          (Xml.child xml_arg0 "StackResources") in
      make ?stackResources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackResources =
        field_map json__ "StackResources" StackResources.of_json in
      make ?stackResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a DescribeStackResources action."]
module DescribeStackResourcesInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t option
        [@ocaml.doc
          "The name or the unique stack ID that is associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID. Required: Conditional. If you don't specify StackName, you must specify PhysicalResourceId."];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "The logical name of the resource as specified in the template."];
      physicalResourceId: PhysicalResourceId.t option
        [@ocaml.doc
          "The name or unique identifier that corresponds to a physical instance ID of a resource supported by CloudFormation. For example, for an Amazon Elastic Compute Cloud (EC2) instance, PhysicalResourceId corresponds to the InstanceId. You can pass the EC2 InstanceId to DescribeStackResources to find which stack the instance belongs to and what other resources are part of the stack. Required: Conditional. If you don't specify PhysicalResourceId, you must specify StackName."]}
    let make ?stackName =
      fun ?logicalResourceId ->
        fun ?physicalResourceId ->
          fun () -> { stackName; logicalResourceId; physicalResourceId }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value));
        ("PhysicalResourceId",
          (Option.map x.physicalResourceId ~f:PhysicalResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let physicalResourceId =
        (Option.map ~f:PhysicalResourceId.of_xml)
          (Xml.child xml_arg0 "PhysicalResourceId") in
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?physicalResourceId ?logicalResourceId ?stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let physicalResourceId =
        field_map json__ "PhysicalResourceId" PhysicalResourceId.of_json in
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      make ?physicalResourceId ?logicalResourceId ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for DescribeStackResources action."]
module DescribeStackResourceOutput =
  struct
    type describeStackResourceResult =
      {
      stackResourceDetail: StackResourceDetail.t option
        [@ocaml.doc
          "A StackResourceDetail structure that contains the description of the specified resource in the specified stack."]}
    and responseMetaData = unit
    and t =
      {
      describeStackResourceResult: describeStackResourceResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackResourceOutput"
    let make ?stackResourceDetail =
      fun () ->
        {
          describeStackResourceResult = { stackResourceDetail };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackResourceResult in
      structure_to_wrapped_value
        [("StackResourceDetail",
           (Option.map x.stackResourceDetail ~f:StackResourceDetail.to_value))]
        ~wrapper:"DescribeStackResourceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackResourceResult" in
      let stackResourceDetail =
        (Option.map ~f:StackResourceDetail.of_xml)
          (Xml.child xml_arg0 "StackResourceDetail") in
      make ?stackResourceDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackResourceDetail =
        field_map json__ "StackResourceDetail" StackResourceDetail.of_json in
      make ?stackResourceDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a DescribeStackResource action."]
module DescribeStackResourceInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or the unique stack ID that's associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID."];
      logicalResourceId: LogicalResourceId.t
        [@ocaml.doc
          "The logical name of the resource as specified in the template."]}
    let context_ = "DescribeStackResourceInput"
    let make ~stackName =
      fun ~logicalResourceId -> fun () -> { stackName; logicalResourceId }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("LogicalResourceId",
          (Some (LogicalResourceId.to_value x.logicalResourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalResourceId =
        LogicalResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogicalResourceId") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ~logicalResourceId ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalResourceId =
        field_map_exn json__ "LogicalResourceId" LogicalResourceId.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ~logicalResourceId ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for DescribeStackResource action."]
module DescribeStackResourceDriftsOutput =
  struct
    type describeStackResourceDriftsResult =
      {
      stackResourceDrifts: StackResourceDrifts.t option
        [@ocaml.doc
          "Drift information for the resources that have been checked for drift in the specified stack. This includes actual and expected configuration values for resources where CloudFormation detects drift. For a given stack, there will be one StackResourceDrift for each stack resource that has been checked for drift. Resources that haven't yet been checked for drift aren't included. Resources that do not currently support drift detection aren't checked, and so not included. For a list of resources that support drift detection, see Resource type support for imports and drift detection."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call DescribeStackResourceDrifts again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      describeStackResourceDriftsResult: describeStackResourceDriftsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackResourceDriftsOutput"
    let make ?stackResourceDrifts =
      fun ?nextToken ->
        fun () ->
          {
            describeStackResourceDriftsResult =
              { stackResourceDrifts; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackResourceDriftsResult in
      structure_to_wrapped_value
        [("StackResourceDrifts",
           (Option.map x.stackResourceDrifts ~f:StackResourceDrifts.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"DescribeStackResourceDriftsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackResourceDriftsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackResourceDrifts =
        (Option.map ~f:StackResourceDrifts.of_xml)
          (Xml.child xml_arg0 "StackResourceDrifts") in
      make ?nextToken ?stackResourceDrifts ()
    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 stackResourceDrifts =
        field_map json__ "StackResourceDrifts" StackResourceDrifts.of_json in
      make ?nextToken ?stackResourceDrifts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns drift information for the resources that have been checked for drift in the specified stack. This includes actual and expected configuration values for resources where CloudFormation detects configuration drift. For a given stack, there will be one StackResourceDrift for each stack resource that has been checked for drift. Resources that haven't yet been checked for drift aren't included. Resources that don't currently support drift detection aren't checked, and so not included. For a list of resources that support drift detection, see Resource type support for imports and drift detection. Use DetectStackResourceDrift to detect drift on individual resources, or DetectStackDrift to detect drift on all supported resources for a given stack."]
module DescribeStackResourceDriftsInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name of the stack for which you want drift information."];
      stackResourceDriftStatusFilters:
        StackResourceDriftStatusFilters.t option
        [@ocaml.doc
          "The resource drift status values to use as filters for the resource drift results returned. DELETED: The resource differs from its expected template configuration in that the resource has been deleted. MODIFIED: One or more resource properties differ from their expected template values. IN_SYNC: The resource's actual configuration matches its expected template configuration. NOT_CHECKED: CloudFormation doesn't currently return this value. UNKNOWN: CloudFormation could not run drift detection for the resource."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      maxResults: BoxedMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a NextToken value that you can assign to the NextToken request parameter to get the next set of results."]}
    let context_ = "DescribeStackResourceDriftsInput"
    let make ?stackResourceDriftStatusFilters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~stackName ->
            fun () ->
              {
                stackResourceDriftStatusFilters;
                nextToken;
                maxResults;
                stackName
              }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("StackResourceDriftStatusFilters",
          (Option.map x.stackResourceDriftStatusFilters
             ~f:StackResourceDriftStatusFilters.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxedMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:BoxedMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackResourceDriftStatusFilters =
        (Option.map ~f:StackResourceDriftStatusFilters.of_xml)
          (Xml.child xml_arg0 "StackResourceDriftStatusFilters") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?maxResults ?nextToken ?stackResourceDriftStatusFilters ~stackName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" BoxedMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackResourceDriftStatusFilters =
        field_map json__ "StackResourceDriftStatusFilters"
          StackResourceDriftStatusFilters.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?maxResults ?nextToken ?stackResourceDriftStatusFilters ~stackName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns drift information for the resources that have been checked for drift in the specified stack. This includes actual and expected configuration values for resources where CloudFormation detects configuration drift. For a given stack, there will be one StackResourceDrift for each stack resource that has been checked for drift. Resources that haven't yet been checked for drift aren't included. Resources that don't currently support drift detection aren't checked, and so not included. For a list of resources that support drift detection, see Resource type support for imports and drift detection. Use DetectStackResourceDrift to detect drift on individual resources, or DetectStackDrift to detect drift on all supported resources for a given stack."]
module DescribeStackRefactorOutput =
  struct
    type describeStackRefactorResult =
      {
      description: Description.t option
        [@ocaml.doc "A description to help you identify the refactor."];
      stackRefactorId: StackRefactorId.t option
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."];
      stackIds: StackIds.t option
        [@ocaml.doc "The unique ID for each stack."];
      executionStatus: StackRefactorExecutionStatus.t option
        [@ocaml.doc
          "The stack refactor execution operation status that's provided after calling the ExecuteStackRefactor action."];
      executionStatusReason: ExecutionStatusReason.t option
        [@ocaml.doc
          "A detailed explanation for the stack refactor ExecutionStatus."];
      status: StackRefactorStatus.t option
        [@ocaml.doc
          "The stack refactor operation status that's provided after calling the CreateStackRefactor action."];
      statusReason: StackRefactorStatusReason.t option
        [@ocaml.doc
          "A detailed explanation for the stack refactor operation Status."]}
    and responseMetaData = unit
    and t =
      {
      describeStackRefactorResult: describeStackRefactorResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackRefactorNotFoundException of StackRefactorNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackRefactorOutput"
    let make ?description =
      fun ?stackRefactorId ->
        fun ?stackIds ->
          fun ?executionStatus ->
            fun ?executionStatusReason ->
              fun ?status ->
                fun ?statusReason ->
                  fun () ->
                    {
                      describeStackRefactorResult =
                        {
                          description;
                          stackRefactorId;
                          stackIds;
                          executionStatus;
                          executionStatusReason;
                          status;
                          statusReason
                        };
                      responseMetaData = ()
                    }
    let error_of_json name json =
      match name with
      | "StackRefactorNotFoundException" ->
          `StackRefactorNotFoundException
            (StackRefactorNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackRefactorNotFoundException" ->
          `StackRefactorNotFoundException
            (StackRefactorNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackRefactorNotFoundException e ->
          `Assoc
            [("error", (`String "StackRefactorNotFoundException"));
            ("details", (StackRefactorNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackRefactorResult in
      structure_to_wrapped_value
        [("Description", (Option.map x.description ~f:Description.to_value));
        ("StackRefactorId",
          (Option.map x.stackRefactorId ~f:StackRefactorId.to_value));
        ("StackIds", (Option.map x.stackIds ~f:StackIds.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus
             ~f:StackRefactorExecutionStatus.to_value));
        ("ExecutionStatusReason",
          (Option.map x.executionStatusReason
             ~f:ExecutionStatusReason.to_value));
        ("Status", (Option.map x.status ~f:StackRefactorStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:StackRefactorStatusReason.to_value))]
        ~wrapper:"DescribeStackRefactorResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackRefactorResult" in
      let statusReason =
        (Option.map ~f:StackRefactorStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:StackRefactorStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let executionStatusReason =
        (Option.map ~f:ExecutionStatusReason.of_xml)
          (Xml.child xml_arg0 "ExecutionStatusReason") in
      let executionStatus =
        (Option.map ~f:StackRefactorExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let stackIds =
        (Option.map ~f:StackIds.of_xml) (Xml.child xml_arg0 "StackIds") in
      let stackRefactorId =
        (Option.map ~f:StackRefactorId.of_xml)
          (Xml.child xml_arg0 "StackRefactorId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      make ?statusReason ?status ?executionStatusReason ?executionStatus
        ?stackIds ?stackRefactorId ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason =
        field_map json__ "StatusReason" StackRefactorStatusReason.of_json in
      let status = field_map json__ "Status" StackRefactorStatus.of_json in
      let executionStatusReason =
        field_map json__ "ExecutionStatusReason"
          ExecutionStatusReason.of_json in
      let executionStatus =
        field_map json__ "ExecutionStatus"
          StackRefactorExecutionStatus.of_json in
      let stackIds = field_map json__ "StackIds" StackIds.of_json in
      let stackRefactorId =
        field_map json__ "StackRefactorId" StackRefactorId.of_json in
      let description = field_map json__ "Description" Description.of_json in
      make ?statusReason ?status ?executionStatusReason ?executionStatus
        ?stackIds ?stackRefactorId ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the stack refactor status."]
module DescribeStackRefactorInput =
  struct
    type nonrec t =
      {
      stackRefactorId: StackRefactorId.t
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."]}
    let context_ = "DescribeStackRefactorInput"
    let make ~stackRefactorId = fun () -> { stackRefactorId }
    let to_value x =
      structure_to_value
        [("StackRefactorId",
           (Some (StackRefactorId.to_value x.stackRefactorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackRefactorId =
        StackRefactorId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackRefactorId") in
      make ~stackRefactorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackRefactorId =
        field_map_exn json__ "StackRefactorId" StackRefactorId.of_json in
      make ~stackRefactorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the stack refactor status."]
module DescribeStackInstanceOutput =
  struct
    type describeStackInstanceResult =
      {
      stackInstance: StackInstance.t option
        [@ocaml.doc
          "The stack instance that matches the specified request parameters."]}
    and responseMetaData = unit
    and t =
      {
      describeStackInstanceResult: describeStackInstanceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `StackInstanceNotFoundException of StackInstanceNotFoundException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackInstanceOutput"
    let make ?stackInstance =
      fun () ->
        {
          describeStackInstanceResult = { stackInstance };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "StackInstanceNotFoundException" ->
          `StackInstanceNotFoundException
            (StackInstanceNotFoundException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `StackInstanceNotFoundException e ->
          `Assoc
            [("error", (`String "StackInstanceNotFoundException"));
            ("details", (StackInstanceNotFoundException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackInstanceResult in
      structure_to_wrapped_value
        [("StackInstance",
           (Option.map x.stackInstance ~f:StackInstance.to_value))]
        ~wrapper:"DescribeStackInstanceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackInstanceResult" in
      let stackInstance =
        (Option.map ~f:StackInstance.of_xml)
          (Xml.child xml_arg0 "StackInstance") in
      make ?stackInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackInstance =
        field_map json__ "StackInstance" StackInstance.of_json in
      make ?stackInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the stack instance that's associated with the specified StackSet, Amazon Web Services account, and Amazon Web Services Region. For a list of stack instances that are associated with a specific StackSet, use ListStackInstances."]
module DescribeStackInstanceInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or the unique stack ID of the StackSet that you want to get stack instance information for."];
      stackInstanceAccount: Account.t
        [@ocaml.doc
          "The ID of an Amazon Web Services account that's associated with this stack instance."];
      stackInstanceRegion: Region.t
        [@ocaml.doc
          "The name of a Region that's associated with this stack instance."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DescribeStackInstanceInput"
    let make ?callAs =
      fun ~stackSetName ->
        fun ~stackInstanceAccount ->
          fun ~stackInstanceRegion ->
            fun () ->
              {
                callAs;
                stackSetName;
                stackInstanceAccount;
                stackInstanceRegion
              }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("StackInstanceAccount",
          (Some (Account.to_value x.stackInstanceAccount)));
        ("StackInstanceRegion",
          (Some (Region.to_value x.stackInstanceRegion)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let stackInstanceRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackInstanceRegion") in
      let stackInstanceAccount =
        Account.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackInstanceAccount") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~stackInstanceRegion ~stackInstanceAccount ~stackSetName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let stackInstanceRegion =
        field_map_exn json__ "StackInstanceRegion" Region.of_json in
      let stackInstanceAccount =
        field_map_exn json__ "StackInstanceAccount" Account.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ~stackInstanceRegion ~stackInstanceAccount ~stackSetName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the stack instance that's associated with the specified StackSet, Amazon Web Services account, and Amazon Web Services Region. For a list of stack instances that are associated with a specific StackSet, use ListStackInstances."]
module DescribeStackEventsOutput =
  struct
    type describeStackEventsResult =
      {
      stackEvents: StackEvents.t option
        [@ocaml.doc "A list of StackEvents structures."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB in size, a string that identifies the next page of events. If no additional page exists, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      describeStackEventsResult: describeStackEventsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackEventsOutput"
    let make ?stackEvents =
      fun ?nextToken ->
        fun () ->
          {
            describeStackEventsResult = { stackEvents; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackEventsResult in
      structure_to_wrapped_value
        [("StackEvents", (Option.map x.stackEvents ~f:StackEvents.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"DescribeStackEventsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeStackEventsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackEvents =
        (Option.map ~f:StackEvents.of_xml) (Xml.child xml_arg0 "StackEvents") in
      make ?nextToken ?stackEvents ()
    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 stackEvents = field_map json__ "StackEvents" StackEvents.of_json in
      make ?nextToken ?stackEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a DescribeStackEvents action."]
module DescribeStackEventsInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or the unique stack ID that's associated with the stack, which aren't always interchangeable: Running stacks: You can specify either the stack's name or its unique stack ID. Deleted stacks: You must specify the unique stack ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let context_ = "DescribeStackEventsInput"
    let make ?nextToken =
      fun ~stackName -> fun () -> { nextToken; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("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 stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?nextToken ~stackName ()
    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 stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?nextToken ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for DescribeStackEvents action."]
module DescribeStackDriftDetectionStatusOutput =
  struct
    type describeStackDriftDetectionStatusResult =
      {
      stackId: StackId.t option [@ocaml.doc "The ID of the stack."];
      stackDriftDetectionId: StackDriftDetectionId.t option
        [@ocaml.doc
          "The ID of the drift detection results of this operation. CloudFormation generates new results, with a new drift detection ID, each time this operation is run. However, the number of reports CloudFormation retains for any given stack, and for how long, may vary."];
      stackDriftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "Status of the stack's actual configuration compared to its expected configuration. DRIFTED: The stack differs from its expected template configuration. A stack is considered to have drifted if one or more of its resources have drifted. NOT_CHECKED: CloudFormation hasn't checked if the stack differs from its expected template configuration. IN_SYNC: The stack's actual configuration matches its expected template configuration. UNKNOWN: CloudFormation could not run drift detection for a resource in the stack. See the DetectionStatusReason for details."];
      detectionStatus: StackDriftDetectionStatus.t option
        [@ocaml.doc
          "The status of the stack drift detection operation. DETECTION_COMPLETE: The stack drift detection operation has successfully completed for all resources in the stack that support drift detection. (Resources that don't currently support stack detection remain unchecked.) If you specified logical resource IDs for CloudFormation to use as a filter for the stack drift detection operation, only the resources with those logical IDs are checked for drift. DETECTION_FAILED: The stack drift detection operation has failed for at least one resource in the stack. Results will be available for resources on which CloudFormation successfully completed drift detection. DETECTION_IN_PROGRESS: The stack drift detection operation is currently in progress."];
      detectionStatusReason: StackDriftDetectionStatusReason.t option
        [@ocaml.doc
          "The reason the stack drift detection operation has its current status."];
      driftedStackResourceCount: BoxedInteger.t option
        [@ocaml.doc
          "Total number of stack resources that have drifted. This is NULL until the drift detection operation reaches a status of DETECTION_COMPLETE. This value will be 0 for stacks whose drift status is IN_SYNC."];
      timestamp: Timestamp.t option
        [@ocaml.doc
          "Time at which the stack drift detection operation was initiated."]}
    and responseMetaData = unit
    and t =
      {
      describeStackDriftDetectionStatusResult:
        describeStackDriftDetectionStatusResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeStackDriftDetectionStatusOutput"
    let make ?stackId =
      fun ?stackDriftDetectionId ->
        fun ?stackDriftStatus ->
          fun ?detectionStatus ->
            fun ?detectionStatusReason ->
              fun ?driftedStackResourceCount ->
                fun ?timestamp ->
                  fun () ->
                    {
                      describeStackDriftDetectionStatusResult =
                        {
                          stackId;
                          stackDriftDetectionId;
                          stackDriftStatus;
                          detectionStatus;
                          detectionStatusReason;
                          driftedStackResourceCount;
                          timestamp
                        };
                      responseMetaData = ()
                    }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeStackDriftDetectionStatusResult in
      structure_to_wrapped_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackDriftDetectionId",
          (Option.map x.stackDriftDetectionId
             ~f:StackDriftDetectionId.to_value));
        ("StackDriftStatus",
          (Option.map x.stackDriftStatus ~f:StackDriftStatus.to_value));
        ("DetectionStatus",
          (Option.map x.detectionStatus ~f:StackDriftDetectionStatus.to_value));
        ("DetectionStatusReason",
          (Option.map x.detectionStatusReason
             ~f:StackDriftDetectionStatusReason.to_value));
        ("DriftedStackResourceCount",
          (Option.map x.driftedStackResourceCount ~f:BoxedInteger.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value))]
        ~wrapper:"DescribeStackDriftDetectionStatusResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "DescribeStackDriftDetectionStatusResult" in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let driftedStackResourceCount =
        (Option.map ~f:BoxedInteger.of_xml)
          (Xml.child xml_arg0 "DriftedStackResourceCount") in
      let detectionStatusReason =
        (Option.map ~f:StackDriftDetectionStatusReason.of_xml)
          (Xml.child xml_arg0 "DetectionStatusReason") in
      let detectionStatus =
        (Option.map ~f:StackDriftDetectionStatus.of_xml)
          (Xml.child xml_arg0 "DetectionStatus") in
      let stackDriftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackDriftStatus") in
      let stackDriftDetectionId =
        (Option.map ~f:StackDriftDetectionId.of_xml)
          (Xml.child xml_arg0 "StackDriftDetectionId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?timestamp ?driftedStackResourceCount ?detectionStatusReason
        ?detectionStatus ?stackDriftStatus ?stackDriftDetectionId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let driftedStackResourceCount =
        field_map json__ "DriftedStackResourceCount" BoxedInteger.of_json in
      let detectionStatusReason =
        field_map json__ "DetectionStatusReason"
          StackDriftDetectionStatusReason.of_json in
      let detectionStatus =
        field_map json__ "DetectionStatus" StackDriftDetectionStatus.of_json in
      let stackDriftStatus =
        field_map json__ "StackDriftStatus" StackDriftStatus.of_json in
      let stackDriftDetectionId =
        field_map json__ "StackDriftDetectionId"
          StackDriftDetectionId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?timestamp ?driftedStackResourceCount ?detectionStatusReason
        ?detectionStatus ?stackDriftStatus ?stackDriftDetectionId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a stack drift detection operation. A stack drift detection operation detects whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. A stack is considered to have drifted if one or more of its resources have drifted. For more information about stack and resource drift, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackDrift to initiate a stack drift detection operation. DetectStackDrift returns a StackDriftDetectionId you can use to monitor the progress of the operation using DescribeStackDriftDetectionStatus. Once the drift detection operation has completed, use DescribeStackResourceDrifts to return drift information about the stack and its resources."]
module DescribeStackDriftDetectionStatusInput =
  struct
    type nonrec t =
      {
      stackDriftDetectionId: StackDriftDetectionId.t
        [@ocaml.doc
          "The ID of the drift detection results of this operation. CloudFormation generates new results, with a new drift detection ID, each time this operation is run. However, the number of drift results CloudFormation retains for any given stack, and for how long, may vary."]}
    let context_ = "DescribeStackDriftDetectionStatusInput"
    let make ~stackDriftDetectionId = fun () -> { stackDriftDetectionId }
    let to_value x =
      structure_to_value
        [("StackDriftDetectionId",
           (Some (StackDriftDetectionId.to_value x.stackDriftDetectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackDriftDetectionId =
        StackDriftDetectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackDriftDetectionId") in
      make ~stackDriftDetectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackDriftDetectionId =
        field_map_exn json__ "StackDriftDetectionId"
          StackDriftDetectionId.of_json in
      make ~stackDriftDetectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a stack drift detection operation. A stack drift detection operation detects whether a stack's actual configuration differs, or has drifted, from its expected configuration, as defined in the stack template and any values specified as template parameters. A stack is considered to have drifted if one or more of its resources have drifted. For more information about stack and resource drift, see Detect unmanaged configuration changes to stacks and resources with drift detection. Use DetectStackDrift to initiate a stack drift detection operation. DetectStackDrift returns a StackDriftDetectionId you can use to monitor the progress of the operation using DescribeStackDriftDetectionStatus. Once the drift detection operation has completed, use DescribeStackResourceDrifts to return drift information about the stack and its resources."]
module DescribeResourceScanOutput =
  struct
    type describeResourceScanResult =
      {
      resourceScanId: ResourceScanId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource scan. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:resourceScan/$\\{Id\\}. An example is arn:aws:cloudformation:us-east-1:123456789012:resourceScan/f5b490f7-7ed4-428a-aa06-31ff25db0772 ."];
      status: ResourceScanStatus.t option
        [@ocaml.doc
          "Status of the resource scan. IN_PROGRESS The resource scan is still in progress. COMPLETE The resource scan is complete. EXPIRED The resource scan has expired. FAILED The resource scan has failed."];
      statusReason: ResourceScanStatusReason.t option
        [@ocaml.doc
          "The reason for the resource scan status, providing more information if a failure happened."];
      startTime: Timestamp.t option
        [@ocaml.doc "The time that the resource scan was started."];
      endTime: Timestamp.t option
        [@ocaml.doc "The time that the resource scan was finished."];
      percentageCompleted: PercentageCompleted.t option
        [@ocaml.doc
          "The percentage of the resource scan that has been completed."];
      resourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "The list of resource types for the specified scan. Resource types are only available for scans with a Status set to COMPLETE or FAILED ."];
      resourcesScanned: ResourcesScanned.t option
        [@ocaml.doc
          "The number of resources that were listed. This is only available for scans with a Status set to COMPLETE, EXPIRED, or FAILED ."];
      resourcesRead: ResourcesRead.t option
        [@ocaml.doc
          "The number of resources that were read. This is only available for scans with a Status set to COMPLETE, EXPIRED, or FAILED. This field may be 0 if the resource scan failed with a ResourceScanLimitExceededException."];
      scanFilters: ScanFilters.t option
        [@ocaml.doc "The scan filters that were used."]}
    and responseMetaData = unit
    and t =
      {
      describeResourceScanResult: describeResourceScanResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ResourceScanNotFoundException of ResourceScanNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeResourceScanOutput"
    let make ?resourceScanId =
      fun ?status ->
        fun ?statusReason ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?percentageCompleted ->
                fun ?resourceTypes ->
                  fun ?resourcesScanned ->
                    fun ?resourcesRead ->
                      fun ?scanFilters ->
                        fun () ->
                          {
                            describeResourceScanResult =
                              {
                                resourceScanId;
                                status;
                                statusReason;
                                startTime;
                                endTime;
                                percentageCompleted;
                                resourceTypes;
                                resourcesScanned;
                                resourcesRead;
                                scanFilters
                              };
                            responseMetaData = ()
                          }
    let error_of_json name json =
      match name with
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceScanNotFoundException" ->
          `ResourceScanNotFoundException
            (ResourceScanNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceScanNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceScanNotFoundException"));
            ("details", (ResourceScanNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeResourceScanResult in
      structure_to_wrapped_value
        [("ResourceScanId",
           (Option.map x.resourceScanId ~f:ResourceScanId.to_value));
        ("Status", (Option.map x.status ~f:ResourceScanStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ResourceScanStatusReason.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("PercentageCompleted",
          (Option.map x.percentageCompleted ~f:PercentageCompleted.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:ResourceTypes.to_value));
        ("ResourcesScanned",
          (Option.map x.resourcesScanned ~f:ResourcesScanned.to_value));
        ("ResourcesRead",
          (Option.map x.resourcesRead ~f:ResourcesRead.to_value));
        ("ScanFilters", (Option.map x.scanFilters ~f:ScanFilters.to_value))]
        ~wrapper:"DescribeResourceScanResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeResourceScanResult" in
      let scanFilters =
        (Option.map ~f:ScanFilters.of_xml) (Xml.child xml_arg0 "ScanFilters") in
      let resourcesRead =
        (Option.map ~f:ResourcesRead.of_xml)
          (Xml.child xml_arg0 "ResourcesRead") in
      let resourcesScanned =
        (Option.map ~f:ResourcesScanned.of_xml)
          (Xml.child xml_arg0 "ResourcesScanned") in
      let resourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let percentageCompleted =
        (Option.map ~f:PercentageCompleted.of_xml)
          (Xml.child xml_arg0 "PercentageCompleted") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let statusReason =
        (Option.map ~f:ResourceScanStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:ResourceScanStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let resourceScanId =
        (Option.map ~f:ResourceScanId.of_xml)
          (Xml.child xml_arg0 "ResourceScanId") in
      make ?scanFilters ?resourcesRead ?resourcesScanned ?resourceTypes
        ?percentageCompleted ?endTime ?startTime ?statusReason ?status
        ?resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scanFilters = field_map json__ "ScanFilters" ScanFilters.of_json in
      let resourcesRead =
        field_map json__ "ResourcesRead" ResourcesRead.of_json in
      let resourcesScanned =
        field_map json__ "ResourcesScanned" ResourcesScanned.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypes.of_json in
      let percentageCompleted =
        field_map json__ "PercentageCompleted" PercentageCompleted.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let statusReason =
        field_map json__ "StatusReason" ResourceScanStatusReason.of_json in
      let status = field_map json__ "Status" ResourceScanStatus.of_json in
      let resourceScanId =
        field_map json__ "ResourceScanId" ResourceScanId.of_json in
      make ?scanFilters ?resourcesRead ?resourcesScanned ?resourceTypes
        ?percentageCompleted ?endTime ?startTime ?statusReason ?status
        ?resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes details of a resource scan."]
module DescribeResourceScanInput =
  struct
    type nonrec t =
      {
      resourceScanId: ResourceScanId.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource scan."]}
    let context_ = "DescribeResourceScanInput"
    let make ~resourceScanId = fun () -> { resourceScanId }
    let to_value x =
      structure_to_value
        [("ResourceScanId",
           (Some (ResourceScanId.to_value x.resourceScanId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceScanId =
        ResourceScanId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceScanId") in
      make ~resourceScanId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceScanId =
        field_map_exn json__ "ResourceScanId" ResourceScanId.of_json in
      make ~resourceScanId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes details of a resource scan."]
module DescribePublisherOutput =
  struct
    type describePublisherResult =
      {
      publisherId: PublisherId.t option
        [@ocaml.doc "The ID of the extension publisher."];
      publisherStatus: PublisherStatus.t option
        [@ocaml.doc
          "Whether the publisher is verified. Currently, all registered publishers are verified."];
      identityProvider: IdentityProvider.t option
        [@ocaml.doc
          "The type of account used as the identity provider when registering this publisher with CloudFormation."];
      publisherProfile: PublisherProfile.t option
        [@ocaml.doc
          "The URL to the publisher's profile with the identity provider."]}
    and responseMetaData = unit
    and t =
      {
      describePublisherResult: describePublisherResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribePublisherOutput"
    let make ?publisherId =
      fun ?publisherStatus ->
        fun ?identityProvider ->
          fun ?publisherProfile ->
            fun () ->
              {
                describePublisherResult =
                  {
                    publisherId;
                    publisherStatus;
                    identityProvider;
                    publisherProfile
                  };
                responseMetaData = ()
              }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describePublisherResult in
      structure_to_wrapped_value
        [("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("PublisherStatus",
          (Option.map x.publisherStatus ~f:PublisherStatus.to_value));
        ("IdentityProvider",
          (Option.map x.identityProvider ~f:IdentityProvider.to_value));
        ("PublisherProfile",
          (Option.map x.publisherProfile ~f:PublisherProfile.to_value))]
        ~wrapper:"DescribePublisherResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribePublisherResult" in
      let publisherProfile =
        (Option.map ~f:PublisherProfile.of_xml)
          (Xml.child xml_arg0 "PublisherProfile") in
      let identityProvider =
        (Option.map ~f:IdentityProvider.of_xml)
          (Xml.child xml_arg0 "IdentityProvider") in
      let publisherStatus =
        (Option.map ~f:PublisherStatus.of_xml)
          (Xml.child xml_arg0 "PublisherStatus") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      make ?publisherProfile ?identityProvider ?publisherStatus ?publisherId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publisherProfile =
        field_map json__ "PublisherProfile" PublisherProfile.of_json in
      let identityProvider =
        field_map json__ "IdentityProvider" IdentityProvider.of_json in
      let publisherStatus =
        field_map json__ "PublisherStatus" PublisherStatus.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      make ?publisherProfile ?identityProvider ?publisherStatus ?publisherId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a CloudFormation extension publisher. If you don't supply a PublisherId, and you have registered as an extension publisher, DescribePublisher returns information about your own publisher account. For more information about registering as a publisher, see: RegisterPublisher Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide"]
module DescribePublisherInput =
  struct
    type nonrec t =
      {
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The ID of the extension publisher. If you don't supply a PublisherId, and you have registered as an extension publisher, DescribePublisher returns information about your own publisher account."]}
    let make ?publisherId = fun () -> { publisherId }
    let to_value x =
      structure_to_value
        [("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      make ?publisherId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      make ?publisherId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a CloudFormation extension publisher. If you don't supply a PublisherId, and you have registered as an extension publisher, DescribePublisher returns information about your own publisher account. For more information about registering as a publisher, see: RegisterPublisher Publishing extensions to make them available for public use in the CloudFormation Command Line Interface (CLI) User Guide"]
module DescribeOrganizationsAccessOutput =
  struct
    type describeOrganizationsAccessResult =
      {
      status: OrganizationStatus.t option
        [@ocaml.doc "Presents the status of the OrganizationAccess."]}
    and responseMetaData = unit
    and t =
      {
      describeOrganizationsAccessResult: describeOrganizationsAccessResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationNotFoundException of OperationNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeOrganizationsAccessOutput"
    let make ?status =
      fun () ->
        {
          describeOrganizationsAccessResult = { status };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeOrganizationsAccessResult in
      structure_to_wrapped_value
        [("Status", (Option.map x.status ~f:OrganizationStatus.to_value))]
        ~wrapper:"DescribeOrganizationsAccessResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeOrganizationsAccessResult" in
      let status =
        (Option.map ~f:OrganizationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OrganizationStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the account's OrganizationAccess status. This API can be called either by the management account or the delegated administrator by using the CallAs parameter. This API can also be called without the CallAs parameter by the management account."]
module DescribeOrganizationsAccessInput =
  struct
    type nonrec t =
      {
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let make ?callAs = fun () -> { callAs }
    let to_value x =
      structure_to_value
        [("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      make ?callAs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      make ?callAs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the account's OrganizationAccess status. This API can be called either by the management account or the delegated administrator by using the CallAs parameter. This API can also be called without the CallAs parameter by the management account."]
module DescribeGeneratedTemplateOutput =
  struct
    type describeGeneratedTemplateResult =
      {
      generatedTemplateId: GeneratedTemplateId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the generated template. The format is arn:$\\{Partition\\}:cloudformation:$\\{Region\\}:$\\{Account\\}:generatedtemplate/$\\{Id\\}. For example, arn:aws:cloudformation:us-east-1:123456789012:generatedtemplate/2e8465c1-9a80-43ea-a3a3-4f2d692fe6dc ."];
      generatedTemplateName: GeneratedTemplateName.t option
        [@ocaml.doc "The name of the generated template."];
      resources: ResourceDetails.t option
        [@ocaml.doc
          "A list of objects describing the details of the resources in the template generation."];
      status: GeneratedTemplateStatus.t option
        [@ocaml.doc
          "The status of the template generation. Supported values are: CreatePending - the creation of the template is pending. CreateInProgress - the creation of the template is in progress. DeletePending - the deletion of the template is pending. DeleteInProgress - the deletion of the template is in progress. UpdatePending - the update of the template is pending. UpdateInProgress - the update of the template is in progress. Failed - the template operation failed. Complete - the template operation is complete."];
      statusReason: TemplateStatusReason.t option
        [@ocaml.doc
          "The reason for the current template generation status. This will provide more details if a failure happened."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The time the generated template was created."];
      lastUpdatedTime: LastUpdatedTime.t option
        [@ocaml.doc "The time the generated template was last updated."];
      progress: TemplateProgress.t option
        [@ocaml.doc
          "An object describing the progress of the template generation."];
      stackId: StackId.t option
        [@ocaml.doc
          "The stack ARN of the base stack if a base stack was provided when generating the template."];
      templateConfiguration: TemplateConfiguration.t option
        [@ocaml.doc
          "The configuration details of the generated template, including the DeletionPolicy and UpdateReplacePolicy."];
      totalWarnings: TotalWarnings.t option
        [@ocaml.doc
          "The number of warnings generated for this template. The warnings are found in the details of each of the resources in the template."]}
    and responseMetaData = unit
    and t =
      {
      describeGeneratedTemplateResult: describeGeneratedTemplateResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `GeneratedTemplateNotFoundException of
          GeneratedTemplateNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeGeneratedTemplateOutput"
    let make ?generatedTemplateId =
      fun ?generatedTemplateName ->
        fun ?resources ->
          fun ?status ->
            fun ?statusReason ->
              fun ?creationTime ->
                fun ?lastUpdatedTime ->
                  fun ?progress ->
                    fun ?stackId ->
                      fun ?templateConfiguration ->
                        fun ?totalWarnings ->
                          fun () ->
                            {
                              describeGeneratedTemplateResult =
                                {
                                  generatedTemplateId;
                                  generatedTemplateName;
                                  resources;
                                  status;
                                  statusReason;
                                  creationTime;
                                  lastUpdatedTime;
                                  progress;
                                  stackId;
                                  templateConfiguration;
                                  totalWarnings
                                };
                              responseMetaData = ()
                            }
    let error_of_json name json =
      match name with
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "GeneratedTemplateNotFoundException" ->
          `GeneratedTemplateNotFoundException
            (GeneratedTemplateNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `GeneratedTemplateNotFoundException e ->
          `Assoc
            [("error", (`String "GeneratedTemplateNotFoundException"));
            ("details", (GeneratedTemplateNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeGeneratedTemplateResult in
      structure_to_wrapped_value
        [("GeneratedTemplateId",
           (Option.map x.generatedTemplateId ~f:GeneratedTemplateId.to_value));
        ("GeneratedTemplateName",
          (Option.map x.generatedTemplateName
             ~f:GeneratedTemplateName.to_value));
        ("Resources", (Option.map x.resources ~f:ResourceDetails.to_value));
        ("Status", (Option.map x.status ~f:GeneratedTemplateStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:TemplateStatusReason.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:LastUpdatedTime.to_value));
        ("Progress", (Option.map x.progress ~f:TemplateProgress.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("TemplateConfiguration",
          (Option.map x.templateConfiguration
             ~f:TemplateConfiguration.to_value));
        ("TotalWarnings",
          (Option.map x.totalWarnings ~f:TotalWarnings.to_value))]
        ~wrapper:"DescribeGeneratedTemplateResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeGeneratedTemplateResult" in
      let totalWarnings =
        (Option.map ~f:TotalWarnings.of_xml)
          (Xml.child xml_arg0 "TotalWarnings") in
      let templateConfiguration =
        (Option.map ~f:TemplateConfiguration.of_xml)
          (Xml.child xml_arg0 "TemplateConfiguration") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let progress =
        (Option.map ~f:TemplateProgress.of_xml)
          (Xml.child xml_arg0 "Progress") in
      let lastUpdatedTime =
        (Option.map ~f:LastUpdatedTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let statusReason =
        (Option.map ~f:TemplateStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:GeneratedTemplateStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let resources =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "Resources") in
      let generatedTemplateName =
        (Option.map ~f:GeneratedTemplateName.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateName") in
      let generatedTemplateId =
        (Option.map ~f:GeneratedTemplateId.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateId") in
      make ?totalWarnings ?templateConfiguration ?stackId ?progress
        ?lastUpdatedTime ?creationTime ?statusReason ?status ?resources
        ?generatedTemplateName ?generatedTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalWarnings =
        field_map json__ "TotalWarnings" TotalWarnings.of_json in
      let templateConfiguration =
        field_map json__ "TemplateConfiguration"
          TemplateConfiguration.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let progress = field_map json__ "Progress" TemplateProgress.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" LastUpdatedTime.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let statusReason =
        field_map json__ "StatusReason" TemplateStatusReason.of_json in
      let status = field_map json__ "Status" GeneratedTemplateStatus.of_json in
      let resources = field_map json__ "Resources" ResourceDetails.of_json in
      let generatedTemplateName =
        field_map json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      let generatedTemplateId =
        field_map json__ "GeneratedTemplateId" GeneratedTemplateId.of_json in
      make ?totalWarnings ?templateConfiguration ?stackId ?progress
        ?lastUpdatedTime ?creationTime ?statusReason ?status ?resources
        ?generatedTemplateName ?generatedTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a generated template. The output includes details about the progress of the creation of a generated template started by a CreateGeneratedTemplate API action or the update of a generated template started with an UpdateGeneratedTemplate API action."]
module DescribeGeneratedTemplateInput =
  struct
    type nonrec t =
      {
      generatedTemplateName: GeneratedTemplateName.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of a generated template."]}
    let context_ = "DescribeGeneratedTemplateInput"
    let make ~generatedTemplateName = fun () -> { generatedTemplateName }
    let to_value x =
      structure_to_value
        [("GeneratedTemplateName",
           (Some (GeneratedTemplateName.to_value x.generatedTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generatedTemplateName =
        GeneratedTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedTemplateName") in
      make ~generatedTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedTemplateName =
        field_map_exn json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      make ~generatedTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a generated template. The output includes details about the progress of the creation of a generated template started by a CreateGeneratedTemplate API action or the update of a generated template started with an UpdateGeneratedTemplate API action."]
module DescribeEventsOutput =
  struct
    type describeEventsResult =
      {
      operationEvents: OperationEvents.t option
        [@ocaml.doc
          "A list of operation events that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the request doesn't return all the remaining results, NextToken is set to a token. To retrieve the next set of results, call DescribeEvents again and assign that token to the request object's NextToken parameter. If the request returns all results, NextToken is set to null."]}
    and responseMetaData = unit
    and t =
      {
      describeEventsResult: describeEventsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeEventsOutput"
    let make ?operationEvents =
      fun ?nextToken ->
        fun () ->
          {
            describeEventsResult = { operationEvents; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeEventsResult in
      structure_to_wrapped_value
        [("OperationEvents",
           (Option.map x.operationEvents ~f:OperationEvents.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"DescribeEventsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "DescribeEventsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let operationEvents =
        (Option.map ~f:OperationEvents.of_xml)
          (Xml.child xml_arg0 "OperationEvents") in
      make ?nextToken ?operationEvents ()
    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 operationEvents =
        field_map json__ "OperationEvents" OperationEvents.of_json in
      make ?nextToken ?operationEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns CloudFormation events based on flexible query criteria. Groups events by operation ID, enabling you to focus on individual stack operations during deployment. An operation is any action performed on a stack, including stack lifecycle actions (Create, Update, Delete, Rollback), change set creation, nested stack creation, and automatic rollbacks triggered by failures. Each operation has a unique identifier (Operation ID) and represents a discrete change attempt on the stack. Returns different types of events including: Progress events - Status updates during stack operation execution. Validation errors - Failures from CloudFormation Early Validations. Provisioning errors - Resource creation and update failures. Hook invocation errors - Failures from CloudFormation Hook during stack operations. One of ChangeSetName, OperationId or StackName must be specified as input."]
module DescribeEventsInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "The name or unique stack ID for which you want to retrieve events."];
      changeSetName: ChangeSetNameOrId.t option
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the change set for which you want to retrieve events."];
      operationId: OperationId.t option
        [@ocaml.doc
          "The unique identifier of the operation for which you want to retrieve events."];
      filters: EventFilter.t option
        [@ocaml.doc "Filters to apply when retrieving events."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?stackName =
      fun ?changeSetName ->
        fun ?operationId ->
          fun ?filters ->
            fun ?nextToken ->
              fun () ->
                { stackName; changeSetName; operationId; filters; nextToken }
    let to_value x =
      structure_to_value
        [("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value));
        ("ChangeSetName",
          (Option.map x.changeSetName ~f:ChangeSetNameOrId.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("Filters", (Option.map x.filters ~f:EventFilter.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 filters =
        (Option.map ~f:EventFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let changeSetName =
        (Option.map ~f:ChangeSetNameOrId.of_xml)
          (Xml.child xml_arg0 "ChangeSetName") in
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      make ?nextToken ?filters ?operationId ?changeSetName ?stackName ()
    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 filters = field_map json__ "Filters" EventFilter.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let changeSetName =
        field_map json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      make ?nextToken ?filters ?operationId ?changeSetName ?stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns CloudFormation events based on flexible query criteria. Groups events by operation ID, enabling you to focus on individual stack operations during deployment. An operation is any action performed on a stack, including stack lifecycle actions (Create, Update, Delete, Rollback), change set creation, nested stack creation, and automatic rollbacks triggered by failures. Each operation has a unique identifier (Operation ID) and represents a discrete change attempt on the stack. Returns different types of events including: Progress events - Status updates during stack operation execution. Validation errors - Failures from CloudFormation Early Validations. Provisioning errors - Resource creation and update failures. Hook invocation errors - Failures from CloudFormation Hook during stack operations. One of ChangeSetName, OperationId or StackName must be specified as input."]
module DescribeChangeSetOutput =
  struct
    type describeChangeSetResult =
      {
      changeSetName: ChangeSetName.t option
        [@ocaml.doc "The name of the change set."];
      changeSetId: ChangeSetId.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the change set."];
      stackId: StackId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stack that's associated with the change set."];
      stackName: StackName.t option
        [@ocaml.doc
          "The name of the stack that's associated with the change set."];
      description: Description.t option
        [@ocaml.doc "Information about the change set."];
      parameters: Parameters.t option
        [@ocaml.doc
          "A list of Parameter structures that describes the input parameters and their values used to create the change set. For more information, see the Parameter data type."];
      creationTime: CreationTime.t option
        [@ocaml.doc
          "The start time when the change set was created, in UTC."];
      executionStatus: ExecutionStatus.t option
        [@ocaml.doc
          "If the change set execution status is AVAILABLE, you can execute the change set. If you can't execute the change set, the status indicates why. For example, a change set might be in an UNAVAILABLE state because CloudFormation is still creating it or in an OBSOLETE state because the stack was already updated."];
      status: ChangeSetStatus.t option
        [@ocaml.doc
          "The current status of the change set, such as CREATE_PENDING, CREATE_COMPLETE, or FAILED."];
      statusReason: ChangeSetStatusReason.t option
        [@ocaml.doc
          "A description of the change set's status. For example, if your attempt to create a change set failed, CloudFormation shows the error message."];
      stackDriftStatus: StackDriftStatus.t option
        [@ocaml.doc
          "The drift status of the stack when the change set was created. Valid values: DRIFTED \226\128\147 The stack has drifted from its last deployment. IN_SYNC \226\128\147 The stack is in sync with its last deployment. NOT_CHECKED \226\128\147 CloudFormation doesn\226\128\153t currently return this value. UNKNOWN \226\128\147 The drift status could not be determined. Only present for drift-aware change sets."];
      notificationARNs: NotificationARNs.t option
        [@ocaml.doc
          "The ARNs of the Amazon SNS topics that will be associated with the stack if you execute the change set."];
      rollbackConfiguration: RollbackConfiguration.t option
        [@ocaml.doc
          "The rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "If you execute the change set, the list of capabilities that were explicitly acknowledged when the change set was created."];
      tags: Tags.t option
        [@ocaml.doc
          "If you execute the change set, the tags that will be associated with the stack."];
      changes: Changes.t option
        [@ocaml.doc
          "A list of Change structures that describes the resources CloudFormation changes if you execute the change set."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB, a string that identifies the next page of changes. If there is no additional page, this value is null."];
      includeNestedStacks: IncludeNestedStacks.t option
        [@ocaml.doc "Verifies if IncludeNestedStacks is set to True."];
      parentChangeSetId: ChangeSetId.t option
        [@ocaml.doc
          "Specifies the change set ID of the parent change set in the current nested change set hierarchy."];
      rootChangeSetId: ChangeSetId.t option
        [@ocaml.doc
          "Specifies the change set ID of the root change set in the current nested change set hierarchy."];
      onStackFailure: OnStackFailure.t option
        [@ocaml.doc
          "Determines what action will be taken if stack creation fails. When this parameter is specified, the DisableRollback parameter to the ExecuteChangeSet API operation must not be specified. This must be one of these values: DELETE - Deletes the change set if the stack creation fails. This is only valid when the ChangeSetType parameter is set to CREATE. If the deletion of the stack fails, the status of the stack is DELETE_FAILED. DO_NOTHING - if the stack creation fails, do nothing. This is equivalent to specifying true for the DisableRollback parameter to the ExecuteChangeSet API operation. ROLLBACK - if the stack creation fails, roll back the stack. This is equivalent to specifying false for the DisableRollback parameter to the ExecuteChangeSet API operation."];
      importExistingResources: ImportExistingResources.t option
        [@ocaml.doc
          "Indicates if the change set imports resources that already exist. This parameter can only import resources that have custom names in templates. To import resources that do not accept custom names, such as EC2 instances, use the resource import feature instead."];
      deploymentMode: DeploymentMode.t option
        [@ocaml.doc
          "The deployment mode specified when the change set was created. Valid value is REVERT_DRIFT. Only present for drift-aware change sets."]}
    and responseMetaData = unit
    and t =
      {
      describeChangeSetResult: describeChangeSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ChangeSetNotFoundException of ChangeSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeChangeSetOutput"
    let make ?changeSetName =
      fun ?changeSetId ->
        fun ?stackId ->
          fun ?stackName ->
            fun ?description ->
              fun ?parameters ->
                fun ?creationTime ->
                  fun ?executionStatus ->
                    fun ?status ->
                      fun ?statusReason ->
                        fun ?stackDriftStatus ->
                          fun ?notificationARNs ->
                            fun ?rollbackConfiguration ->
                              fun ?capabilities ->
                                fun ?tags ->
                                  fun ?changes ->
                                    fun ?nextToken ->
                                      fun ?includeNestedStacks ->
                                        fun ?parentChangeSetId ->
                                          fun ?rootChangeSetId ->
                                            fun ?onStackFailure ->
                                              fun ?importExistingResources ->
                                                fun ?deploymentMode ->
                                                  fun () ->
                                                    {
                                                      describeChangeSetResult
                                                        =
                                                        {
                                                          changeSetName;
                                                          changeSetId;
                                                          stackId;
                                                          stackName;
                                                          description;
                                                          parameters;
                                                          creationTime;
                                                          executionStatus;
                                                          status;
                                                          statusReason;
                                                          stackDriftStatus;
                                                          notificationARNs;
                                                          rollbackConfiguration;
                                                          capabilities;
                                                          tags;
                                                          changes;
                                                          nextToken;
                                                          includeNestedStacks;
                                                          parentChangeSetId;
                                                          rootChangeSetId;
                                                          onStackFailure;
                                                          importExistingResources;
                                                          deploymentMode
                                                        };
                                                      responseMetaData = ()
                                                    }
    let error_of_json name json =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException
            (ChangeSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException (ChangeSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ChangeSetNotFoundException e ->
          `Assoc
            [("error", (`String "ChangeSetNotFoundException"));
            ("details", (ChangeSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeChangeSetResult in
      structure_to_wrapped_value
        [("ChangeSetName",
           (Option.map x.changeSetName ~f:ChangeSetName.to_value));
        ("ChangeSetId", (Option.map x.changeSetId ~f:ChangeSetId.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus ~f:ExecutionStatus.to_value));
        ("Status", (Option.map x.status ~f:ChangeSetStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ChangeSetStatusReason.to_value));
        ("StackDriftStatus",
          (Option.map x.stackDriftStatus ~f:StackDriftStatus.to_value));
        ("NotificationARNs",
          (Option.map x.notificationARNs ~f:NotificationARNs.to_value));
        ("RollbackConfiguration",
          (Option.map x.rollbackConfiguration
             ~f:RollbackConfiguration.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("Changes", (Option.map x.changes ~f:Changes.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("IncludeNestedStacks",
          (Option.map x.includeNestedStacks ~f:IncludeNestedStacks.to_value));
        ("ParentChangeSetId",
          (Option.map x.parentChangeSetId ~f:ChangeSetId.to_value));
        ("RootChangeSetId",
          (Option.map x.rootChangeSetId ~f:ChangeSetId.to_value));
        ("OnStackFailure",
          (Option.map x.onStackFailure ~f:OnStackFailure.to_value));
        ("ImportExistingResources",
          (Option.map x.importExistingResources
             ~f:ImportExistingResources.to_value));
        ("DeploymentMode",
          (Option.map x.deploymentMode ~f:DeploymentMode.to_value))]
        ~wrapper:"DescribeChangeSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeChangeSetResult" in
      let deploymentMode =
        (Option.map ~f:DeploymentMode.of_xml)
          (Xml.child xml_arg0 "DeploymentMode") in
      let importExistingResources =
        (Option.map ~f:ImportExistingResources.of_xml)
          (Xml.child xml_arg0 "ImportExistingResources") in
      let onStackFailure =
        (Option.map ~f:OnStackFailure.of_xml)
          (Xml.child xml_arg0 "OnStackFailure") in
      let rootChangeSetId =
        (Option.map ~f:ChangeSetId.of_xml)
          (Xml.child xml_arg0 "RootChangeSetId") in
      let parentChangeSetId =
        (Option.map ~f:ChangeSetId.of_xml)
          (Xml.child xml_arg0 "ParentChangeSetId") in
      let includeNestedStacks =
        (Option.map ~f:IncludeNestedStacks.of_xml)
          (Xml.child xml_arg0 "IncludeNestedStacks") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let changes =
        (Option.map ~f:Changes.of_xml) (Xml.child xml_arg0 "Changes") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let rollbackConfiguration =
        (Option.map ~f:RollbackConfiguration.of_xml)
          (Xml.child xml_arg0 "RollbackConfiguration") in
      let notificationARNs =
        (Option.map ~f:NotificationARNs.of_xml)
          (Xml.child xml_arg0 "NotificationARNs") in
      let stackDriftStatus =
        (Option.map ~f:StackDriftStatus.of_xml)
          (Xml.child xml_arg0 "StackDriftStatus") in
      let statusReason =
        (Option.map ~f:ChangeSetStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:ChangeSetStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let executionStatus =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let changeSetId =
        (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "ChangeSetId") in
      let changeSetName =
        (Option.map ~f:ChangeSetName.of_xml)
          (Xml.child xml_arg0 "ChangeSetName") in
      make ?deploymentMode ?importExistingResources ?onStackFailure
        ?rootChangeSetId ?parentChangeSetId ?includeNestedStacks ?nextToken
        ?changes ?tags ?capabilities ?rollbackConfiguration ?notificationARNs
        ?stackDriftStatus ?statusReason ?status ?executionStatus
        ?creationTime ?parameters ?description ?stackName ?stackId
        ?changeSetId ?changeSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentMode =
        field_map json__ "DeploymentMode" DeploymentMode.of_json in
      let importExistingResources =
        field_map json__ "ImportExistingResources"
          ImportExistingResources.of_json in
      let onStackFailure =
        field_map json__ "OnStackFailure" OnStackFailure.of_json in
      let rootChangeSetId =
        field_map json__ "RootChangeSetId" ChangeSetId.of_json in
      let parentChangeSetId =
        field_map json__ "ParentChangeSetId" ChangeSetId.of_json in
      let includeNestedStacks =
        field_map json__ "IncludeNestedStacks" IncludeNestedStacks.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let changes = field_map json__ "Changes" Changes.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let rollbackConfiguration =
        field_map json__ "RollbackConfiguration"
          RollbackConfiguration.of_json in
      let notificationARNs =
        field_map json__ "NotificationARNs" NotificationARNs.of_json in
      let stackDriftStatus =
        field_map json__ "StackDriftStatus" StackDriftStatus.of_json in
      let statusReason =
        field_map json__ "StatusReason" ChangeSetStatusReason.of_json in
      let status = field_map json__ "Status" ChangeSetStatus.of_json in
      let executionStatus =
        field_map json__ "ExecutionStatus" ExecutionStatus.of_json in
      let creationTime = field_map json__ "CreationTime" CreationTime.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let changeSetId = field_map json__ "ChangeSetId" ChangeSetId.of_json in
      let changeSetName =
        field_map json__ "ChangeSetName" ChangeSetName.of_json in
      make ?deploymentMode ?importExistingResources ?onStackFailure
        ?rootChangeSetId ?parentChangeSetId ?includeNestedStacks ?nextToken
        ?changes ?tags ?capabilities ?rollbackConfiguration ?notificationARNs
        ?stackDriftStatus ?statusReason ?status ?executionStatus
        ?creationTime ?parameters ?description ?stackName ?stackId
        ?changeSetId ?changeSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the DescribeChangeSet action."]
module DescribeChangeSetInput =
  struct
    type nonrec t =
      {
      changeSetName: ChangeSetNameOrId.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the change set that you want to describe."];
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "If you specified the name of a change set, specify the stack name or ID (ARN) of the change set you want to describe."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      includePropertyValues: IncludePropertyValues.t option
        [@ocaml.doc
          "If true, the returned changes include detailed changes in the property values."]}
    let context_ = "DescribeChangeSetInput"
    let make ?stackName =
      fun ?nextToken ->
        fun ?includePropertyValues ->
          fun ~changeSetName ->
            fun () ->
              { stackName; nextToken; includePropertyValues; changeSetName }
    let to_value x =
      structure_to_value
        [("ChangeSetName",
           (Some (ChangeSetNameOrId.to_value x.changeSetName)));
        ("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("IncludePropertyValues",
          (Option.map x.includePropertyValues
             ~f:IncludePropertyValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includePropertyValues =
        (Option.map ~f:IncludePropertyValues.of_xml)
          (Xml.child xml_arg0 "IncludePropertyValues") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      let changeSetName =
        ChangeSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChangeSetName") in
      make ?includePropertyValues ?nextToken ?stackName ~changeSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includePropertyValues =
        field_map json__ "IncludePropertyValues"
          IncludePropertyValues.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      let changeSetName =
        field_map_exn json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      make ?includePropertyValues ?nextToken ?stackName ~changeSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the DescribeChangeSet action."]
module DescribeChangeSetHooksOutput =
  struct
    type describeChangeSetHooksResult =
      {
      changeSetId: ChangeSetId.t option
        [@ocaml.doc "The change set identifier (stack ID)."];
      changeSetName: ChangeSetName.t option
        [@ocaml.doc "The change set name."];
      hooks: ChangeSetHooks.t option [@ocaml.doc "List of Hook objects."];
      status: ChangeSetHooksStatus.t option
        [@ocaml.doc "Provides the status of the change set Hook."];
      nextToken: NextToken.t option
        [@ocaml.doc "Pagination token, null or empty if no more results."];
      stackId: StackId.t option
        [@ocaml.doc "The stack identifier (stack ID)."];
      stackName: StackName.t option [@ocaml.doc "The stack name."]}
    and responseMetaData = unit
    and t =
      {
      describeChangeSetHooksResult: describeChangeSetHooksResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ChangeSetNotFoundException of ChangeSetNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeChangeSetHooksOutput"
    let make ?changeSetId =
      fun ?changeSetName ->
        fun ?hooks ->
          fun ?status ->
            fun ?nextToken ->
              fun ?stackId ->
                fun ?stackName ->
                  fun () ->
                    {
                      describeChangeSetHooksResult =
                        {
                          changeSetId;
                          changeSetName;
                          hooks;
                          status;
                          nextToken;
                          stackId;
                          stackName
                        };
                      responseMetaData = ()
                    }
    let error_of_json name json =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException
            (ChangeSetNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ChangeSetNotFoundException" ->
          `ChangeSetNotFoundException (ChangeSetNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ChangeSetNotFoundException e ->
          `Assoc
            [("error", (`String "ChangeSetNotFoundException"));
            ("details", (ChangeSetNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeChangeSetHooksResult in
      structure_to_wrapped_value
        [("ChangeSetId", (Option.map x.changeSetId ~f:ChangeSetId.to_value));
        ("ChangeSetName",
          (Option.map x.changeSetName ~f:ChangeSetName.to_value));
        ("Hooks", (Option.map x.hooks ~f:ChangeSetHooks.to_value));
        ("Status", (Option.map x.status ~f:ChangeSetHooksStatus.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value))]
        ~wrapper:"DescribeChangeSetHooksResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeChangeSetHooksResult" in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let status =
        (Option.map ~f:ChangeSetHooksStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let hooks =
        (Option.map ~f:ChangeSetHooks.of_xml) (Xml.child xml_arg0 "Hooks") in
      let changeSetName =
        (Option.map ~f:ChangeSetName.of_xml)
          (Xml.child xml_arg0 "ChangeSetName") in
      let changeSetId =
        (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "ChangeSetId") in
      make ?stackName ?stackId ?nextToken ?status ?hooks ?changeSetName
        ?changeSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackName = field_map json__ "StackName" StackName.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let status = field_map json__ "Status" ChangeSetHooksStatus.of_json in
      let hooks = field_map json__ "Hooks" ChangeSetHooks.of_json in
      let changeSetName =
        field_map json__ "ChangeSetName" ChangeSetName.of_json in
      let changeSetId = field_map json__ "ChangeSetId" ChangeSetId.of_json in
      make ?stackName ?stackId ?nextToken ?status ?hooks ?changeSetName
        ?changeSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns Hook-related information for the change set and a list of changes that CloudFormation makes when you run the change set."]
module DescribeChangeSetHooksInput =
  struct
    type nonrec t =
      {
      changeSetName: ChangeSetNameOrId.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the change set that you want to describe."];
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "If you specified the name of a change set, specify the stack name or stack ID (ARN) of the change set you want to describe."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"];
      logicalResourceId: LogicalResourceId.t option
        [@ocaml.doc
          "If specified, lists only the Hooks related to the specified LogicalResourceId."]}
    let context_ = "DescribeChangeSetHooksInput"
    let make ?stackName =
      fun ?nextToken ->
        fun ?logicalResourceId ->
          fun ~changeSetName ->
            fun () ->
              { stackName; nextToken; logicalResourceId; changeSetName }
    let to_value x =
      structure_to_value
        [("ChangeSetName",
           (Some (ChangeSetNameOrId.to_value x.changeSetName)));
        ("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("LogicalResourceId",
          (Option.map x.logicalResourceId ~f:LogicalResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logicalResourceId =
        (Option.map ~f:LogicalResourceId.of_xml)
          (Xml.child xml_arg0 "LogicalResourceId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      let changeSetName =
        ChangeSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChangeSetName") in
      make ?logicalResourceId ?nextToken ?stackName ~changeSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logicalResourceId =
        field_map json__ "LogicalResourceId" LogicalResourceId.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      let changeSetName =
        field_map_exn json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      make ?logicalResourceId ?nextToken ?stackName ~changeSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns Hook-related information for the change set and a list of changes that CloudFormation makes when you run the change set."]
module DescribeAccountLimitsOutput =
  struct
    type describeAccountLimitsResult =
      {
      accountLimits: AccountLimitList.t option
        [@ocaml.doc
          "An account limit structure that contain a list of CloudFormation account limits and their values."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the output exceeds 1 MB in size, a string that identifies the next page of limits. If no additional page exists, this value is null."]}
    and responseMetaData = unit
    and t =
      {
      describeAccountLimitsResult: describeAccountLimitsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "DescribeAccountLimitsOutput"
    let make ?accountLimits =
      fun ?nextToken ->
        fun () ->
          {
            describeAccountLimitsResult = { accountLimits; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeAccountLimitsResult in
      structure_to_wrapped_value
        [("AccountLimits",
           (Option.map x.accountLimits ~f:AccountLimitList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"DescribeAccountLimitsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeAccountLimitsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let accountLimits =
        (Option.map ~f:AccountLimitList.of_xml)
          (Xml.child xml_arg0 "AccountLimits") in
      make ?nextToken ?accountLimits ()
    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 accountLimits =
        field_map json__ "AccountLimits" AccountLimitList.of_json in
      make ?nextToken ?accountLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the DescribeAccountLimits action."]
module DescribeAccountLimitsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. (You received this token from a previous call.)"]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_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
      make ?nextToken ()
    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
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the DescribeAccountLimits action."]
module DeregisterTypeOutput =
  struct
    type deregisterTypeResult = unit
    and responseMetaData = unit
    and t =
      {
      deregisterTypeResult: deregisterTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { deregisterTypeResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.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
       "Marks an extension or extension version as DEPRECATED in the CloudFormation registry, removing it from active use. Deprecated extensions or extension versions cannot be used in CloudFormation operations. To deregister an entire extension, you must individually deregister all active versions of that extension. If an extension has only a single active version, deregistering that version results in the extension itself being deregistered and marked as deprecated in the registry. You can't deregister the default version of an extension if there are other active version of that extension. If you do deregister the default version of an extension, the extension type itself is deregistered as well and marked as deprecated. To view the deprecation status of an extension or extension version, use DescribeType. For more information, see Remove third-party private extensions from your account in the CloudFormation User Guide."]
module DeregisterTypeInput =
  struct
    type nonrec t =
      {
      arn: PrivateTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      type_: RegistryType.t option
        [@ocaml.doc
          "The kind of extension. Conditional: You must specify either TypeName and Type, or Arn."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify either TypeName and Type, or Arn."];
      versionId: TypeVersionId.t option
        [@ocaml.doc
          "The ID of a specific version of the extension. The version ID is the value at the end of the Amazon Resource Name (ARN) assigned to the extension version when it is registered."]}
    let make ?arn =
      fun ?type_ ->
        fun ?typeName ->
          fun ?versionId -> fun () -> { arn; type_; typeName; versionId }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:PrivateTypeArn.to_value));
        ("Type", (Option.map x.type_ ~f:RegistryType.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("VersionId", (Option.map x.versionId ~f:TypeVersionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        (Option.map ~f:TypeVersionId.of_xml) (Xml.child xml_arg0 "VersionId") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let type_ =
        (Option.map ~f:RegistryType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn =
        (Option.map ~f:PrivateTypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?versionId ?typeName ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId = field_map json__ "VersionId" TypeVersionId.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let type_ = field_map json__ "Type" RegistryType.of_json in
      let arn = field_map json__ "Arn" PrivateTypeArn.of_json in
      make ?versionId ?typeName ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Marks an extension or extension version as DEPRECATED in the CloudFormation registry, removing it from active use. Deprecated extensions or extension versions cannot be used in CloudFormation operations. To deregister an entire extension, you must individually deregister all active versions of that extension. If an extension has only a single active version, deregistering that version results in the extension itself being deregistered and marked as deprecated in the registry. You can't deregister the default version of an extension if there are other active version of that extension. If you do deregister the default version of an extension, the extension type itself is deregistered as well and marked as deprecated. To view the deprecation status of an extension or extension version, use DescribeType. For more information, see Remove third-party private extensions from your account in the CloudFormation User Guide."]
module DeleteStackSetOutput =
  struct
    type deleteStackSetResult = unit
    and responseMetaData = unit
    and t =
      {
      deleteStackSetResult: deleteStackSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `OperationInProgressException of OperationInProgressException.t 
      | `StackSetNotEmptyException of StackSetNotEmptyException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { deleteStackSetResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackSetNotEmptyException" ->
          `StackSetNotEmptyException (StackSetNotEmptyException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackSetNotEmptyException" ->
          `StackSetNotEmptyException (StackSetNotEmptyException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackSetNotEmptyException e ->
          `Assoc
            [("error", (`String "StackSetNotEmptyException"));
            ("details", (StackSetNotEmptyException.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 a StackSet. Before you can delete a StackSet, all its member stack instances must be deleted. For more information about how to complete this, see DeleteStackInstances."]
module DeleteStackSetInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you're deleting. You can obtain this value by running ListStackSets."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DeleteStackSetInput"
    let make ?callAs =
      fun ~stackSetName -> fun () -> { callAs; stackSetName }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a StackSet. Before you can delete a StackSet, all its member stack instances must be deleted. For more information about how to complete this, see DeleteStackInstances."]
module DeleteStackInstancesOutput =
  struct
    type deleteStackInstancesResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique identifier for this StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      deleteStackInstancesResult: deleteStackInstancesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationIdAlreadyExistsException of
          OperationIdAlreadyExistsException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `StaleRequestException of StaleRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DeleteStackInstancesOutput"
    let make ?operationId =
      fun () ->
        { deleteStackInstancesResult = { operationId }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationIdAlreadyExistsException e ->
          `Assoc
            [("error", (`String "OperationIdAlreadyExistsException"));
            ("details", (OperationIdAlreadyExistsException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `StaleRequestException e ->
          `Assoc
            [("error", (`String "StaleRequestException"));
            ("details", (StaleRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.deleteStackInstancesResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"DeleteStackInstancesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DeleteStackInstancesResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes stack instances for the specified accounts, in the specified Amazon Web Services Regions. The maximum number of organizational unit (OUs) supported by a DeleteStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module DeleteStackInstancesInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to delete stack instances for."];
      accounts: AccountList.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The account IDs of the Amazon Web Services accounts that you want to delete stack instances for. You can specify Accounts or DeploymentTargets, but not both."];
      deploymentTargets: DeploymentTargets.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The Organizations accounts from which to delete stack instances. You can specify Accounts or DeploymentTargets, but not both."];
      regions: RegionList.t
        [@ocaml.doc
          "The Amazon Web Services Regions where you want to delete StackSet instances."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "Preferences for how CloudFormation performs this StackSet operation."];
      retainStacks: RetainStacks.t
        [@ocaml.doc
          "Removes the stack instances from the specified StackSet, but doesn't delete the stacks. You can't reassociate a retained stack or add an existing, saved stack to a new stack set. For more information, see StackSet operation options."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "The unique identifier for this StackSet operation. If you don't specify an operation ID, the SDK generates one automatically. The operation ID also functions as an idempotency token, to ensure that CloudFormation performs the StackSet operation only once, even if you retry the request multiple times. You can retry StackSet operation requests to ensure that CloudFormation successfully received them. Repeating this StackSet operation with a new operation ID retries all stack instances whose status is OUTDATED."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "DeleteStackInstancesInput"
    let make ?accounts =
      fun ?deploymentTargets ->
        fun ?operationPreferences ->
          fun ?operationId ->
            fun ?callAs ->
              fun ~stackSetName ->
                fun ~regions ->
                  fun ~retainStacks ->
                    fun () ->
                      {
                        accounts;
                        deploymentTargets;
                        operationPreferences;
                        operationId;
                        callAs;
                        stackSetName;
                        regions;
                        retainStacks
                      }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("DeploymentTargets",
          (Option.map x.deploymentTargets ~f:DeploymentTargets.to_value));
        ("Regions", (Some (RegionList.to_value x.regions)));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("RetainStacks", (Some (RetainStacks.to_value x.retainStacks)));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let retainStacks =
        RetainStacks.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RetainStacks") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let regions =
        RegionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Regions") in
      let deploymentTargets =
        (Option.map ~f:DeploymentTargets.of_xml)
          (Xml.child xml_arg0 "DeploymentTargets") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?operationId ~retainStacks ?operationPreferences ~regions
        ?deploymentTargets ?accounts ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let retainStacks =
        field_map_exn json__ "RetainStacks" RetainStacks.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let regions = field_map_exn json__ "Regions" RegionList.of_json in
      let deploymentTargets =
        field_map json__ "DeploymentTargets" DeploymentTargets.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ?operationId ~retainStacks ?operationPreferences ~regions
        ?deploymentTargets ?accounts ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes stack instances for the specified accounts, in the specified Amazon Web Services Regions. The maximum number of organizational unit (OUs) supported by a DeleteStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module DeleteStackInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name or the unique stack ID that's associated with the stack."];
      retainResources: RetainResources.t option
        [@ocaml.doc
          "For stacks in the DELETE_FAILED state, a list of resource logical IDs that are associated with the resources you want to retain. During deletion, CloudFormation deletes the stack but doesn't delete the retained resources. Retaining resources is useful when you can't delete a resource, such as a non-empty S3 bucket, but you want to delete the stack."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes to delete the stack. CloudFormation uses the role's credentials to make calls on your behalf. If you don't specify a value, CloudFormation uses the role that was previously associated with the stack. If no role is available, CloudFormation uses a temporary session that's generated from your user credentials."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this DeleteStack request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to delete a stack with the same name. You might retry DeleteStack requests to ensure that CloudFormation successfully received them. All events initiated by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a CreateStack operation with the token token1, then all the StackEvents generated by that operation will have ClientRequestToken set as token1. In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format Console-StackOperation-ID, which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002."];
      deletionMode: DeletionMode.t option
        [@ocaml.doc
          "Specifies the deletion mode for the stack. Possible values are: STANDARD - Use the standard behavior. Specifying this value is the same as not specifying this parameter. FORCE_DELETE_STACK - Delete the stack if it's stuck in a DELETE_FAILED state due to resource deletion failure."]}
    let context_ = "DeleteStackInput"
    let make ?retainResources =
      fun ?roleARN ->
        fun ?clientRequestToken ->
          fun ?deletionMode ->
            fun ~stackName ->
              fun () ->
                {
                  retainResources;
                  roleARN;
                  clientRequestToken;
                  deletionMode;
                  stackName
                }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("RetainResources",
          (Option.map x.retainResources ~f:RetainResources.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("DeletionMode",
          (Option.map x.deletionMode ~f:DeletionMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionMode =
        (Option.map ~f:DeletionMode.of_xml)
          (Xml.child xml_arg0 "DeletionMode") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let retainResources =
        (Option.map ~f:RetainResources.of_xml)
          (Xml.child xml_arg0 "RetainResources") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?deletionMode ?clientRequestToken ?roleARN ?retainResources
        ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionMode = field_map json__ "DeletionMode" DeletionMode.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let retainResources =
        field_map json__ "RetainResources" RetainResources.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?deletionMode ?clientRequestToken ?roleARN ?retainResources
        ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for DeleteStack action."]
module DeleteGeneratedTemplateInput =
  struct
    type nonrec t =
      {
      generatedTemplateName: GeneratedTemplateName.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of a generated template."]}
    let context_ = "DeleteGeneratedTemplateInput"
    let make ~generatedTemplateName = fun () -> { generatedTemplateName }
    let to_value x =
      structure_to_value
        [("GeneratedTemplateName",
           (Some (GeneratedTemplateName.to_value x.generatedTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generatedTemplateName =
        GeneratedTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedTemplateName") in
      make ~generatedTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedTemplateName =
        field_map_exn json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      make ~generatedTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deleted a generated template."]
module DeleteChangeSetOutput =
  struct
    type deleteChangeSetResult = unit
    and responseMetaData = unit
    and t =
      {
      deleteChangeSetResult: deleteChangeSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `InvalidChangeSetStatusException of InvalidChangeSetStatusException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { deleteChangeSetResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidChangeSetStatusException" ->
          `InvalidChangeSetStatusException
            (InvalidChangeSetStatusException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidChangeSetStatusException" ->
          `InvalidChangeSetStatusException
            (InvalidChangeSetStatusException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidChangeSetStatusException e ->
          `Assoc
            [("error", (`String "InvalidChangeSetStatusException"));
            ("details", (InvalidChangeSetStatusException.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 "The output for the DeleteChangeSet action."]
module DeleteChangeSetInput =
  struct
    type nonrec t =
      {
      changeSetName: ChangeSetNameOrId.t
        [@ocaml.doc
          "The name or Amazon Resource Name (ARN) of the change set that you want to delete."];
      stackName: StackNameOrId.t option
        [@ocaml.doc
          "If you specified the name of a change set to delete, specify the stack name or Amazon Resource Name (ARN) that's associated with it."]}
    let context_ = "DeleteChangeSetInput"
    let make ?stackName =
      fun ~changeSetName -> fun () -> { stackName; changeSetName }
    let to_value x =
      structure_to_value
        [("ChangeSetName",
           (Some (ChangeSetNameOrId.to_value x.changeSetName)));
        ("StackName", (Option.map x.stackName ~f:StackNameOrId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackName =
        (Option.map ~f:StackNameOrId.of_xml) (Xml.child xml_arg0 "StackName") in
      let changeSetName =
        ChangeSetNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChangeSetName") in
      make ?stackName ~changeSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackName = field_map json__ "StackName" StackNameOrId.of_json in
      let changeSetName =
        field_map_exn json__ "ChangeSetName" ChangeSetNameOrId.of_json in
      make ?stackName ~changeSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the DeleteChangeSet action."]
module DeactivateTypeOutput =
  struct
    type deactivateTypeResult = unit
    and responseMetaData = unit
    and t =
      {
      deactivateTypeResult: deactivateTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { deactivateTypeResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.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
       "Deactivates a public third-party extension, such as a resource or module, or a CloudFormation Hook when you no longer use it. Deactivating an extension deletes the configuration details that are associated with it. To temporarily disable a CloudFormation Hook instead, you can use SetTypeConfiguration. Once deactivated, an extension can't be used in any CloudFormation operation. This includes stack update operations where the stack template includes the extension, even if no updates are being made to the extension. In addition, deactivated extensions aren't automatically updated if a new version of the extension is released. To see which extensions are currently activated, use ListTypes."]
module DeactivateTypeInput =
  struct
    type nonrec t =
      {
      typeName: TypeName.t option
        [@ocaml.doc
          "The type name of the extension in this account and Region. If you specified a type name alias when enabling the extension, use the type name alias. Conditional: You must specify either Arn, or TypeName and Type."];
      type_: ThirdPartyType.t option
        [@ocaml.doc
          "The extension type. Conditional: You must specify either Arn, or TypeName and Type."];
      arn: PrivateTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the extension in this account and Region. Conditional: You must specify either Arn, or TypeName and Type."]}
    let make ?typeName =
      fun ?type_ -> fun ?arn -> fun () -> { typeName; type_; arn }
    let to_value x =
      structure_to_value
        [("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value));
        ("Arn", (Option.map x.arn ~f:PrivateTypeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PrivateTypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      make ?arn ?type_ ?typeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" PrivateTypeArn.of_json in
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      make ?arn ?type_ ?typeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deactivates a public third-party extension, such as a resource or module, or a CloudFormation Hook when you no longer use it. Deactivating an extension deletes the configuration details that are associated with it. To temporarily disable a CloudFormation Hook instead, you can use SetTypeConfiguration. Once deactivated, an extension can't be used in any CloudFormation operation. This includes stack update operations where the stack template includes the extension, even if no updates are being made to the extension. In addition, deactivated extensions aren't automatically updated if a new version of the extension is released. To see which extensions are currently activated, use ListTypes."]
module DeactivateOrganizationsAccessOutput =
  struct
    type deactivateOrganizationsAccessResult = unit
    and responseMetaData = unit
    and t =
      {
      deactivateOrganizationsAccessResult:
        deactivateOrganizationsAccessResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationNotFoundException of OperationNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { deactivateOrganizationsAccessResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.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
       "Deactivates trusted access with Organizations. If trusted access is deactivated, the management account does not have permissions to create and manage service-managed StackSets for your organization."]
module DeactivateOrganizationsAccessInput =
  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
       "Deactivates trusted access with Organizations. If trusted access is deactivated, the management account does not have permissions to create and manage service-managed StackSets for your organization."]
module CreateStackSetOutput =
  struct
    type createStackSetResult =
      {
      stackSetId: StackSetId.t option
        [@ocaml.doc "The ID of the StackSet that you're creating."]}
    and responseMetaData = unit
    and t =
      {
      createStackSetResult: createStackSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CreatedButModifiedException of CreatedButModifiedException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NameAlreadyExistsException of NameAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateStackSetOutput"
    let make ?stackSetId =
      fun () ->
        { createStackSetResult = { stackSetId }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CreatedButModifiedException" ->
          `CreatedButModifiedException
            (CreatedButModifiedException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NameAlreadyExistsException" ->
          `NameAlreadyExistsException
            (NameAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CreatedButModifiedException" ->
          `CreatedButModifiedException
            (CreatedButModifiedException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NameAlreadyExistsException" ->
          `NameAlreadyExistsException (NameAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CreatedButModifiedException e ->
          `Assoc
            [("error", (`String "CreatedButModifiedException"));
            ("details", (CreatedButModifiedException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NameAlreadyExistsException e ->
          `Assoc
            [("error", (`String "NameAlreadyExistsException"));
            ("details", (NameAlreadyExistsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createStackSetResult in
      structure_to_wrapped_value
        [("StackSetId", (Option.map x.stackSetId ~f:StackSetId.to_value))]
        ~wrapper:"CreateStackSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "CreateStackSetResult" in
      let stackSetId =
        (Option.map ~f:StackSetId.of_xml) (Xml.child xml_arg0 "StackSetId") in
      make ?stackSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackSetId = field_map json__ "StackSetId" StackSetId.of_json in
      make ?stackSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a StackSet."]
module CreateStackSetInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name to associate with the StackSet. The name must be unique in the Region where you create your StackSet. A stack name can contain only alphanumeric characters (case-sensitive) and hyphens. It must start with an alphabetic character and can't be longer than 128 characters."];
      description: Description.t option
        [@ocaml.doc
          "A description of the StackSet. You can use the description to identify the StackSet's purpose or other important information."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template (maximum size: 1 MB) that's located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. S3 static website URLs are not supported. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both."];
      stackId: StackId.t option
        [@ocaml.doc
          "The stack ID you are importing into a new StackSet. Specify the Amazon Resource Name (ARN) of the stack."];
      parameters: Parameters.t option
        [@ocaml.doc "The input parameters for the StackSet template."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "In some cases, you must explicitly acknowledge that your StackSet template contains certain capabilities in order for CloudFormation to create the StackSet and related stack instances. CAPABILITY_IAM and CAPABILITY_NAMED_IAM Some stack templates might include resources that can affect permissions in your Amazon Web Services account; for example, by creating new IAM users. For those StackSets, you must explicitly acknowledge this by specifying one of these capabilities. The following IAM resources require you to specify either the CAPABILITY_IAM or CAPABILITY_NAMED_IAM capability. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify either of these capabilities, CloudFormation returns an InsufficientCapabilities error. If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. AWS::IAM::AccessKey AWS::IAM::Group AWS::IAM::InstanceProfile AWS::IAM::Policy AWS::IAM::Role AWS::IAM::User AWS::IAM::UserToGroupAddition For more information, see Acknowledging IAM resources in CloudFormation templates. CAPABILITY_AUTO_EXPAND Some templates reference macros. If your StackSet template references one or more macros, you must create the StackSet directly from the processed template, without first reviewing the resulting changes in a change set. To create the StackSet directly, you must acknowledge this capability. For more information, see Perform custom processing on CloudFormation templates with template macros. StackSets with service-managed permissions don't currently support the use of macros in templates. (This includes the AWS::Include and AWS::Serverless transforms, which are macros hosted by CloudFormation.) Even if you specify this capability for a StackSet with service-managed permissions, if you reference a macro in your template the StackSet operation will fail."];
      tags: Tags.t option
        [@ocaml.doc
          "The key-value pairs to associate with this StackSet and the stacks created from it. CloudFormation also propagates these tags to supported resources that are created in the stacks. A maximum number of 50 tags can be specified. If you specify tags as part of a CreateStackSet action, CloudFormation checks to see if you have the required IAM permission to tag resources. If you don't, the entire CreateStackSet action fails with an access denied error, and the StackSet is not created."];
      administrationRoleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to use to create this StackSet. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific StackSets within the same administrator account. For more information, see Grant self-managed permissions in the CloudFormation User Guide. Valid only if the permissions model is SELF_MANAGED."];
      executionRoleName: ExecutionRoleName.t option
        [@ocaml.doc
          "The name of the IAM execution role to use to create the StackSet. If you do not specify an execution role, CloudFormation uses the AWSCloudFormationStackSetExecutionRole role for the StackSet operation. Specify an IAM role only if you are using customized execution roles to control which stack resources users and groups can include in their StackSets. Valid only if the permissions model is SELF_MANAGED."];
      permissionModel: PermissionModels.t option
        [@ocaml.doc
          "Describes how the IAM roles required for StackSet operations are created. By default, SELF-MANAGED is specified. With self-managed permissions, you must create the administrator and execution roles required to deploy to target accounts. For more information, see Grant self-managed permissions. With service-managed permissions, StackSets automatically creates the IAM roles required to deploy to accounts managed by Organizations. For more information, see Activate trusted access for StackSets with Organizations."];
      autoDeployment: AutoDeployment.t option
        [@ocaml.doc
          "Describes whether StackSets automatically deploys to Organizations accounts that are added to the target organization or organizational unit (OU). For more information, see Enable or disable automatic deployments for StackSets in Organizations in the CloudFormation User Guide. Required if the permissions model is SERVICE_MANAGED. (Not used with self-managed permissions.)"];
      callAs: CallAs.t option
        [@ocaml.doc
          "Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. To create a StackSet with service-managed permissions while signed in to the management account, specify SELF. To create a StackSet with service-managed permissions while signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated admin in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide. StackSets with service-managed permissions are created in the management account, including StackSets that are created by delegated administrators. Valid only if the permissions model is SERVICE_MANAGED."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this CreateStackSet request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to create another StackSet with the same name. You might retry CreateStackSet requests to ensure that CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically."];
      managedExecution: ManagedExecution.t option
        [@ocaml.doc
          "Describes whether CloudFormation performs non-conflicting operations concurrently and queues conflicting operations."]}
    let context_ = "CreateStackSetInput"
    let make ?description =
      fun ?templateBody ->
        fun ?templateURL ->
          fun ?stackId ->
            fun ?parameters ->
              fun ?capabilities ->
                fun ?tags ->
                  fun ?administrationRoleARN ->
                    fun ?executionRoleName ->
                      fun ?permissionModel ->
                        fun ?autoDeployment ->
                          fun ?callAs ->
                            fun ?clientRequestToken ->
                              fun ?managedExecution ->
                                fun ~stackSetName ->
                                  fun () ->
                                    {
                                      description;
                                      templateBody;
                                      templateURL;
                                      stackId;
                                      parameters;
                                      capabilities;
                                      tags;
                                      administrationRoleARN;
                                      executionRoleName;
                                      permissionModel;
                                      autoDeployment;
                                      callAs;
                                      clientRequestToken;
                                      managedExecution;
                                      stackSetName
                                    }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("AdministrationRoleARN",
          (Option.map x.administrationRoleARN ~f:RoleARN.to_value));
        ("ExecutionRoleName",
          (Option.map x.executionRoleName ~f:ExecutionRoleName.to_value));
        ("PermissionModel",
          (Option.map x.permissionModel ~f:PermissionModels.to_value));
        ("AutoDeployment",
          (Option.map x.autoDeployment ~f:AutoDeployment.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("ManagedExecution",
          (Option.map x.managedExecution ~f:ManagedExecution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedExecution =
        (Option.map ~f:ManagedExecution.of_xml)
          (Xml.child xml_arg0 "ManagedExecution") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let autoDeployment =
        (Option.map ~f:AutoDeployment.of_xml)
          (Xml.child xml_arg0 "AutoDeployment") in
      let permissionModel =
        (Option.map ~f:PermissionModels.of_xml)
          (Xml.child xml_arg0 "PermissionModel") in
      let executionRoleName =
        (Option.map ~f:ExecutionRoleName.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleName") in
      let administrationRoleARN =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "AdministrationRoleARN") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?managedExecution ?clientRequestToken ?callAs ?autoDeployment
        ?permissionModel ?executionRoleName ?administrationRoleARN ?tags
        ?capabilities ?parameters ?stackId ?templateURL ?templateBody
        ?description ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedExecution =
        field_map json__ "ManagedExecution" ManagedExecution.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let autoDeployment =
        field_map json__ "AutoDeployment" AutoDeployment.of_json in
      let permissionModel =
        field_map json__ "PermissionModel" PermissionModels.of_json in
      let executionRoleName =
        field_map json__ "ExecutionRoleName" ExecutionRoleName.of_json in
      let administrationRoleARN =
        field_map json__ "AdministrationRoleARN" RoleARN.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?managedExecution ?clientRequestToken ?callAs ?autoDeployment
        ?permissionModel ?executionRoleName ?administrationRoleARN ?tags
        ?capabilities ?parameters ?stackId ?templateURL ?templateBody
        ?description ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a StackSet."]
module CreateStackRefactorOutput =
  struct
    type createStackRefactorResult =
      {
      stackRefactorId: StackRefactorId.t option
        [@ocaml.doc
          "The ID associated with the stack refactor created from the CreateStackRefactor action."]}
    and responseMetaData = unit
    and t =
      {
      createStackRefactorResult: createStackRefactorResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateStackRefactorOutput"
    let make ?stackRefactorId =
      fun () ->
        {
          createStackRefactorResult = { stackRefactorId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createStackRefactorResult in
      structure_to_wrapped_value
        [("StackRefactorId",
           (Option.map x.stackRefactorId ~f:StackRefactorId.to_value))]
        ~wrapper:"CreateStackRefactorResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateStackRefactorResult" in
      let stackRefactorId =
        (Option.map ~f:StackRefactorId.of_xml)
          (Xml.child xml_arg0 "StackRefactorId") in
      make ?stackRefactorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackRefactorId =
        field_map json__ "StackRefactorId" StackRefactorId.of_json in
      make ?stackRefactorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a refactor across multiple stacks, with the list of stacks and resources that are affected."]
module CreateStackRefactorInput =
  struct
    type nonrec t =
      {
      description: Description.t option
        [@ocaml.doc "A description to help you identify the stack refactor."];
      enableStackCreation: EnableStackCreation.t option
        [@ocaml.doc
          "Determines if a new stack is created with the refactor."];
      resourceMappings: ResourceMappings.t option
        [@ocaml.doc
          "The mappings for the stack resource Source and stack resource Destination."];
      stackDefinitions: StackDefinitions.t
        [@ocaml.doc "The stacks being refactored."]}
    let context_ = "CreateStackRefactorInput"
    let make ?description =
      fun ?enableStackCreation ->
        fun ?resourceMappings ->
          fun ~stackDefinitions ->
            fun () ->
              {
                description;
                enableStackCreation;
                resourceMappings;
                stackDefinitions
              }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Description.to_value));
        ("EnableStackCreation",
          (Option.map x.enableStackCreation ~f:EnableStackCreation.to_value));
        ("ResourceMappings",
          (Option.map x.resourceMappings ~f:ResourceMappings.to_value));
        ("StackDefinitions",
          (Some (StackDefinitions.to_value x.stackDefinitions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackDefinitions =
        StackDefinitions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackDefinitions") in
      let resourceMappings =
        (Option.map ~f:ResourceMappings.of_xml)
          (Xml.child xml_arg0 "ResourceMappings") in
      let enableStackCreation =
        (Option.map ~f:EnableStackCreation.of_xml)
          (Xml.child xml_arg0 "EnableStackCreation") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      make ~stackDefinitions ?resourceMappings ?enableStackCreation
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackDefinitions =
        field_map_exn json__ "StackDefinitions" StackDefinitions.of_json in
      let resourceMappings =
        field_map json__ "ResourceMappings" ResourceMappings.of_json in
      let enableStackCreation =
        field_map json__ "EnableStackCreation" EnableStackCreation.of_json in
      let description = field_map json__ "Description" Description.of_json in
      make ~stackDefinitions ?resourceMappings ?enableStackCreation
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a refactor across multiple stacks, with the list of stacks and resources that are affected."]
module CreateStackOutput =
  struct
    type createStackResult =
      {
      stackId: StackId.t option
        [@ocaml.doc "Unique identifier of the stack."];
      operationId: OperationId.t option
        [@ocaml.doc
          "A unique identifier for this stack operation that can be used to track the operation's progress and events."]}
    and responseMetaData = unit
    and t =
      {
      createStackResult: createStackResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `InsufficientCapabilitiesException of
          InsufficientCapabilitiesException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TokenAlreadyExistsException of TokenAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateStackOutput"
    let make ?stackId =
      fun ?operationId ->
        fun () ->
          {
            createStackResult = { stackId; operationId };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `InsufficientCapabilitiesException e ->
          `Assoc
            [("error", (`String "InsufficientCapabilitiesException"));
            ("details", (InsufficientCapabilitiesException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `TokenAlreadyExistsException e ->
          `Assoc
            [("error", (`String "TokenAlreadyExistsException"));
            ("details", (TokenAlreadyExistsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createStackResult in
      structure_to_wrapped_value
        [("StackId", (Option.map x.stackId ~f:StackId.to_value));
        ("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
        ~wrapper:"CreateStackResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "CreateStackResult" in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      make ?operationId ?stackId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      let stackId = field_map json__ "StackId" StackId.of_json in
      make ?operationId ?stackId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for a CreateStack action."]
module CreateStackInstancesOutput =
  struct
    type createStackInstancesResult =
      {
      operationId: ClientRequestToken.t option
        [@ocaml.doc "The unique identifier for this StackSet operation."]}
    and responseMetaData = unit
    and t =
      {
      createStackInstancesResult: createStackInstancesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `OperationIdAlreadyExistsException of
          OperationIdAlreadyExistsException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `StackSetNotFoundException of StackSetNotFoundException.t 
      | `StaleRequestException of StaleRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateStackInstancesOutput"
    let make ?operationId =
      fun () ->
        { createStackInstancesResult = { operationId }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_json json)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "OperationIdAlreadyExistsException" ->
          `OperationIdAlreadyExistsException
            (OperationIdAlreadyExistsException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "StackSetNotFoundException" ->
          `StackSetNotFoundException (StackSetNotFoundException.of_xml xml)
      | "StaleRequestException" ->
          `StaleRequestException (StaleRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `OperationIdAlreadyExistsException e ->
          `Assoc
            [("error", (`String "OperationIdAlreadyExistsException"));
            ("details", (OperationIdAlreadyExistsException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `StackSetNotFoundException e ->
          `Assoc
            [("error", (`String "StackSetNotFoundException"));
            ("details", (StackSetNotFoundException.to_json e))]
      | `StaleRequestException e ->
          `Assoc
            [("error", (`String "StaleRequestException"));
            ("details", (StaleRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createStackInstancesResult in
      structure_to_wrapped_value
        [("OperationId",
           (Option.map x.operationId ~f:ClientRequestToken.to_value))]
        ~wrapper:"CreateStackInstancesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateStackInstancesResult" in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates stack instances for the specified accounts, within the specified Amazon Web Services Regions. A stack instance refers to a stack in a specific account and Region. You must specify at least one value for either Accounts or DeploymentTargets, and you must specify at least one value for Regions. The maximum number of organizational unit (OUs) supported by a CreateStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module CreateStackInstancesInput =
  struct
    type nonrec t =
      {
      stackSetName: StackSetName.t
        [@ocaml.doc
          "The name or unique ID of the StackSet that you want to create stack instances from."];
      accounts: AccountList.t option
        [@ocaml.doc
          "\\[Self-managed permissions\\] The account IDs of one or more Amazon Web Services accounts that you want to create stack instances in the specified Region(s) for. You can specify Accounts or DeploymentTargets, but not both."];
      deploymentTargets: DeploymentTargets.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] The Organizations accounts in which to create stack instances in the specified Amazon Web Services Regions. You can specify Accounts or DeploymentTargets, but not both."];
      regions: RegionList.t
        [@ocaml.doc
          "The names of one or more Amazon Web Services Regions where you want to create stack instances using the specified Amazon Web Services accounts."];
      parameterOverrides: Parameters.t option
        [@ocaml.doc
          "A list of StackSet parameters whose values you want to override in the selected stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and Amazon Web Services Regions. When specifying parameters and their values, be aware of how CloudFormation sets parameter values during stack instance operations: To override the current value for a parameter, include the parameter and specify its value. To leave an overridden parameter set to its present value, include the parameter and specify UsePreviousValue as true. (You can't specify both a value and set UsePreviousValue to true.) To set an overridden parameter back to the value specified in the StackSet, specify a parameter list but don't include the parameter in the list. To leave all parameters set to their present values, don't specify this property at all. During StackSet updates, any parameter values overridden for a stack instance aren't updated, but retain their overridden value. You can only override the parameter values that are specified in the StackSet; to add or delete a parameter itself, use UpdateStackSet to update the StackSet template."];
      operationPreferences: StackSetOperationPreferences.t option
        [@ocaml.doc
          "Preferences for how CloudFormation performs this StackSet operation."];
      operationId: ClientRequestToken.t option
        [@ocaml.doc
          "The unique identifier for this StackSet operation. The operation ID also functions as an idempotency token, to ensure that CloudFormation performs the StackSet operation only once, even if you retry the request multiple times. You might retry StackSet operation requests to ensure that CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. Repeating this StackSet operation with a new operation ID retries all stack instances whose status is OUTDATED."];
      callAs: CallAs.t option
        [@ocaml.doc
          "\\[Service-managed permissions\\] Specifies whether you are acting as an account administrator in the organization's management account or as a delegated administrator in a member account. By default, SELF is specified. Use SELF for StackSets with self-managed permissions. If you are signed in to the management account, specify SELF. If you are signed in to a delegated administrator account, specify DELEGATED_ADMIN. Your Amazon Web Services account must be registered as a delegated administrator in the management account. For more information, see Register a delegated administrator in the CloudFormation User Guide."]}
    let context_ = "CreateStackInstancesInput"
    let make ?accounts =
      fun ?deploymentTargets ->
        fun ?parameterOverrides ->
          fun ?operationPreferences ->
            fun ?operationId ->
              fun ?callAs ->
                fun ~stackSetName ->
                  fun ~regions ->
                    fun () ->
                      {
                        accounts;
                        deploymentTargets;
                        parameterOverrides;
                        operationPreferences;
                        operationId;
                        callAs;
                        stackSetName;
                        regions
                      }
    let to_value x =
      structure_to_value
        [("StackSetName", (Some (StackSetName.to_value x.stackSetName)));
        ("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("DeploymentTargets",
          (Option.map x.deploymentTargets ~f:DeploymentTargets.to_value));
        ("Regions", (Some (RegionList.to_value x.regions)));
        ("ParameterOverrides",
          (Option.map x.parameterOverrides ~f:Parameters.to_value));
        ("OperationPreferences",
          (Option.map x.operationPreferences
             ~f:StackSetOperationPreferences.to_value));
        ("OperationId",
          (Option.map x.operationId ~f:ClientRequestToken.to_value));
        ("CallAs", (Option.map x.callAs ~f:CallAs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callAs =
        (Option.map ~f:CallAs.of_xml) (Xml.child xml_arg0 "CallAs") in
      let operationId =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "OperationId") in
      let operationPreferences =
        (Option.map ~f:StackSetOperationPreferences.of_xml)
          (Xml.child xml_arg0 "OperationPreferences") in
      let parameterOverrides =
        (Option.map ~f:Parameters.of_xml)
          (Xml.child xml_arg0 "ParameterOverrides") in
      let regions =
        RegionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Regions") in
      let deploymentTargets =
        (Option.map ~f:DeploymentTargets.of_xml)
          (Xml.child xml_arg0 "DeploymentTargets") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      let stackSetName =
        StackSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackSetName") in
      make ?callAs ?operationId ?operationPreferences ?parameterOverrides
        ~regions ?deploymentTargets ?accounts ~stackSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callAs = field_map json__ "CallAs" CallAs.of_json in
      let operationId =
        field_map json__ "OperationId" ClientRequestToken.of_json in
      let operationPreferences =
        field_map json__ "OperationPreferences"
          StackSetOperationPreferences.of_json in
      let parameterOverrides =
        field_map json__ "ParameterOverrides" Parameters.of_json in
      let regions = field_map_exn json__ "Regions" RegionList.of_json in
      let deploymentTargets =
        field_map json__ "DeploymentTargets" DeploymentTargets.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      let stackSetName =
        field_map_exn json__ "StackSetName" StackSetName.of_json in
      make ?callAs ?operationId ?operationPreferences ?parameterOverrides
        ~regions ?deploymentTargets ?accounts ~stackSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates stack instances for the specified accounts, within the specified Amazon Web Services Regions. A stack instance refers to a stack in a specific account and Region. You must specify at least one value for either Accounts or DeploymentTargets, and you must specify at least one value for Regions. The maximum number of organizational unit (OUs) supported by a CreateStackInstances operation is 50. If you need more than 50, consider the following options: Batch processing: If you don't want to expose your OU hierarchy, split up the operations into multiple calls with less than 50 OUs each. Parent OU strategy: If you don't mind exposing the OU hierarchy, target a parent OU that contains all desired child OUs."]
module CreateStackInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "The name that's associated with the stack. The name must be unique in the Region in which you are creating the stack. A stack name can contain only alphanumeric characters (case sensitive) and hyphens. It must start with an alphabetical character and can't be longer than 128 characters."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "Structure that contains the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. Conditional: You must specify either TemplateBody or TemplateURL, but not both."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of a file that contains the template body. The URL must point to a template (max size: 1 MB) that's located in an Amazon S3 bucket or a Systems Manager document. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both."];
      parameters: Parameters.t option
        [@ocaml.doc
          "A list of Parameter structures that specify input parameters for the stack. For more information, see the Parameter data type."];
      disableRollback: DisableRollback.t option
        [@ocaml.doc
          "Set to true to disable rollback of the stack if stack creation failed. You can specify either DisableRollback or OnFailure, but not both. Default: false"];
      rollbackConfiguration: RollbackConfiguration.t option
        [@ocaml.doc
          "The rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards."];
      timeoutInMinutes: TimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time that can pass before the stack status becomes CREATE_FAILED; if DisableRollback is not set or is set to false, the stack will be rolled back."];
      notificationARNs: NotificationARNs.t option
        [@ocaml.doc
          "The Amazon SNS topic ARNs to publish stack related events. You can find your Amazon SNS topic ARNs using the Amazon SNS console or your Command Line Interface (CLI)."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "In some cases, you must explicitly acknowledge that your stack template contains certain capabilities in order for CloudFormation to create the stack. CAPABILITY_IAM and CAPABILITY_NAMED_IAM Some stack templates might include resources that can affect permissions in your Amazon Web Services account; for example, by creating new IAM users. For those stacks, you must explicitly acknowledge this by specifying one of these capabilities. The following IAM resources require you to specify either the CAPABILITY_IAM or CAPABILITY_NAMED_IAM capability. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify either of these capabilities, CloudFormation returns an InsufficientCapabilities error. If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. AWS::IAM::AccessKey AWS::IAM::Group AWS::IAM::InstanceProfile AWS::IAM::ManagedPolicy AWS::IAM::Policy AWS::IAM::Role AWS::IAM::User AWS::IAM::UserToGroupAddition For more information, see Acknowledging IAM resources in CloudFormation templates. CAPABILITY_AUTO_EXPAND Some template contain macros. Macros perform custom processing on templates; this can include simple actions like find-and-replace operations, all the way to extensive transformations of entire templates. Because of this, users typically create a change set from the processed template, so that they can review the changes resulting from the macros before actually creating the stack. If your stack template contains one or more macros, and you choose to create a stack directly from the processed template, without first reviewing the resulting changes in a change set, you must acknowledge this capability. This includes the AWS::Include and AWS::Serverless transforms, which are macros hosted by CloudFormation. If you want to create a stack from a stack template that contains macros and nested stacks, you must create the stack directly from the template using this capability. You should only create stacks directly from a stack template that contains macros if you know what processing the macro performs. Each macro relies on an underlying Lambda service function for processing stack templates. Be aware that the Lambda function owner can update the function operation without CloudFormation being notified. For more information, see Perform custom processing on CloudFormation templates with template macros. Only one of the Capabilities and ResourceType parameters can be specified."];
      resourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "Specifies which resource types you can work with, such as AWS::EC2::Instance or Custom::MyCustomInstance. If the list of resource types doesn't include a resource that you're creating, the stack creation fails. By default, CloudFormation grants permissions to all resource types. IAM uses this parameter for CloudFormation-specific condition keys in IAM policies. For more information, see Control CloudFormation access with Identity and Access Management. Only one of the Capabilities and ResourceType parameters can be specified."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes to create the stack. CloudFormation uses the role's credentials to make calls on your behalf. CloudFormation always uses this role for all future operations on the stack. Provided that users have permission to operate on the stack, CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, CloudFormation uses the role that was previously associated with the stack. If no role is available, CloudFormation uses a temporary session that's generated from your user credentials."];
      onFailure: OnFailure.t option
        [@ocaml.doc
          "Determines what action will be taken if stack creation fails. This must be one of: DO_NOTHING, ROLLBACK, or DELETE. You can specify either OnFailure or DisableRollback, but not both. Although the default setting is ROLLBACK, there is one exception. This exception occurs when a StackSet attempts to deploy a stack instance and the stack instance fails to create successfully. In this case, the CreateStack call overrides the default setting and sets the value of OnFailure to DELETE. Default: ROLLBACK"];
      stackPolicyBody: StackPolicyBody.t option
        [@ocaml.doc
          "Structure that contains the stack policy body. For more information, see Prevent updates to stack resources in the CloudFormation User Guide. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both."];
      stackPolicyURL: StackPolicyURL.t option
        [@ocaml.doc
          "Location of a file that contains the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an S3 bucket in the same Region as the stack. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. You can specify either the StackPolicyBody or the StackPolicyURL parameter, but not both."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs to associate with this stack. CloudFormation also propagates these tags to the resources created in the stack. A maximum number of 50 tags can be specified."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this CreateStack request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to create a stack with the same name. You might retry CreateStack requests to ensure that CloudFormation successfully received them. All events initiated by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a CreateStack operation with the token token1, then all the StackEvents generated by that operation will have ClientRequestToken set as token1. In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format Console-StackOperation-ID, which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002."];
      enableTerminationProtection: EnableTerminationProtection.t option
        [@ocaml.doc
          "Whether to enable termination protection on the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see Protect CloudFormation stacks from being deleted in the CloudFormation User Guide. Termination protection is deactivated on stacks by default. For nested stacks, termination protection is set on the root stack and can't be changed directly on the nested stack."];
      retainExceptOnCreate: RetainExceptOnCreate.t option
        [@ocaml.doc
          "When set to true, newly created resources are deleted when the operation rolls back. This includes newly created resources marked with a deletion policy of Retain. Default: false"]}
    let context_ = "CreateStackInput"
    let make ?templateBody =
      fun ?templateURL ->
        fun ?parameters ->
          fun ?disableRollback ->
            fun ?rollbackConfiguration ->
              fun ?timeoutInMinutes ->
                fun ?notificationARNs ->
                  fun ?capabilities ->
                    fun ?resourceTypes ->
                      fun ?roleARN ->
                        fun ?onFailure ->
                          fun ?stackPolicyBody ->
                            fun ?stackPolicyURL ->
                              fun ?tags ->
                                fun ?clientRequestToken ->
                                  fun ?enableTerminationProtection ->
                                    fun ?retainExceptOnCreate ->
                                      fun ~stackName ->
                                        fun () ->
                                          {
                                            templateBody;
                                            templateURL;
                                            parameters;
                                            disableRollback;
                                            rollbackConfiguration;
                                            timeoutInMinutes;
                                            notificationARNs;
                                            capabilities;
                                            resourceTypes;
                                            roleARN;
                                            onFailure;
                                            stackPolicyBody;
                                            stackPolicyURL;
                                            tags;
                                            clientRequestToken;
                                            enableTerminationProtection;
                                            retainExceptOnCreate;
                                            stackName
                                          }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("DisableRollback",
          (Option.map x.disableRollback ~f:DisableRollback.to_value));
        ("RollbackConfiguration",
          (Option.map x.rollbackConfiguration
             ~f:RollbackConfiguration.to_value));
        ("TimeoutInMinutes",
          (Option.map x.timeoutInMinutes ~f:TimeoutMinutes.to_value));
        ("NotificationARNs",
          (Option.map x.notificationARNs ~f:NotificationARNs.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:ResourceTypes.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("OnFailure", (Option.map x.onFailure ~f:OnFailure.to_value));
        ("StackPolicyBody",
          (Option.map x.stackPolicyBody ~f:StackPolicyBody.to_value));
        ("StackPolicyURL",
          (Option.map x.stackPolicyURL ~f:StackPolicyURL.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("EnableTerminationProtection",
          (Option.map x.enableTerminationProtection
             ~f:EnableTerminationProtection.to_value));
        ("RetainExceptOnCreate",
          (Option.map x.retainExceptOnCreate ~f:RetainExceptOnCreate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retainExceptOnCreate =
        (Option.map ~f:RetainExceptOnCreate.of_xml)
          (Xml.child xml_arg0 "RetainExceptOnCreate") in
      let enableTerminationProtection =
        (Option.map ~f:EnableTerminationProtection.of_xml)
          (Xml.child xml_arg0 "EnableTerminationProtection") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let stackPolicyURL =
        (Option.map ~f:StackPolicyURL.of_xml)
          (Xml.child xml_arg0 "StackPolicyURL") in
      let stackPolicyBody =
        (Option.map ~f:StackPolicyBody.of_xml)
          (Xml.child xml_arg0 "StackPolicyBody") in
      let onFailure =
        (Option.map ~f:OnFailure.of_xml) (Xml.child xml_arg0 "OnFailure") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let notificationARNs =
        (Option.map ~f:NotificationARNs.of_xml)
          (Xml.child xml_arg0 "NotificationARNs") in
      let timeoutInMinutes =
        (Option.map ~f:TimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "TimeoutInMinutes") in
      let rollbackConfiguration =
        (Option.map ~f:RollbackConfiguration.of_xml)
          (Xml.child xml_arg0 "RollbackConfiguration") in
      let disableRollback =
        (Option.map ~f:DisableRollback.of_xml)
          (Xml.child xml_arg0 "DisableRollback") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?retainExceptOnCreate ?enableTerminationProtection
        ?clientRequestToken ?tags ?stackPolicyURL ?stackPolicyBody ?onFailure
        ?roleARN ?resourceTypes ?capabilities ?notificationARNs
        ?timeoutInMinutes ?rollbackConfiguration ?disableRollback ?parameters
        ?templateURL ?templateBody ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retainExceptOnCreate =
        field_map json__ "RetainExceptOnCreate" RetainExceptOnCreate.of_json in
      let enableTerminationProtection =
        field_map json__ "EnableTerminationProtection"
          EnableTerminationProtection.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let stackPolicyURL =
        field_map json__ "StackPolicyURL" StackPolicyURL.of_json in
      let stackPolicyBody =
        field_map json__ "StackPolicyBody" StackPolicyBody.of_json in
      let onFailure = field_map json__ "OnFailure" OnFailure.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypes.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let notificationARNs =
        field_map json__ "NotificationARNs" NotificationARNs.of_json in
      let timeoutInMinutes =
        field_map json__ "TimeoutInMinutes" TimeoutMinutes.of_json in
      let rollbackConfiguration =
        field_map json__ "RollbackConfiguration"
          RollbackConfiguration.of_json in
      let disableRollback =
        field_map json__ "DisableRollback" DisableRollback.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?retainExceptOnCreate ?enableTerminationProtection
        ?clientRequestToken ?tags ?stackPolicyURL ?stackPolicyBody ?onFailure
        ?roleARN ?resourceTypes ?capabilities ?notificationARNs
        ?timeoutInMinutes ?rollbackConfiguration ?disableRollback ?parameters
        ?templateURL ?templateBody ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for CreateStack action."]
module CreateGeneratedTemplateOutput =
  struct
    type createGeneratedTemplateResult =
      {
      generatedTemplateId: GeneratedTemplateId.t option
        [@ocaml.doc "The ID of the generated template."]}
    and responseMetaData = unit
    and t =
      {
      createGeneratedTemplateResult: createGeneratedTemplateResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `ConcurrentResourcesLimitExceededException of
          ConcurrentResourcesLimitExceededException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateGeneratedTemplateOutput"
    let make ?generatedTemplateId =
      fun () ->
        {
          createGeneratedTemplateResult = { generatedTemplateId };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "ConcurrentResourcesLimitExceededException" ->
          `ConcurrentResourcesLimitExceededException
            (ConcurrentResourcesLimitExceededException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "ConcurrentResourcesLimitExceededException" ->
          `ConcurrentResourcesLimitExceededException
            (ConcurrentResourcesLimitExceededException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `ConcurrentResourcesLimitExceededException e ->
          `Assoc
            [("error", (`String "ConcurrentResourcesLimitExceededException"));
            ("details",
              (ConcurrentResourcesLimitExceededException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createGeneratedTemplateResult in
      structure_to_wrapped_value
        [("GeneratedTemplateId",
           (Option.map x.generatedTemplateId ~f:GeneratedTemplateId.to_value))]
        ~wrapper:"CreateGeneratedTemplateResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateGeneratedTemplateResult" in
      let generatedTemplateId =
        (Option.map ~f:GeneratedTemplateId.of_xml)
          (Xml.child xml_arg0 "GeneratedTemplateId") in
      make ?generatedTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedTemplateId =
        field_map json__ "GeneratedTemplateId" GeneratedTemplateId.of_json in
      make ?generatedTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template from existing resources that are not already managed with CloudFormation. You can check the status of the template generation using the DescribeGeneratedTemplate API action."]
module CreateGeneratedTemplateInput =
  struct
    type nonrec t =
      {
      resources: ResourceDefinitions.t option
        [@ocaml.doc
          "An optional list of resources to be included in the generated template. If no resources are specified,the template will be created without any resources. Resources can be added to the template using the UpdateGeneratedTemplate API action."];
      generatedTemplateName: GeneratedTemplateName.t
        [@ocaml.doc "The name assigned to the generated template."];
      stackName: StackName.t option
        [@ocaml.doc
          "An optional name or ARN of a stack to use as the base stack for the generated template."];
      templateConfiguration: TemplateConfiguration.t option
        [@ocaml.doc
          "The configuration details of the generated template, including the DeletionPolicy and UpdateReplacePolicy."]}
    let context_ = "CreateGeneratedTemplateInput"
    let make ?resources =
      fun ?stackName ->
        fun ?templateConfiguration ->
          fun ~generatedTemplateName ->
            fun () ->
              {
                resources;
                stackName;
                templateConfiguration;
                generatedTemplateName
              }
    let to_value x =
      structure_to_value
        [("Resources",
           (Option.map x.resources ~f:ResourceDefinitions.to_value));
        ("GeneratedTemplateName",
          (Some (GeneratedTemplateName.to_value x.generatedTemplateName)));
        ("StackName", (Option.map x.stackName ~f:StackName.to_value));
        ("TemplateConfiguration",
          (Option.map x.templateConfiguration
             ~f:TemplateConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateConfiguration =
        (Option.map ~f:TemplateConfiguration.of_xml)
          (Xml.child xml_arg0 "TemplateConfiguration") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "StackName") in
      let generatedTemplateName =
        GeneratedTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedTemplateName") in
      let resources =
        (Option.map ~f:ResourceDefinitions.of_xml)
          (Xml.child xml_arg0 "Resources") in
      make ?templateConfiguration ?stackName ~generatedTemplateName
        ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateConfiguration =
        field_map json__ "TemplateConfiguration"
          TemplateConfiguration.of_json in
      let stackName = field_map json__ "StackName" StackName.of_json in
      let generatedTemplateName =
        field_map_exn json__ "GeneratedTemplateName"
          GeneratedTemplateName.of_json in
      let resources =
        field_map json__ "Resources" ResourceDefinitions.of_json in
      make ?templateConfiguration ?stackName ~generatedTemplateName
        ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template from existing resources that are not already managed with CloudFormation. You can check the status of the template generation using the DescribeGeneratedTemplate API action."]
module CreateChangeSetOutput =
  struct
    type createChangeSetResult =
      {
      id: ChangeSetId.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the change set."];
      stackId: StackId.t option [@ocaml.doc "The unique ID of the stack."]}
    and responseMetaData = unit
    and t =
      {
      createChangeSetResult: createChangeSetResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `InsufficientCapabilitiesException of
          InsufficientCapabilitiesException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateChangeSetOutput"
    let make ?id =
      fun ?stackId ->
        fun () ->
          { createChangeSetResult = { id; stackId }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "InsufficientCapabilitiesException" ->
          `InsufficientCapabilitiesException
            (InsufficientCapabilitiesException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `InsufficientCapabilitiesException e ->
          `Assoc
            [("error", (`String "InsufficientCapabilitiesException"));
            ("details", (InsufficientCapabilitiesException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createChangeSetResult in
      structure_to_wrapped_value
        [("Id", (Option.map x.id ~f:ChangeSetId.to_value));
        ("StackId", (Option.map x.stackId ~f:StackId.to_value))]
        ~wrapper:"CreateChangeSetResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateChangeSetResult" in
      let stackId =
        (Option.map ~f:StackId.of_xml) (Xml.child xml_arg0 "StackId") in
      let id = (Option.map ~f:ChangeSetId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?stackId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackId = field_map json__ "StackId" StackId.of_json in
      let id = field_map json__ "Id" ChangeSetId.of_json in
      make ?stackId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the CreateChangeSet action."]
module CreateChangeSetInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name or the unique ID of the stack for which you are creating a change set. CloudFormation generates the change set by comparing this stack's information with the information that you submit, such as a modified template or different parameter input values."];
      templateBody: TemplateBody.t option
        [@ocaml.doc
          "A structure that contains the body of the revised template, with a minimum length of 1 byte and a maximum length of 51,200 bytes. CloudFormation generates the change set by comparing this template with the template of the stack that you specified. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      templateURL: TemplateURL.t option
        [@ocaml.doc
          "The URL of the file that contains the revised template. The URL must point to a template (max size: 1 MB) that's located in an Amazon S3 bucket or a Systems Manager document. CloudFormation generates the change set by comparing this template with the stack that you specified. The location for an Amazon S3 bucket must start with https://. URLs from S3 static websites are not supported. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      usePreviousTemplate: UsePreviousTemplate.t option
        [@ocaml.doc
          "Whether to reuse the template that's associated with the stack to create the change set. When using templates with the AWS::LanguageExtensions transform, provide the template instead of using UsePreviousTemplate to ensure new parameter values and Systems Manager parameter updates are applied correctly. For more information, see AWS::LanguageExtensions transform. Conditional: You must specify only one of the following parameters: TemplateBody, TemplateURL, or set the UsePreviousTemplate to true."];
      parameters: Parameters.t option
        [@ocaml.doc
          "A list of Parameter structures that specify input parameters for the change set. For more information, see the Parameter data type."];
      capabilities: Capabilities.t option
        [@ocaml.doc
          "In some cases, you must explicitly acknowledge that your stack template contains certain capabilities in order for CloudFormation to create the stack. CAPABILITY_IAM and CAPABILITY_NAMED_IAM Some stack templates might include resources that can affect permissions in your Amazon Web Services account, for example, by creating new IAM users. For those stacks, you must explicitly acknowledge this by specifying one of these capabilities. The following IAM resources require you to specify either the CAPABILITY_IAM or CAPABILITY_NAMED_IAM capability. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify either of these capabilities, CloudFormation returns an InsufficientCapabilities error. If your stack template contains these resources, we suggest that you review all permissions associated with them and edit their permissions if necessary. AWS::IAM::AccessKey AWS::IAM::Group AWS::IAM::InstanceProfile AWS::IAM::ManagedPolicy AWS::IAM::Policy AWS::IAM::Role AWS::IAM::User AWS::IAM::UserToGroupAddition For more information, see Acknowledging IAM resources in CloudFormation templates. CAPABILITY_AUTO_EXPAND Some template contain macros. Macros perform custom processing on templates; this can include simple actions like find-and-replace operations, all the way to extensive transformations of entire templates. Because of this, users typically create a change set from the processed template, so that they can review the changes resulting from the macros before actually creating the stack. If your stack template contains one or more macros, and you choose to create a stack directly from the processed template, without first reviewing the resulting changes in a change set, you must acknowledge this capability. This includes the AWS::Include and AWS::Serverless transforms, which are macros hosted by CloudFormation. This capacity doesn't apply to creating change sets, and specifying it when creating change sets has no effect. If you want to create a stack from a stack template that contains macros and nested stacks, you must create or update the stack directly from the template using the CreateStack or UpdateStack action, and specifying this capability. For more information about macros, see Perform custom processing on CloudFormation templates with template macros. Only one of the Capabilities and ResourceType parameters can be specified."];
      resourceTypes: ResourceTypes.t option
        [@ocaml.doc
          "Specifies which resource types you can work with, such as AWS::EC2::Instance or Custom::MyCustomInstance. If the list of resource types doesn't include a resource type that you're updating, the stack update fails. By default, CloudFormation grants permissions to all resource types. IAM uses this parameter for condition keys in IAM policies for CloudFormation. For more information, see Control CloudFormation access with Identity and Access Management in the CloudFormation User Guide. Only one of the Capabilities and ResourceType parameters can be specified."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes when executing the change set. CloudFormation uses the role's credentials to make calls on your behalf. CloudFormation uses this role for all future operations on the stack. Provided that users have permission to operate on the stack, CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least permission. If you don't specify a value, CloudFormation uses the role that was previously associated with the stack. If no role is available, CloudFormation uses a temporary session that is generated from your user credentials."];
      rollbackConfiguration: RollbackConfiguration.t option
        [@ocaml.doc
          "The rollback triggers for CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards."];
      notificationARNs: NotificationARNs.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of Amazon SNS topics that CloudFormation associates with the stack. To remove all associated notification topics, specify an empty list."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs to associate with this stack. CloudFormation also propagates these tags to resources in the stack. You can specify a maximum of 50 tags."];
      changeSetName: ChangeSetName.t
        [@ocaml.doc
          "The name of the change set. The name must be unique among all change sets that are associated with the specified stack. A change set name can contain only alphanumeric, case sensitive characters, and hyphens. It must start with an alphabetical character and can't exceed 128 characters."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique identifier for this CreateChangeSet request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to create another change set with the same name. You might retry CreateChangeSet requests to ensure that CloudFormation successfully received them."];
      description: Description.t option
        [@ocaml.doc "A description to help you identify this change set."];
      changeSetType: ChangeSetType.t option
        [@ocaml.doc
          "The type of change set operation. To create a change set for a new stack, specify CREATE. To create a change set for an existing stack, specify UPDATE. To create a change set for an import operation, specify IMPORT. If you create a change set for a new stack, CloudFormation creates a stack with a unique stack ID, but no template or resources. The stack will be in the REVIEW_IN_PROGRESS state until you execute the change set. By default, CloudFormation specifies UPDATE. You can't use the UPDATE type to create a change set for a new stack or the CREATE type to create a change set for an existing stack."];
      resourcesToImport: ResourcesToImport.t option
        [@ocaml.doc "The resources to import into your stack."];
      includeNestedStacks: IncludeNestedStacks.t option
        [@ocaml.doc
          "Creates a change set for the all nested stacks specified in the template. The default behavior of this action is set to False. To include nested sets in a change set, specify True."];
      onStackFailure: OnStackFailure.t option
        [@ocaml.doc
          "Determines what action will be taken if stack creation fails. If this parameter is specified, the DisableRollback parameter to the ExecuteChangeSet API operation must not be specified. This must be one of these values: DELETE - Deletes the change set if the stack creation fails. This is only valid when the ChangeSetType parameter is set to CREATE. If the deletion of the stack fails, the status of the stack is DELETE_FAILED. DO_NOTHING - if the stack creation fails, do nothing. This is equivalent to specifying true for the DisableRollback parameter to the ExecuteChangeSet API operation. ROLLBACK - if the stack creation fails, roll back the stack. This is equivalent to specifying false for the DisableRollback parameter to the ExecuteChangeSet API operation. For nested stacks, when the OnStackFailure parameter is set to DELETE for the change set for the parent stack, any failure in a child stack will cause the parent stack creation to fail and all stacks to be deleted."];
      importExistingResources: ImportExistingResources.t option
        [@ocaml.doc
          "Indicates if the change set auto-imports resources that already exist. For more information, see Import Amazon Web Services resources into a CloudFormation stack automatically in the CloudFormation User Guide. This parameter can only import resources that have custom names in templates. For more information, see name type in the CloudFormation User Guide. To import resources that do not accept custom names, such as EC2 instances, use the ResourcesToImport parameter instead."];
      deploymentMode: DeploymentMode.t option
        [@ocaml.doc
          "Determines how CloudFormation handles configuration drift during deployment. REVERT_DRIFT \226\128\147 Creates a drift-aware change set that brings actual resource states in line with template definitions. Provides a three-way comparison between actual state, previous deployment state, and desired state. For more information, see Using drift-aware change sets in the CloudFormation User Guide."]}
    let context_ = "CreateChangeSetInput"
    let make ?templateBody =
      fun ?templateURL ->
        fun ?usePreviousTemplate ->
          fun ?parameters ->
            fun ?capabilities ->
              fun ?resourceTypes ->
                fun ?roleARN ->
                  fun ?rollbackConfiguration ->
                    fun ?notificationARNs ->
                      fun ?tags ->
                        fun ?clientToken ->
                          fun ?description ->
                            fun ?changeSetType ->
                              fun ?resourcesToImport ->
                                fun ?includeNestedStacks ->
                                  fun ?onStackFailure ->
                                    fun ?importExistingResources ->
                                      fun ?deploymentMode ->
                                        fun ~stackName ->
                                          fun ~changeSetName ->
                                            fun () ->
                                              {
                                                templateBody;
                                                templateURL;
                                                usePreviousTemplate;
                                                parameters;
                                                capabilities;
                                                resourceTypes;
                                                roleARN;
                                                rollbackConfiguration;
                                                notificationARNs;
                                                tags;
                                                clientToken;
                                                description;
                                                changeSetType;
                                                resourcesToImport;
                                                includeNestedStacks;
                                                onStackFailure;
                                                importExistingResources;
                                                deploymentMode;
                                                stackName;
                                                changeSetName
                                              }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("TemplateBody",
          (Option.map x.templateBody ~f:TemplateBody.to_value));
        ("TemplateURL", (Option.map x.templateURL ~f:TemplateURL.to_value));
        ("UsePreviousTemplate",
          (Option.map x.usePreviousTemplate ~f:UsePreviousTemplate.to_value));
        ("Parameters", (Option.map x.parameters ~f:Parameters.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:Capabilities.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:ResourceTypes.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("RollbackConfiguration",
          (Option.map x.rollbackConfiguration
             ~f:RollbackConfiguration.to_value));
        ("NotificationARNs",
          (Option.map x.notificationARNs ~f:NotificationARNs.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("ChangeSetName", (Some (ChangeSetName.to_value x.changeSetName)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ChangeSetType",
          (Option.map x.changeSetType ~f:ChangeSetType.to_value));
        ("ResourcesToImport",
          (Option.map x.resourcesToImport ~f:ResourcesToImport.to_value));
        ("IncludeNestedStacks",
          (Option.map x.includeNestedStacks ~f:IncludeNestedStacks.to_value));
        ("OnStackFailure",
          (Option.map x.onStackFailure ~f:OnStackFailure.to_value));
        ("ImportExistingResources",
          (Option.map x.importExistingResources
             ~f:ImportExistingResources.to_value));
        ("DeploymentMode",
          (Option.map x.deploymentMode ~f:DeploymentMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentMode =
        (Option.map ~f:DeploymentMode.of_xml)
          (Xml.child xml_arg0 "DeploymentMode") in
      let importExistingResources =
        (Option.map ~f:ImportExistingResources.of_xml)
          (Xml.child xml_arg0 "ImportExistingResources") in
      let onStackFailure =
        (Option.map ~f:OnStackFailure.of_xml)
          (Xml.child xml_arg0 "OnStackFailure") in
      let includeNestedStacks =
        (Option.map ~f:IncludeNestedStacks.of_xml)
          (Xml.child xml_arg0 "IncludeNestedStacks") in
      let resourcesToImport =
        (Option.map ~f:ResourcesToImport.of_xml)
          (Xml.child xml_arg0 "ResourcesToImport") in
      let changeSetType =
        (Option.map ~f:ChangeSetType.of_xml)
          (Xml.child xml_arg0 "ChangeSetType") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let changeSetName =
        ChangeSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChangeSetName") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let notificationARNs =
        (Option.map ~f:NotificationARNs.of_xml)
          (Xml.child xml_arg0 "NotificationARNs") in
      let rollbackConfiguration =
        (Option.map ~f:RollbackConfiguration.of_xml)
          (Xml.child xml_arg0 "RollbackConfiguration") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceTypes =
        (Option.map ~f:ResourceTypes.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let capabilities =
        (Option.map ~f:Capabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let parameters =
        (Option.map ~f:Parameters.of_xml) (Xml.child xml_arg0 "Parameters") in
      let usePreviousTemplate =
        (Option.map ~f:UsePreviousTemplate.of_xml)
          (Xml.child xml_arg0 "UsePreviousTemplate") in
      let templateURL =
        (Option.map ~f:TemplateURL.of_xml) (Xml.child xml_arg0 "TemplateURL") in
      let templateBody =
        (Option.map ~f:TemplateBody.of_xml)
          (Xml.child xml_arg0 "TemplateBody") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?deploymentMode ?importExistingResources ?onStackFailure
        ?includeNestedStacks ?resourcesToImport ?changeSetType ?description
        ?clientToken ~changeSetName ?tags ?notificationARNs
        ?rollbackConfiguration ?roleARN ?resourceTypes ?capabilities
        ?parameters ?usePreviousTemplate ?templateURL ?templateBody
        ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentMode =
        field_map json__ "DeploymentMode" DeploymentMode.of_json in
      let importExistingResources =
        field_map json__ "ImportExistingResources"
          ImportExistingResources.of_json in
      let onStackFailure =
        field_map json__ "OnStackFailure" OnStackFailure.of_json in
      let includeNestedStacks =
        field_map json__ "IncludeNestedStacks" IncludeNestedStacks.of_json in
      let resourcesToImport =
        field_map json__ "ResourcesToImport" ResourcesToImport.of_json in
      let changeSetType =
        field_map json__ "ChangeSetType" ChangeSetType.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let changeSetName =
        field_map_exn json__ "ChangeSetName" ChangeSetName.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let notificationARNs =
        field_map json__ "NotificationARNs" NotificationARNs.of_json in
      let rollbackConfiguration =
        field_map json__ "RollbackConfiguration"
          RollbackConfiguration.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypes.of_json in
      let capabilities = field_map json__ "Capabilities" Capabilities.of_json in
      let parameters = field_map json__ "Parameters" Parameters.of_json in
      let usePreviousTemplate =
        field_map json__ "UsePreviousTemplate" UsePreviousTemplate.of_json in
      let templateURL = field_map json__ "TemplateURL" TemplateURL.of_json in
      let templateBody = field_map json__ "TemplateBody" TemplateBody.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?deploymentMode ?importExistingResources ?onStackFailure
        ?includeNestedStacks ?resourcesToImport ?changeSetType ?description
        ?clientToken ~changeSetName ?tags ?notificationARNs
        ?rollbackConfiguration ?roleARN ?resourceTypes ?capabilities
        ?parameters ?usePreviousTemplate ?templateURL ?templateBody
        ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the CreateChangeSet action."]
module ContinueUpdateRollbackOutput =
  struct
    type continueUpdateRollbackResult = unit
    and responseMetaData = unit
    and t =
      {
      continueUpdateRollbackResult: continueUpdateRollbackResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `TokenAlreadyExistsException of TokenAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { continueUpdateRollbackResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "TokenAlreadyExistsException" ->
          `TokenAlreadyExistsException
            (TokenAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `TokenAlreadyExistsException e ->
          `Assoc
            [("error", (`String "TokenAlreadyExistsException"));
            ("details", (TokenAlreadyExistsException.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 "The output for a ContinueUpdateRollback operation."]
module ContinueUpdateRollbackInput =
  struct
    type nonrec t =
      {
      stackName: StackNameOrId.t
        [@ocaml.doc
          "The name or the unique ID of the stack that you want to continue rolling back. Don't specify the name of a nested stack (a stack that was created by using the AWS::CloudFormation::Stack resource). Instead, use this operation on the parent stack (the stack that contains the AWS::CloudFormation::Stack resource)."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that CloudFormation assumes to roll back the stack. CloudFormation uses the role's credentials to make calls on your behalf. CloudFormation always uses this role for all future operations on the stack. Provided that users have permission to operate on the stack, CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least permission. If you don't specify a value, CloudFormation uses the role that was previously associated with the stack. If no role is available, CloudFormation uses a temporary session that's generated from your user credentials."];
      resourcesToSkip: ResourcesToSkip.t option
        [@ocaml.doc
          "A list of the logical IDs of the resources that CloudFormation skips during the continue update rollback operation. You can specify only resources that are in the UPDATE_FAILED state because a rollback failed. You can't specify resources that are in the UPDATE_FAILED state for other reasons, for example, because an update was canceled. To check why a resource update failed, use the DescribeStackResources action, and view the resource status reason. Specify this property to skip rolling back resources that CloudFormation can't successfully roll back. We recommend that you troubleshoot resources before skipping them. CloudFormation sets the status of the specified resources to UPDATE_COMPLETE and continues to roll back the stack. After the rollback is complete, the state of the skipped resources will be inconsistent with the state of the resources in the stack template. Before performing another stack update, you must update the stack or resources to be consistent with each other. If you don't, subsequent stack updates might fail, and the stack will become unrecoverable. Specify the minimum number of resources required to successfully roll back your stack. For example, a failed resource update might cause dependent resources to fail. In this case, it might not be necessary to skip the dependent resources. To skip resources that are part of nested stacks, use the following format: NestedStackName.ResourceLogicalID. If you want to specify the logical ID of a stack resource (Type: AWS::CloudFormation::Stack) in the ResourcesToSkip list, then its corresponding embedded stack must be in one of the following states: DELETE_IN_PROGRESS, DELETE_COMPLETE, or DELETE_FAILED. Don't confuse a child stack's name with its corresponding logical ID defined in the parent stack. For an example of a continue update rollback operation with nested stacks, see Continue rolling back from failed nested stack updates."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this ContinueUpdateRollback request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to continue the rollback to a stack with the same name. You might retry ContinueUpdateRollback requests to ensure that CloudFormation successfully received them."]}
    let context_ = "ContinueUpdateRollbackInput"
    let make ?roleARN =
      fun ?resourcesToSkip ->
        fun ?clientRequestToken ->
          fun ~stackName ->
            fun () ->
              { roleARN; resourcesToSkip; clientRequestToken; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackNameOrId.to_value x.stackName)));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("ResourcesToSkip",
          (Option.map x.resourcesToSkip ~f:ResourcesToSkip.to_value));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let resourcesToSkip =
        (Option.map ~f:ResourcesToSkip.of_xml)
          (Xml.child xml_arg0 "ResourcesToSkip") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let stackName =
        StackNameOrId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?clientRequestToken ?resourcesToSkip ?roleARN ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let resourcesToSkip =
        field_map json__ "ResourcesToSkip" ResourcesToSkip.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let stackName = field_map_exn json__ "StackName" StackNameOrId.of_json in
      make ?clientRequestToken ?resourcesToSkip ?roleARN ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the ContinueUpdateRollback action."]
module CancelUpdateStackInput =
  struct
    type nonrec t =
      {
      stackName: StackName.t
        [@ocaml.doc
          "If you don't pass a parameter to StackName, the API returns a response that describes all resources in the account. The IAM policy below can be added to IAM policies when you want to limit resource-level permissions and avoid returning a response when no parameter is sent in the request: \\{ \"Version\": \"2012-10-17\", \"Statement\": \\[\\{ \"Effect\": \"Deny\", \"Action\": \"cloudformation:DescribeStacks\", \"NotResource\": \"arn:aws:cloudformation:*:*:stack/*/*\" \\}\\] \\} The name or the unique stack ID that's associated with the stack."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique identifier for this CancelUpdateStack request. Specify this token if you plan to retry requests so that CloudFormation knows that you're not attempting to cancel an update on a stack with the same name. You might retry CancelUpdateStack requests to ensure that CloudFormation successfully received them."]}
    let context_ = "CancelUpdateStackInput"
    let make ?clientRequestToken =
      fun ~stackName -> fun () -> { clientRequestToken; stackName }
    let to_value x =
      structure_to_value
        [("StackName", (Some (StackName.to_value x.stackName)));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let stackName =
        StackName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StackName") in
      make ?clientRequestToken ~stackName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let stackName = field_map_exn json__ "StackName" StackName.of_json in
      make ?clientRequestToken ~stackName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the CancelUpdateStack action."]
module BatchDescribeTypeConfigurationsOutput =
  struct
    type batchDescribeTypeConfigurationsResult =
      {
      errors: BatchDescribeTypeConfigurationsErrors.t option
        [@ocaml.doc
          "A list of information concerning any errors generated during the setting of the specified configurations."];
      unprocessedTypeConfigurations: UnprocessedTypeConfigurations.t option
        [@ocaml.doc
          "A list of any of the specified extension configurations that CloudFormation could not process for any reason."];
      typeConfigurations: TypeConfigurationDetailsList.t option
        [@ocaml.doc
          "A list of any of the specified extension configurations from the CloudFormation registry."]}
    and responseMetaData = unit
    and t =
      {
      batchDescribeTypeConfigurationsResult:
        batchDescribeTypeConfigurationsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeConfigurationNotFoundException of
          TypeConfigurationNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "BatchDescribeTypeConfigurationsOutput"
    let make ?errors =
      fun ?unprocessedTypeConfigurations ->
        fun ?typeConfigurations ->
          fun () ->
            {
              batchDescribeTypeConfigurationsResult =
                { errors; unprocessedTypeConfigurations; typeConfigurations };
              responseMetaData = ()
            }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeConfigurationNotFoundException" ->
          `TypeConfigurationNotFoundException
            (TypeConfigurationNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeConfigurationNotFoundException" ->
          `TypeConfigurationNotFoundException
            (TypeConfigurationNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeConfigurationNotFoundException e ->
          `Assoc
            [("error", (`String "TypeConfigurationNotFoundException"));
            ("details", (TypeConfigurationNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.batchDescribeTypeConfigurationsResult in
      structure_to_wrapped_value
        [("Errors",
           (Option.map x.errors
              ~f:BatchDescribeTypeConfigurationsErrors.to_value));
        ("UnprocessedTypeConfigurations",
          (Option.map x.unprocessedTypeConfigurations
             ~f:UnprocessedTypeConfigurations.to_value));
        ("TypeConfigurations",
          (Option.map x.typeConfigurations
             ~f:TypeConfigurationDetailsList.to_value))]
        ~wrapper:"BatchDescribeTypeConfigurationsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "BatchDescribeTypeConfigurationsResult" in
      let typeConfigurations =
        (Option.map ~f:TypeConfigurationDetailsList.of_xml)
          (Xml.child xml_arg0 "TypeConfigurations") in
      let unprocessedTypeConfigurations =
        (Option.map ~f:UnprocessedTypeConfigurations.of_xml)
          (Xml.child xml_arg0 "UnprocessedTypeConfigurations") in
      let errors =
        (Option.map ~f:BatchDescribeTypeConfigurationsErrors.of_xml)
          (Xml.child xml_arg0 "Errors") in
      make ?typeConfigurations ?unprocessedTypeConfigurations ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeConfigurations =
        field_map json__ "TypeConfigurations"
          TypeConfigurationDetailsList.of_json in
      let unprocessedTypeConfigurations =
        field_map json__ "UnprocessedTypeConfigurations"
          UnprocessedTypeConfigurations.of_json in
      let errors =
        field_map json__ "Errors"
          BatchDescribeTypeConfigurationsErrors.of_json in
      make ?typeConfigurations ?unprocessedTypeConfigurations ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configuration data for the specified CloudFormation extensions, from the CloudFormation registry in your current account and Region. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module BatchDescribeTypeConfigurationsInput =
  struct
    type nonrec t =
      {
      typeConfigurationIdentifiers: TypeConfigurationIdentifiers.t
        [@ocaml.doc
          "The list of identifiers for the desired extension configurations."]}
    let context_ = "BatchDescribeTypeConfigurationsInput"
    let make ~typeConfigurationIdentifiers =
      fun () -> { typeConfigurationIdentifiers }
    let to_value x =
      structure_to_value
        [("TypeConfigurationIdentifiers",
           (Some
              (TypeConfigurationIdentifiers.to_value
                 x.typeConfigurationIdentifiers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeConfigurationIdentifiers =
        TypeConfigurationIdentifiers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TypeConfigurationIdentifiers") in
      make ~typeConfigurationIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeConfigurationIdentifiers =
        field_map_exn json__ "TypeConfigurationIdentifiers"
          TypeConfigurationIdentifiers.of_json in
      make ~typeConfigurationIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configuration data for the specified CloudFormation extensions, from the CloudFormation registry in your current account and Region. For more information, see Edit configuration data for extensions in your account in the CloudFormation User Guide."]
module ActivateTypeOutput =
  struct
    type activateTypeResult =
      {
      arn: PrivateTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the activated extension in this account and Region."]}
    and responseMetaData = unit
    and t =
      {
      activateTypeResult: activateTypeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CFNRegistryException of CFNRegistryException.t 
      | `TypeNotFoundException of TypeNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ActivateTypeOutput"
    let make ?arn =
      fun () -> { activateTypeResult = { arn }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_json json)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CFNRegistryException" ->
          `CFNRegistryException (CFNRegistryException.of_xml xml)
      | "TypeNotFoundException" ->
          `TypeNotFoundException (TypeNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CFNRegistryException e ->
          `Assoc
            [("error", (`String "CFNRegistryException"));
            ("details", (CFNRegistryException.to_json e))]
      | `TypeNotFoundException e ->
          `Assoc
            [("error", (`String "TypeNotFoundException"));
            ("details", (TypeNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.activateTypeResult in
      structure_to_wrapped_value
        [("Arn", (Option.map x.arn ~f:PrivateTypeArn.to_value))]
        ~wrapper:"ActivateTypeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ActivateTypeResult" in
      let arn =
        (Option.map ~f:PrivateTypeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" PrivateTypeArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates a public third-party extension, such as a resource or module, to make it available for use in stack templates in your current account and Region. It can also create CloudFormation Hooks, which allow you to evaluate resource configurations before CloudFormation provisions them. Hooks integrate with both CloudFormation and Cloud Control API operations. After you activate an extension, you can use SetTypeConfiguration to set specific properties for the extension. To see which extensions have been activated, use ListTypes. To see configuration details for an extension, use DescribeType. For more information, see Activate a third-party public extension in your account in the CloudFormation User Guide. For information about creating Hooks, see the CloudFormation Hooks User Guide."]
module ActivateTypeInput =
  struct
    type nonrec t =
      {
      type_: ThirdPartyType.t option
        [@ocaml.doc
          "The extension type. Conditional: You must specify PublicTypeArn, or TypeName, Type, and PublisherId."];
      publicTypeArn: ThirdPartyTypeArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the public extension. Conditional: You must specify PublicTypeArn, or TypeName, Type, and PublisherId."];
      publisherId: PublisherId.t option
        [@ocaml.doc
          "The ID of the extension publisher. Conditional: You must specify PublicTypeArn, or TypeName, Type, and PublisherId."];
      typeName: TypeName.t option
        [@ocaml.doc
          "The name of the extension. Conditional: You must specify PublicTypeArn, or TypeName, Type, and PublisherId."];
      typeNameAlias: TypeName.t option
        [@ocaml.doc
          "An alias to assign to the public extension in this account and Region. If you specify an alias for the extension, CloudFormation treats the alias as the extension type name within this account and Region. You must use the alias to refer to the extension in your templates, API calls, and CloudFormation console. An extension alias must be unique within a given account and Region. You can activate the same public resource multiple times in the same account and Region, using different type name aliases."];
      autoUpdate: AutoUpdate.t option
        [@ocaml.doc
          "Whether to automatically update the extension in this account and Region when a new minor version is published by the extension publisher. Major versions released by the publisher must be manually updated. The default is true."];
      loggingConfig: LoggingConfig.t option
        [@ocaml.doc
          "Contains logging configuration information for an extension."];
      executionRoleArn: RoleArn.t option
        [@ocaml.doc
          "The name of the IAM execution role to use to activate the extension."];
      versionBump: VersionBump.t option
        [@ocaml.doc
          "Manually updates a previously-activated type to a new major or minor version, if available. You can also use this parameter to update the value of AutoUpdate. MAJOR: CloudFormation updates the extension to the newest major version, if one is available. MINOR: CloudFormation updates the extension to the newest minor version, if one is available."];
      majorVersion: MajorVersion.t option
        [@ocaml.doc
          "The major version of this extension you want to activate, if multiple major versions are available. The default is the latest major version. CloudFormation uses the latest available minor version of the major version selected. You can specify MajorVersion or VersionBump, but not both."]}
    let make ?type_ =
      fun ?publicTypeArn ->
        fun ?publisherId ->
          fun ?typeName ->
            fun ?typeNameAlias ->
              fun ?autoUpdate ->
                fun ?loggingConfig ->
                  fun ?executionRoleArn ->
                    fun ?versionBump ->
                      fun ?majorVersion ->
                        fun () ->
                          {
                            type_;
                            publicTypeArn;
                            publisherId;
                            typeName;
                            typeNameAlias;
                            autoUpdate;
                            loggingConfig;
                            executionRoleArn;
                            versionBump;
                            majorVersion
                          }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ThirdPartyType.to_value));
        ("PublicTypeArn",
          (Option.map x.publicTypeArn ~f:ThirdPartyTypeArn.to_value));
        ("PublisherId", (Option.map x.publisherId ~f:PublisherId.to_value));
        ("TypeName", (Option.map x.typeName ~f:TypeName.to_value));
        ("TypeNameAlias", (Option.map x.typeNameAlias ~f:TypeName.to_value));
        ("AutoUpdate", (Option.map x.autoUpdate ~f:AutoUpdate.to_value));
        ("LoggingConfig",
          (Option.map x.loggingConfig ~f:LoggingConfig.to_value));
        ("ExecutionRoleArn",
          (Option.map x.executionRoleArn ~f:RoleArn.to_value));
        ("VersionBump", (Option.map x.versionBump ~f:VersionBump.to_value));
        ("MajorVersion",
          (Option.map x.majorVersion ~f:MajorVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let majorVersion =
        (Option.map ~f:MajorVersion.of_xml)
          (Xml.child xml_arg0 "MajorVersion") in
      let versionBump =
        (Option.map ~f:VersionBump.of_xml) (Xml.child xml_arg0 "VersionBump") in
      let executionRoleArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "ExecutionRoleArn") in
      let loggingConfig =
        (Option.map ~f:LoggingConfig.of_xml)
          (Xml.child xml_arg0 "LoggingConfig") in
      let autoUpdate =
        (Option.map ~f:AutoUpdate.of_xml) (Xml.child xml_arg0 "AutoUpdate") in
      let typeNameAlias =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeNameAlias") in
      let typeName =
        (Option.map ~f:TypeName.of_xml) (Xml.child xml_arg0 "TypeName") in
      let publisherId =
        (Option.map ~f:PublisherId.of_xml) (Xml.child xml_arg0 "PublisherId") in
      let publicTypeArn =
        (Option.map ~f:ThirdPartyTypeArn.of_xml)
          (Xml.child xml_arg0 "PublicTypeArn") in
      let type_ =
        (Option.map ~f:ThirdPartyType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?majorVersion ?versionBump ?executionRoleArn ?loggingConfig
        ?autoUpdate ?typeNameAlias ?typeName ?publisherId ?publicTypeArn
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let majorVersion = field_map json__ "MajorVersion" MajorVersion.of_json in
      let versionBump = field_map json__ "VersionBump" VersionBump.of_json in
      let executionRoleArn =
        field_map json__ "ExecutionRoleArn" RoleArn.of_json in
      let loggingConfig =
        field_map json__ "LoggingConfig" LoggingConfig.of_json in
      let autoUpdate = field_map json__ "AutoUpdate" AutoUpdate.of_json in
      let typeNameAlias = field_map json__ "TypeNameAlias" TypeName.of_json in
      let typeName = field_map json__ "TypeName" TypeName.of_json in
      let publisherId = field_map json__ "PublisherId" PublisherId.of_json in
      let publicTypeArn =
        field_map json__ "PublicTypeArn" ThirdPartyTypeArn.of_json in
      let type_ = field_map json__ "Type" ThirdPartyType.of_json in
      make ?majorVersion ?versionBump ?executionRoleArn ?loggingConfig
        ?autoUpdate ?typeNameAlias ?typeName ?publisherId ?publicTypeArn
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates a public third-party extension, such as a resource or module, to make it available for use in stack templates in your current account and Region. It can also create CloudFormation Hooks, which allow you to evaluate resource configurations before CloudFormation provisions them. Hooks integrate with both CloudFormation and Cloud Control API operations. After you activate an extension, you can use SetTypeConfiguration to set specific properties for the extension. To see which extensions have been activated, use ListTypes. To see configuration details for an extension, use DescribeType. For more information, see Activate a third-party public extension in your account in the CloudFormation User Guide. For information about creating Hooks, see the CloudFormation Hooks User Guide."]
module ActivateOrganizationsAccessOutput =
  struct
    type activateOrganizationsAccessResult = unit
    and responseMetaData = unit
    and t =
      {
      activateOrganizationsAccessResult: activateOrganizationsAccessResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidOperationException of InvalidOperationException.t 
      | `OperationNotFoundException of OperationNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { activateOrganizationsAccessResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "OperationNotFoundException" ->
          `OperationNotFoundException
            (OperationNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "OperationNotFoundException" ->
          `OperationNotFoundException (OperationNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `OperationNotFoundException e ->
          `Assoc
            [("error", (`String "OperationNotFoundException"));
            ("details", (OperationNotFoundException.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
       "Activate trusted access with Organizations. With trusted access between StackSets and Organizations activated, the management account has permissions to create and manage StackSets for your organization."]
module ActivateOrganizationsAccessInput =
  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
       "Activate trusted access with Organizations. With trusted access between StackSets and Organizations activated, the management account has permissions to create and manage StackSets for your organization."]