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.controltower
let apiVersion = "2018-05-10"
let endpointPrefix = "controltower"
let serviceFullName = "AWS Control Tower"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
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 DriftStatus =
  struct
    type nonrec t =
      | DRIFTED 
      | IN_SYNC 
      | NOT_CHECKING 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRIFTED -> "DRIFTED"
      | IN_SYNC -> "IN_SYNC"
      | NOT_CHECKING -> "NOT_CHECKING"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRIFTED" -> DRIFTED
      | "IN_SYNC" -> IN_SYNC
      | "NOT_CHECKING" -> NOT_CHECKING
      | "UNKNOWN" -> UNKNOWN
      | 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 DriftStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DriftStatus" j)
    let to_json = simple_to_json to_value
  end
module EnabledBaselineDriftStatus =
  struct
    type nonrec t =
      | IN_SYNC 
      | DRIFTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_SYNC -> "IN_SYNC"
      | DRIFTED -> "DRIFTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_SYNC" -> IN_SYNC
      | "DRIFTED" -> DRIFTED
      | 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 EnabledBaselineDriftStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EnabledBaselineDriftStatus" j)
    let to_json = simple_to_json to_value
  end
module EnabledControlInheritanceDrift =
  struct
    type nonrec t =
      {
      status: DriftStatus.t option
        [@ocaml.doc
          "The status of inheritance drift for the enabled control, indicating whether inheritance configuration matches expectations."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:DriftStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DriftStatus.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" DriftStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents drift information related to control inheritance between organizational units."]
module EnabledControlResourceDrift =
  struct
    type nonrec t =
      {
      status: DriftStatus.t option
        [@ocaml.doc
          "The status of resource drift for the enabled control, indicating whether the underlying resources match the expected configuration."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:DriftStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DriftStatus.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" DriftStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents drift information related to the underlying Amazon Web Services resources managed by the control."]
module EnabledBaselineInheritanceDrift =
  struct
    type nonrec t =
      {
      status: EnabledBaselineDriftStatus.t option
        [@ocaml.doc "The inheritance drift status for enabled baselines."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status ~f:EnabledBaselineDriftStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:EnabledBaselineDriftStatus.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" EnabledBaselineDriftStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The inheritance drift summary for the enabled baseline. Inheritance drift occurs when any accounts in the target OU do not match the baseline configuration defined on that OU."]
module EnabledControlDriftTypes =
  struct
    type nonrec t =
      {
      inheritance: EnabledControlInheritanceDrift.t option
        [@ocaml.doc
          "Indicates drift related to inheritance configuration between parent and child controls."];
      resource: EnabledControlResourceDrift.t option
        [@ocaml.doc
          "Indicates drift related to the underlying Amazon Web Services resources managed by the control."]}
    let make ?inheritance =
      fun ?resource -> fun () -> { inheritance; resource }
    let to_value x =
      structure_to_value
        [("inheritance",
           (Option.map x.inheritance
              ~f:EnabledControlInheritanceDrift.to_value));
        ("resource",
          (Option.map x.resource ~f:EnabledControlResourceDrift.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resource =
        (Option.map ~f:EnabledControlResourceDrift.of_xml)
          (Xml.child xml_arg0 "resource") in
      let inheritance =
        (Option.map ~f:EnabledControlInheritanceDrift.of_xml)
          (Xml.child xml_arg0 "inheritance") in
      make ?resource ?inheritance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resource =
        field_map json__ "resource" EnabledControlResourceDrift.of_json in
      let inheritance =
        field_map json__ "inheritance" EnabledControlInheritanceDrift.of_json in
      make ?resource ?inheritance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the various categories of drift that can occur for an enabled control resource."]
module EnablementStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | UNDER_CHANGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | UNDER_CHANGE -> "UNDER_CHANGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "UNDER_CHANGE" -> UNDER_CHANGE
      | 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 EnablementStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EnablementStatus" j)
    let to_json = simple_to_json to_value
  end
module OperationIdentifier =
  struct
    type nonrec t = string
    let context_ = "OperationIdentifier"
    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:"OperationIdentifier" j
    let to_json = simple_to_json to_value
  end
module EnabledBaselineDriftTypes =
  struct
    type nonrec t =
      {
      inheritance: EnabledBaselineInheritanceDrift.t option
        [@ocaml.doc
          "At least one account within the target OU does not match the baseline configuration defined on that OU. An account is in inheritance drift when it does not match the configuration of a parent OU, possibly a new parent OU, if the account is moved."]}
    let make ?inheritance = fun () -> { inheritance }
    let to_value x =
      structure_to_value
        [("inheritance",
           (Option.map x.inheritance
              ~f:EnabledBaselineInheritanceDrift.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inheritance =
        (Option.map ~f:EnabledBaselineInheritanceDrift.of_xml)
          (Xml.child xml_arg0 "inheritance") in
      make ?inheritance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inheritance =
        field_map json__ "inheritance"
          EnabledBaselineInheritanceDrift.of_json in
      make ?inheritance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The types of drift that can be detected for an enabled baseline. Amazon Web Services Control Tower detects inheritance drift on the enabled baselines that target OUs: AWSControlTowerBaseline and BackupBaseline. Amazon Web Services Control Tower does not detect drift on the baselines that apply to your landing zone: IdentityCenterBaseline, AuditBaseline, LogArchiveBaseline, BackupCentralVaultBaseline, or BackupAdminBaseline. For more information, see Types of baselines. Baselines enabled on an OU are inherited by its member accounts as child EnabledBaseline resources. The baseline on the OU serves as the parent EnabledBaseline, which governs the configuration of each child EnabledBaseline. If the baseline configuration of a member account in an OU does not match the configuration of the parent OU, the parent and child baseline is in a state of inheritance drift. This drift could occur in the AWSControlTowerBaseline or the BackupBaseline related to that account."]
module Document =
  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
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module RegionName =
  struct
    type nonrec t = string
    let context_ = "RegionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegionName" j
    let to_json = simple_to_json to_value
  end
module EnabledBaselineParameterDocument =
  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
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:aws[0-9a-zA-Z_\\-:\\/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module LandingZoneOperationStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | 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 LandingZoneOperationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LandingZoneOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module LandingZoneOperationType =
  struct
    type nonrec t =
      | DELETE 
      | CREATE 
      | UPDATE 
      | RESET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELETE -> "DELETE"
      | CREATE -> "CREATE"
      | UPDATE -> "UPDATE"
      | RESET -> "RESET"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELETE" -> DELETE
      | "CREATE" -> CREATE
      | "UPDATE" -> UPDATE
      | "RESET" -> RESET
      | 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 LandingZoneOperationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LandingZoneOperationType" j)
    let to_json = simple_to_json to_value
  end
module ControlIdentifier =
  struct
    type nonrec t = string
    let context_ = "ControlIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:aws[0-9a-zA-Z_\\-:\\/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlIdentifier" j
    let to_json = simple_to_json to_value
  end
module DriftStatusSummary =
  struct
    type nonrec t =
      {
      driftStatus: DriftStatus.t option
        [@ocaml.doc
          "The drift status of the enabled control. Valid values: DRIFTED: The enabledControl deployed in this configuration doesn\226\128\153t match the configuration that Amazon Web Services Control Tower expected. IN_SYNC: The enabledControl deployed in this configuration matches the configuration that Amazon Web Services Control Tower expected. NOT_CHECKING: Amazon Web Services Control Tower does not check drift for this enabled control. Drift is not supported for the control type. UNKNOWN: Amazon Web Services Control Tower is not able to check the drift status for the enabled control."];
      types: EnabledControlDriftTypes.t option
        [@ocaml.doc
          "An object that categorizes the different types of drift detected for the enabled control."]}
    let make ?driftStatus = fun ?types -> fun () -> { driftStatus; types }
    let to_value x =
      structure_to_value
        [("driftStatus", (Option.map x.driftStatus ~f:DriftStatus.to_value));
        ("types", (Option.map x.types ~f:EnabledControlDriftTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:EnabledControlDriftTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let driftStatus =
        (Option.map ~f:DriftStatus.of_xml) (Xml.child xml_arg0 "driftStatus") in
      make ?types ?driftStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types = field_map json__ "types" EnabledControlDriftTypes.of_json in
      let driftStatus = field_map json__ "driftStatus" DriftStatus.of_json in
      make ?types ?driftStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The drift summary of the enabled control. Amazon Web Services Control Tower expects the enabled control configuration to include all supported and governed Regions. If the enabled control differs from the expected configuration, it is defined to be in a state of drift. You can repair this drift by resetting the enabled control."]
module EnablementStatusSummary =
  struct
    type nonrec t =
      {
      status: EnablementStatus.t option
        [@ocaml.doc
          "The deployment status of the enabled resource. Valid values: SUCCEEDED: The EnabledControl or EnabledBaseline configuration was deployed successfully. UNDER_CHANGE: The EnabledControl or EnabledBaseline configuration is changing. FAILED: The EnabledControl or EnabledBaseline configuration failed to deploy."];
      lastOperationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The last operation identifier for the enabled resource."]}
    let make ?status =
      fun ?lastOperationIdentifier ->
        fun () -> { status; lastOperationIdentifier }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:EnablementStatus.to_value));
        ("lastOperationIdentifier",
          (Option.map x.lastOperationIdentifier
             ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastOperationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "lastOperationIdentifier") in
      let status =
        (Option.map ~f:EnablementStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?lastOperationIdentifier ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastOperationIdentifier =
        field_map json__ "lastOperationIdentifier"
          OperationIdentifier.of_json in
      let status = field_map json__ "status" EnablementStatus.of_json in
      make ?lastOperationIdentifier ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The deployment summary of an EnabledControl or EnabledBaseline resource."]
module ParentIdentifier =
  struct
    type nonrec t = string
    let context_ = "ParentIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:aws[0-9a-zA-Z_\\-:\\/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ParentIdentifier" j
    let to_json = simple_to_json to_value
  end
module TargetIdentifier =
  struct
    type nonrec t = string
    let context_ = "TargetIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:aws[0-9a-zA-Z_\\-:\\/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetIdentifier" j
    let to_json = simple_to_json to_value
  end
module EnabledBaselineDriftStatusSummary =
  struct
    type nonrec t =
      {
      types: EnabledBaselineDriftTypes.t option
        [@ocaml.doc
          "The types of drift that can be detected for an enabled baseline. Amazon Web Services Control Tower detects inheritance drift on enabled baselines that apply at the OU level."]}
    let make ?types = fun () -> { types }
    let to_value x =
      structure_to_value
        [("types",
           (Option.map x.types ~f:EnabledBaselineDriftTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:EnabledBaselineDriftTypes.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" EnabledBaselineDriftTypes.of_json in
      make ?types ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The drift summary of the enabled baseline. Amazon Web Services Control Tower reports inheritance drift when an enabled baseline configuration of a member account is different than the configuration that applies to the OU. Amazon Web Services Control Tower reports this type of drift for a parent or child enabled baseline. One way to repair this drift by resetting the parent enabled baseline, on the OU. For example, you may see this type of drift if you move accounts between OUs, but the accounts are not yet (re-)enrolled."]
module ControlOperationStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | 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 ControlOperationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ControlOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module ControlOperationType =
  struct
    type nonrec t =
      | ENABLE_CONTROL 
      | DISABLE_CONTROL 
      | UPDATE_ENABLED_CONTROL 
      | RESET_ENABLED_CONTROL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLE_CONTROL -> "ENABLE_CONTROL"
      | DISABLE_CONTROL -> "DISABLE_CONTROL"
      | UPDATE_ENABLED_CONTROL -> "UPDATE_ENABLED_CONTROL"
      | RESET_ENABLED_CONTROL -> "RESET_ENABLED_CONTROL"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLE_CONTROL" -> ENABLE_CONTROL
      | "DISABLE_CONTROL" -> DISABLE_CONTROL
      | "UPDATE_ENABLED_CONTROL" -> UPDATE_ENABLED_CONTROL
      | "RESET_ENABLED_CONTROL" -> RESET_ENABLED_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 ControlOperationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlOperationType" j)
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module LandingZoneDriftStatus =
  struct
    type nonrec t =
      | DRIFTED 
      | IN_SYNC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRIFTED -> "DRIFTED"
      | IN_SYNC -> "IN_SYNC"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRIFTED" -> DRIFTED
      | "IN_SYNC" -> IN_SYNC
      | 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 LandingZoneDriftStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LandingZoneDriftStatus" j)
    let to_json = simple_to_json to_value
  end
module RemediationType =
  struct
    type nonrec t =
      | INHERITANCE_DRIFT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INHERITANCE_DRIFT -> "INHERITANCE_DRIFT"
      | Non_static_id s -> s
    let of_string =
      function
      | "INHERITANCE_DRIFT" -> INHERITANCE_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 RemediationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RemediationType" j)
    let to_json = simple_to_json to_value
  end
module EnabledControlParameterSummary =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The key of a key/value pair."];
      value: Document.t option [@ocaml.doc "The value of a key/value pair."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:Document.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.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" Document.of_json in
      let key = field_map json__ "key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of information about the parameters of an enabled control."]
module Region =
  struct
    type nonrec t =
      {
      name: RegionName.t option
        [@ocaml.doc "The Amazon Web Services Region name."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:RegionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" RegionName.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon Web Services Region in which Amazon Web Services Control Tower expects to find the control deployed. The expected Regions are based on the Regions that are governed by the landing zone. In certain cases, a control is not actually enabled in the Region as expected, such as during drift, or mixed governance."]
module EnabledBaselineParameterSummary =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc "A string denoting the parameter key."];
      value: EnabledBaselineParameterDocument.t option
        [@ocaml.doc
          "A low-level document object of any type (for example, a Java Object)."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value",
          (Option.map x.value ~f:EnabledBaselineParameterDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:EnabledBaselineParameterDocument.of_xml)
          (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.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" EnabledBaselineParameterDocument.of_json in
      let key = field_map json__ "key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of an applied parameter to an EnabledBaseline resource."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module EnabledControlParameter =
  struct
    type nonrec t =
      {
      key: String_.t [@ocaml.doc "The key of a key/value pair."];
      value: Document.t [@ocaml.doc "The value of a key/value pair."]}
    let context_ = "EnabledControlParameter"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (String_.to_value x.key)));
        ("value", (Some (Document.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        Document.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        String_.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" Document.of_json in
      let key = field_map_exn json__ "key" String_.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key/value pair, where Key is of type String and Value is of type Document."]
module EnabledBaselineParameter =
  struct
    type nonrec t =
      {
      key: String_.t [@ocaml.doc "A string denoting the parameter key."];
      value: EnabledBaselineParameterDocument.t
        [@ocaml.doc
          "A low-level Document object of any type (for example, a Java Object)."]}
    let context_ = "EnabledBaselineParameter"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (String_.to_value x.key)));
        ("value", (Some (EnabledBaselineParameterDocument.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        EnabledBaselineParameterDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        String_.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" EnabledBaselineParameterDocument.of_json in
      let key = field_map_exn json__ "key" String_.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key-value parameter to an EnabledBaseline resource."]
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:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module LandingZoneSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option [@ocaml.doc "The ARN of the landing zone."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.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" Arn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a summary of information about a landing zone."]
module LandingZoneOperationSummary =
  struct
    type nonrec t =
      {
      operationType: LandingZoneOperationType.t option
        [@ocaml.doc "The type of the landing zone operation."];
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc "The operationIdentifier of the landing zone operation."];
      status: LandingZoneOperationStatus.t option
        [@ocaml.doc "The status of the landing zone operation."]}
    let make ?operationType =
      fun ?operationIdentifier ->
        fun ?status ->
          fun () -> { operationType; operationIdentifier; status }
    let to_value x =
      structure_to_value
        [("operationType",
           (Option.map x.operationType ~f:LandingZoneOperationType.to_value));
        ("operationIdentifier",
          (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("status",
          (Option.map x.status ~f:LandingZoneOperationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LandingZoneOperationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      let operationType =
        (Option.map ~f:LandingZoneOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      make ?status ?operationIdentifier ?operationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" LandingZoneOperationStatus.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      let operationType =
        field_map json__ "operationType" LandingZoneOperationType.of_json in
      make ?status ?operationIdentifier ?operationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of information about a landing zone operation."]
module LandingZoneOperationStatuses =
  struct
    type nonrec t = LandingZoneOperationStatus.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:LandingZoneOperationStatus.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:LandingZoneOperationStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"LandingZoneOperationStatuses"
        ~of_json:LandingZoneOperationStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module LandingZoneOperationTypes =
  struct
    type nonrec t = LandingZoneOperationType.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:LandingZoneOperationType.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:LandingZoneOperationType.of_xml)
    let of_json j =
      list_of_json ~kind:"LandingZoneOperationTypes"
        ~of_json:LandingZoneOperationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledControlSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option [@ocaml.doc "The ARN of the enabled control."];
      controlIdentifier: ControlIdentifier.t option
        [@ocaml.doc "The controlIdentifier of the enabled control."];
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc "The ARN of the organizational unit."];
      statusSummary: EnablementStatusSummary.t option
        [@ocaml.doc
          "A short description of the status of the enabled control."];
      driftStatusSummary: DriftStatusSummary.t option
        [@ocaml.doc "The drift status of the enabled control."];
      parentIdentifier: ParentIdentifier.t option
        [@ocaml.doc
          "The ARN of the parent enabled control from which this control inherits its configuration, if applicable."]}
    let make ?arn =
      fun ?controlIdentifier ->
        fun ?targetIdentifier ->
          fun ?statusSummary ->
            fun ?driftStatusSummary ->
              fun ?parentIdentifier ->
                fun () ->
                  {
                    arn;
                    controlIdentifier;
                    targetIdentifier;
                    statusSummary;
                    driftStatusSummary;
                    parentIdentifier
                  }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("controlIdentifier",
          (Option.map x.controlIdentifier ~f:ControlIdentifier.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("statusSummary",
          (Option.map x.statusSummary ~f:EnablementStatusSummary.to_value));
        ("driftStatusSummary",
          (Option.map x.driftStatusSummary ~f:DriftStatusSummary.to_value));
        ("parentIdentifier",
          (Option.map x.parentIdentifier ~f:ParentIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentIdentifier =
        (Option.map ~f:ParentIdentifier.of_xml)
          (Xml.child xml_arg0 "parentIdentifier") in
      let driftStatusSummary =
        (Option.map ~f:DriftStatusSummary.of_xml)
          (Xml.child xml_arg0 "driftStatusSummary") in
      let statusSummary =
        (Option.map ~f:EnablementStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        (Option.map ~f:ControlIdentifier.of_xml)
          (Xml.child xml_arg0 "controlIdentifier") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?parentIdentifier ?driftStatusSummary ?statusSummary
        ?targetIdentifier ?controlIdentifier ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentIdentifier =
        field_map json__ "parentIdentifier" ParentIdentifier.of_json in
      let driftStatusSummary =
        field_map json__ "driftStatusSummary" DriftStatusSummary.of_json in
      let statusSummary =
        field_map json__ "statusSummary" EnablementStatusSummary.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map json__ "controlIdentifier" ControlIdentifier.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?parentIdentifier ?driftStatusSummary ?statusSummary
        ?targetIdentifier ?controlIdentifier ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of information about an enabled control."]
module ControlIdentifiers =
  struct
    type nonrec t = ControlIdentifier.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:ControlIdentifier.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:ControlIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlIdentifiers"
        ~of_json:ControlIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module DriftStatuses =
  struct
    type nonrec t = DriftStatus.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:DriftStatus.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:DriftStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"DriftStatuses" ~of_json:DriftStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnablementStatuses =
  struct
    type nonrec t = EnablementStatus.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:EnablementStatus.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:EnablementStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"EnablementStatuses"
        ~of_json:EnablementStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParentIdentifiers =
  struct
    type nonrec t = ParentIdentifier.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:ParentIdentifier.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:ParentIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ParentIdentifiers"
        ~of_json:ParentIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The ARN of the EnabledBaseline resource"];
      baselineIdentifier: String_.t option
        [@ocaml.doc
          "The specific baseline that is enabled as part of the EnabledBaseline resource."];
      baselineVersion: String_.t option
        [@ocaml.doc "The enabled version of the baseline."];
      driftStatusSummary: EnabledBaselineDriftStatusSummary.t option
        [@ocaml.doc "The drift status of the enabled baseline."];
      targetIdentifier: String_.t option
        [@ocaml.doc "The target upon which the baseline is enabled."];
      parentIdentifier: Arn.t option
        [@ocaml.doc
          "An ARN that represents an object returned by ListEnabledBaseline, to describe an enabled baseline."];
      statusSummary: EnablementStatusSummary.t option }
    let make ?arn =
      fun ?baselineIdentifier ->
        fun ?baselineVersion ->
          fun ?driftStatusSummary ->
            fun ?targetIdentifier ->
              fun ?parentIdentifier ->
                fun ?statusSummary ->
                  fun () ->
                    {
                      arn;
                      baselineIdentifier;
                      baselineVersion;
                      driftStatusSummary;
                      targetIdentifier;
                      parentIdentifier;
                      statusSummary
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("baselineIdentifier",
          (Option.map x.baselineIdentifier ~f:String_.to_value));
        ("baselineVersion",
          (Option.map x.baselineVersion ~f:String_.to_value));
        ("driftStatusSummary",
          (Option.map x.driftStatusSummary
             ~f:EnabledBaselineDriftStatusSummary.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:String_.to_value));
        ("parentIdentifier", (Option.map x.parentIdentifier ~f:Arn.to_value));
        ("statusSummary",
          (Option.map x.statusSummary ~f:EnablementStatusSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummary =
        (Option.map ~f:EnablementStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let parentIdentifier =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "parentIdentifier") in
      let targetIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let driftStatusSummary =
        (Option.map ~f:EnabledBaselineDriftStatusSummary.of_xml)
          (Xml.child xml_arg0 "driftStatusSummary") in
      let baselineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "baselineVersion") in
      let baselineIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "baselineIdentifier") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?statusSummary ?parentIdentifier ?targetIdentifier
        ?driftStatusSummary ?baselineVersion ?baselineIdentifier ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummary =
        field_map json__ "statusSummary" EnablementStatusSummary.of_json in
      let parentIdentifier = field_map json__ "parentIdentifier" Arn.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" String_.of_json in
      let driftStatusSummary =
        field_map json__ "driftStatusSummary"
          EnabledBaselineDriftStatusSummary.of_json in
      let baselineVersion =
        field_map json__ "baselineVersion" String_.of_json in
      let baselineIdentifier =
        field_map json__ "baselineIdentifier" String_.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?statusSummary ?parentIdentifier ?targetIdentifier
        ?driftStatusSummary ?baselineVersion ?baselineIdentifier ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of information about an EnabledBaseline object."]
module EnabledBaselineBaselineIdentifiers =
  struct
    type nonrec t = Arn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineBaselineIdentifiers"
        ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineDriftStatuses =
  struct
    type nonrec t = EnabledBaselineDriftStatus.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:EnabledBaselineDriftStatus.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:EnabledBaselineDriftStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineDriftStatuses"
        ~of_json:EnabledBaselineDriftStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineEnablementStatuses =
  struct
    type nonrec t = EnablementStatus.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:EnablementStatus.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:EnablementStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineEnablementStatuses"
        ~of_json:EnablementStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineParentIdentifiers =
  struct
    type nonrec t = Arn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineParentIdentifiers"
        ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineTargetIdentifiers =
  struct
    type nonrec t = Arn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineTargetIdentifiers"
        ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlOperationSummary =
  struct
    type nonrec t =
      {
      operationType: ControlOperationType.t option
        [@ocaml.doc "The type of operation."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time at which a control operation began."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time at which the control operation was completed."];
      status: ControlOperationStatus.t option
        [@ocaml.doc "The status of the specified control operation."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A speficic message displayed as part of the control status."];
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc "The unique identifier of a control operation."];
      controlIdentifier: ControlIdentifier.t option
        [@ocaml.doc "The controlIdentifier of a control."];
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc
          "The unique identifier of the target of a control operation."];
      enabledControlIdentifier: Arn.t option
        [@ocaml.doc "The controlIdentifier of an enabled control."]}
    let make ?operationType =
      fun ?startTime ->
        fun ?endTime ->
          fun ?status ->
            fun ?statusMessage ->
              fun ?operationIdentifier ->
                fun ?controlIdentifier ->
                  fun ?targetIdentifier ->
                    fun ?enabledControlIdentifier ->
                      fun () ->
                        {
                          operationType;
                          startTime;
                          endTime;
                          status;
                          statusMessage;
                          operationIdentifier;
                          controlIdentifier;
                          targetIdentifier;
                          enabledControlIdentifier
                        }
    let to_value x =
      structure_to_value
        [("operationType",
           (Option.map x.operationType ~f:ControlOperationType.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ControlOperationStatus.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("operationIdentifier",
          (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("controlIdentifier",
          (Option.map x.controlIdentifier ~f:ControlIdentifier.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("enabledControlIdentifier",
          (Option.map x.enabledControlIdentifier ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "enabledControlIdentifier") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        (Option.map ~f:ControlIdentifier.of_xml)
          (Xml.child xml_arg0 "controlIdentifier") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:ControlOperationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let operationType =
        (Option.map ~f:ControlOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier
        ?operationIdentifier ?statusMessage ?status ?endTime ?startTime
        ?operationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map json__ "enabledControlIdentifier" Arn.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map json__ "controlIdentifier" ControlIdentifier.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let status = field_map json__ "status" ControlOperationStatus.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let operationType =
        field_map json__ "operationType" ControlOperationType.of_json in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier
        ?operationIdentifier ?statusMessage ?status ?endTime ?startTime
        ?operationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of information about the specified control operation."]
module ControlOperationStatuses =
  struct
    type nonrec t = ControlOperationStatus.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:ControlOperationStatus.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:ControlOperationStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlOperationStatuses"
        ~of_json:ControlOperationStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlOperationTypes =
  struct
    type nonrec t = ControlOperationType.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:ControlOperationType.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:ControlOperationType.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlOperationTypes"
        ~of_json:ControlOperationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledControlIdentifiers =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledControlIdentifiers" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetIdentifiers =
  struct
    type nonrec t = TargetIdentifier.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:TargetIdentifier.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:TargetIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetIdentifiers"
        ~of_json:TargetIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module BaselineSummary =
  struct
    type nonrec t =
      {
      arn: String_.t option [@ocaml.doc "The full ARN of a Baseline."];
      name: String_.t option
        [@ocaml.doc "The human-readable name of a Baseline."];
      description: String_.t option
        [@ocaml.doc "A summary description of a Baseline."]}
    let make ?arn =
      fun ?name -> fun ?description -> fun () -> { arn; name; description }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      make ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      make ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of information about a Baseline object."]
module LandingZoneDriftStatusSummary =
  struct
    type nonrec t =
      {
      status: LandingZoneDriftStatus.t option
        [@ocaml.doc
          "The drift status of the landing zone. Valid values: DRIFTED: The landing zone deployed in this configuration does not match the configuration that Amazon Web Services Control Tower expected. IN_SYNC: The landing zone deployed in this configuration matches the configuration that Amazon Web Services Control Tower expected."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:LandingZoneDriftStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LandingZoneDriftStatus.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" LandingZoneDriftStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The drift status summary of the landing zone. If the landing zone differs from the expected configuration, it is defined to be in a state of drift. You can repair this drift by resetting the landing zone."]
module LandingZoneStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PROCESSING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PROCESSING -> "PROCESSING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PROCESSING" -> PROCESSING
      | "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 LandingZoneStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LandingZoneStatus" j)
    let to_json = simple_to_json to_value
  end
module LandingZoneVersion =
  struct
    type nonrec t = string
    let context_ = "LandingZoneVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () -> check_pattern i ~pattern:"\\d+.\\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:"LandingZoneVersion" j
    let to_json = simple_to_json to_value
  end
module Manifest =
  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
module RemediationTypes =
  struct
    type nonrec t = RemediationType.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:RemediationType.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:RemediationType.of_xml)
    let of_json j =
      list_of_json ~kind:"RemediationTypes" ~of_json:RemediationType.of_json
        j
    let to_json v = composed_to_json to_value v
  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 EnabledControlParameterSummaries =
  struct
    type nonrec t = EnabledControlParameterSummary.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:EnabledControlParameterSummary.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:EnabledControlParameterSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledControlParameterSummaries"
        ~of_json:EnabledControlParameterSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetRegions =
  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:"TargetRegions" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnabledBaselineParameterSummaries =
  struct
    type nonrec t = EnabledBaselineParameterSummary.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:EnabledBaselineParameterSummary.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:EnabledBaselineParameterSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineParameterSummaries"
        ~of_json:EnabledBaselineParameterSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module BaselineOperationStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | 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 BaselineOperationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BaselineOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module BaselineOperationType =
  struct
    type nonrec t =
      | ENABLE_BASELINE 
      | DISABLE_BASELINE 
      | UPDATE_ENABLED_BASELINE 
      | RESET_ENABLED_BASELINE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLE_BASELINE -> "ENABLE_BASELINE"
      | DISABLE_BASELINE -> "DISABLE_BASELINE"
      | UPDATE_ENABLED_BASELINE -> "UPDATE_ENABLED_BASELINE"
      | RESET_ENABLED_BASELINE -> "RESET_ENABLED_BASELINE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLE_BASELINE" -> ENABLE_BASELINE
      | "DISABLE_BASELINE" -> DISABLE_BASELINE
      | "UPDATE_ENABLED_BASELINE" -> UPDATE_ENABLED_BASELINE
      | "RESET_ENABLED_BASELINE" -> RESET_ENABLED_BASELINE
      | 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 BaselineOperationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BaselineOperationType" j)
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updating or deleting the resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An unexpected error occurred during processing of a request."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request references a resource that does not exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc
          "The ID of the service that is associated with the error."];
      quotaCode: String_.t option
        [@ocaml.doc "The ID of the service quota that was exceeded."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds the caller should wait before retrying."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input does not satisfy the constraints specified by an Amazon Web Services service."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request would cause a service quota to be exceeded. See Service quotas."]
module EnabledControlParameters =
  struct
    type nonrec t = EnabledControlParameter.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:EnabledControlParameter.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:EnabledControlParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledControlParameters"
        ~of_json:EnabledControlParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module BaselineVersion =
  struct
    type nonrec t = string
    let context_ = "BaselineVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () -> check_pattern i ~pattern:"\\d+(?:\\.\\d+){0,2}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BaselineVersion" j
    let to_json = simple_to_json to_value
  end
module EnabledBaselineParameters =
  struct
    type nonrec t = EnabledBaselineParameter.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:EnabledBaselineParameter.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:EnabledBaselineParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselineParameters"
        ~of_json:EnabledBaselineParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.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:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListLandingZonesOutputLandingZonesList =
  struct
    type nonrec t = LandingZoneSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LandingZoneSummary.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:LandingZoneSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListLandingZonesOutputLandingZonesList"
        ~of_json:LandingZoneSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListLandingZonesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1) >>= (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 ListLandingZonesMaxResults"
           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 LandingZoneOperations =
  struct
    type nonrec t = LandingZoneOperationSummary.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:LandingZoneOperationSummary.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:LandingZoneOperationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LandingZoneOperations"
        ~of_json:LandingZoneOperationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module LandingZoneOperationFilter =
  struct
    type nonrec t =
      {
      types: LandingZoneOperationTypes.t option
        [@ocaml.doc
          "The set of landing zone operation types selected by the filter."];
      statuses: LandingZoneOperationStatuses.t option
        [@ocaml.doc
          "The statuses of the set of landing zone operations selected by the filter."]}
    let make ?types = fun ?statuses -> fun () -> { types; statuses }
    let to_value x =
      structure_to_value
        [("types",
           (Option.map x.types ~f:LandingZoneOperationTypes.to_value));
        ("statuses",
          (Option.map x.statuses ~f:LandingZoneOperationStatuses.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statuses =
        (Option.map ~f:LandingZoneOperationStatuses.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let types =
        (Option.map ~f:LandingZoneOperationTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      make ?statuses ?types ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statuses =
        field_map json__ "statuses" LandingZoneOperationStatuses.of_json in
      let types = field_map json__ "types" LandingZoneOperationTypes.of_json in
      make ?statuses ?types ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter object that lets you call ListLandingZoneOperations with a specific filter."]
module ListLandingZoneOperationsMaxResults =
  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 ListLandingZoneOperationsMaxResults"
           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 EnabledControls =
  struct
    type nonrec t = EnabledControlSummary.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:EnabledControlSummary.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:EnabledControlSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledControls"
        ~of_json:EnabledControlSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module EnabledControlFilter =
  struct
    type nonrec t =
      {
      controlIdentifiers: ControlIdentifiers.t option
        [@ocaml.doc "The set of controlIdentifier returned by the filter."];
      statuses: EnablementStatuses.t option
        [@ocaml.doc "A list of EnablementStatus items."];
      driftStatuses: DriftStatuses.t option
        [@ocaml.doc "A list of DriftStatus items."];
      parentIdentifiers: ParentIdentifiers.t option
        [@ocaml.doc
          "Filters enabled controls by their parent control identifiers, allowing you to find child controls of specific parent controls."];
      inheritanceDriftStatuses: DriftStatuses.t option
        [@ocaml.doc
          "Filters enabled controls by their inheritance drift status, allowing you to find controls with specific inheritance-related drift conditions."];
      resourceDriftStatuses: DriftStatuses.t option
        [@ocaml.doc
          "Filters enabled controls by their resource drift status, allowing you to find controls with specific resource-related drift conditions."]}
    let make ?controlIdentifiers =
      fun ?statuses ->
        fun ?driftStatuses ->
          fun ?parentIdentifiers ->
            fun ?inheritanceDriftStatuses ->
              fun ?resourceDriftStatuses ->
                fun () ->
                  {
                    controlIdentifiers;
                    statuses;
                    driftStatuses;
                    parentIdentifiers;
                    inheritanceDriftStatuses;
                    resourceDriftStatuses
                  }
    let to_value x =
      structure_to_value
        [("controlIdentifiers",
           (Option.map x.controlIdentifiers ~f:ControlIdentifiers.to_value));
        ("statuses", (Option.map x.statuses ~f:EnablementStatuses.to_value));
        ("driftStatuses",
          (Option.map x.driftStatuses ~f:DriftStatuses.to_value));
        ("parentIdentifiers",
          (Option.map x.parentIdentifiers ~f:ParentIdentifiers.to_value));
        ("inheritanceDriftStatuses",
          (Option.map x.inheritanceDriftStatuses ~f:DriftStatuses.to_value));
        ("resourceDriftStatuses",
          (Option.map x.resourceDriftStatuses ~f:DriftStatuses.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceDriftStatuses =
        (Option.map ~f:DriftStatuses.of_xml)
          (Xml.child xml_arg0 "resourceDriftStatuses") in
      let inheritanceDriftStatuses =
        (Option.map ~f:DriftStatuses.of_xml)
          (Xml.child xml_arg0 "inheritanceDriftStatuses") in
      let parentIdentifiers =
        (Option.map ~f:ParentIdentifiers.of_xml)
          (Xml.child xml_arg0 "parentIdentifiers") in
      let driftStatuses =
        (Option.map ~f:DriftStatuses.of_xml)
          (Xml.child xml_arg0 "driftStatuses") in
      let statuses =
        (Option.map ~f:EnablementStatuses.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let controlIdentifiers =
        (Option.map ~f:ControlIdentifiers.of_xml)
          (Xml.child xml_arg0 "controlIdentifiers") in
      make ?resourceDriftStatuses ?inheritanceDriftStatuses
        ?parentIdentifiers ?driftStatuses ?statuses ?controlIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceDriftStatuses =
        field_map json__ "resourceDriftStatuses" DriftStatuses.of_json in
      let inheritanceDriftStatuses =
        field_map json__ "inheritanceDriftStatuses" DriftStatuses.of_json in
      let parentIdentifiers =
        field_map json__ "parentIdentifiers" ParentIdentifiers.of_json in
      let driftStatuses =
        field_map json__ "driftStatuses" DriftStatuses.of_json in
      let statuses = field_map json__ "statuses" EnablementStatuses.of_json in
      let controlIdentifiers =
        field_map json__ "controlIdentifiers" ControlIdentifiers.of_json in
      make ?resourceDriftStatuses ?inheritanceDriftStatuses
        ?parentIdentifiers ?driftStatuses ?statuses ?controlIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that returns a set of control identifiers, the control status for each control in the set, and the drift status for each control in the set."]
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:200) >>= (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 EnabledBaselines =
  struct
    type nonrec t = EnabledBaselineSummary.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:EnabledBaselineSummary.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:EnabledBaselineSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledBaselines"
        ~of_json:EnabledBaselineSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListEnabledBaselinesNextToken =
  struct
    type nonrec t = string
    let context_ = "ListEnabledBaselinesNextToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:".*\\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:"ListEnabledBaselinesNextToken" j
    let to_json = simple_to_json to_value
  end
module EnabledBaselineFilter =
  struct
    type nonrec t =
      {
      targetIdentifiers: EnabledBaselineTargetIdentifiers.t option
        [@ocaml.doc
          "Identifiers for the targets of the Baseline filter operation."];
      baselineIdentifiers: EnabledBaselineBaselineIdentifiers.t option
        [@ocaml.doc
          "Identifiers for the Baseline objects returned as part of the filter operation."];
      parentIdentifiers: EnabledBaselineParentIdentifiers.t option
        [@ocaml.doc
          "An optional filter that sets up a list of parentIdentifiers to filter the results of the ListEnabledBaseline output."];
      statuses: EnabledBaselineEnablementStatuses.t option
        [@ocaml.doc "A list of EnablementStatus items."];
      inheritanceDriftStatuses: EnabledBaselineDriftStatuses.t option
        [@ocaml.doc
          "A list of EnabledBaselineDriftStatus items for enabled baselines."]}
    let make ?targetIdentifiers =
      fun ?baselineIdentifiers ->
        fun ?parentIdentifiers ->
          fun ?statuses ->
            fun ?inheritanceDriftStatuses ->
              fun () ->
                {
                  targetIdentifiers;
                  baselineIdentifiers;
                  parentIdentifiers;
                  statuses;
                  inheritanceDriftStatuses
                }
    let to_value x =
      structure_to_value
        [("targetIdentifiers",
           (Option.map x.targetIdentifiers
              ~f:EnabledBaselineTargetIdentifiers.to_value));
        ("baselineIdentifiers",
          (Option.map x.baselineIdentifiers
             ~f:EnabledBaselineBaselineIdentifiers.to_value));
        ("parentIdentifiers",
          (Option.map x.parentIdentifiers
             ~f:EnabledBaselineParentIdentifiers.to_value));
        ("statuses",
          (Option.map x.statuses
             ~f:EnabledBaselineEnablementStatuses.to_value));
        ("inheritanceDriftStatuses",
          (Option.map x.inheritanceDriftStatuses
             ~f:EnabledBaselineDriftStatuses.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inheritanceDriftStatuses =
        (Option.map ~f:EnabledBaselineDriftStatuses.of_xml)
          (Xml.child xml_arg0 "inheritanceDriftStatuses") in
      let statuses =
        (Option.map ~f:EnabledBaselineEnablementStatuses.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let parentIdentifiers =
        (Option.map ~f:EnabledBaselineParentIdentifiers.of_xml)
          (Xml.child xml_arg0 "parentIdentifiers") in
      let baselineIdentifiers =
        (Option.map ~f:EnabledBaselineBaselineIdentifiers.of_xml)
          (Xml.child xml_arg0 "baselineIdentifiers") in
      let targetIdentifiers =
        (Option.map ~f:EnabledBaselineTargetIdentifiers.of_xml)
          (Xml.child xml_arg0 "targetIdentifiers") in
      make ?inheritanceDriftStatuses ?statuses ?parentIdentifiers
        ?baselineIdentifiers ?targetIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inheritanceDriftStatuses =
        field_map json__ "inheritanceDriftStatuses"
          EnabledBaselineDriftStatuses.of_json in
      let statuses =
        field_map json__ "statuses" EnabledBaselineEnablementStatuses.of_json in
      let parentIdentifiers =
        field_map json__ "parentIdentifiers"
          EnabledBaselineParentIdentifiers.of_json in
      let baselineIdentifiers =
        field_map json__ "baselineIdentifiers"
          EnabledBaselineBaselineIdentifiers.of_json in
      let targetIdentifiers =
        field_map json__ "targetIdentifiers"
          EnabledBaselineTargetIdentifiers.of_json in
      make ?inheritanceDriftStatuses ?statuses ?parentIdentifiers
        ?baselineIdentifiers ?targetIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter applied on the ListEnabledBaseline operation. Allowed filters are baselineIdentifiers and targetIdentifiers. The filter can be applied for either, or both."]
module ListEnabledBaselinesMaxResults =
  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:5));
        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 ListEnabledBaselinesMaxResults"
           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 ControlOperations =
  struct
    type nonrec t = ControlOperationSummary.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:ControlOperationSummary.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:ControlOperationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlOperations"
        ~of_json:ControlOperationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListControlOperationsNextToken =
  struct
    type nonrec t = string
    let context_ = "ListControlOperationsNextToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:".*\\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:"ListControlOperationsNextToken" j
    let to_json = simple_to_json to_value
  end
module ControlOperationFilter =
  struct
    type nonrec t =
      {
      controlIdentifiers: ControlIdentifiers.t option
        [@ocaml.doc "The set of controlIdentifier returned by the filter."];
      targetIdentifiers: TargetIdentifiers.t option
        [@ocaml.doc
          "The set of targetIdentifier objects returned by the filter."];
      enabledControlIdentifiers: EnabledControlIdentifiers.t option
        [@ocaml.doc
          "The set controlIdentifier of enabled controls selected by the filter."];
      statuses: ControlOperationStatuses.t option
        [@ocaml.doc "Lists the status of control operations."];
      controlOperationTypes: ControlOperationTypes.t option
        [@ocaml.doc
          "The set of ControlOperation objects returned by the filter."]}
    let make ?controlIdentifiers =
      fun ?targetIdentifiers ->
        fun ?enabledControlIdentifiers ->
          fun ?statuses ->
            fun ?controlOperationTypes ->
              fun () ->
                {
                  controlIdentifiers;
                  targetIdentifiers;
                  enabledControlIdentifiers;
                  statuses;
                  controlOperationTypes
                }
    let to_value x =
      structure_to_value
        [("controlIdentifiers",
           (Option.map x.controlIdentifiers ~f:ControlIdentifiers.to_value));
        ("targetIdentifiers",
          (Option.map x.targetIdentifiers ~f:TargetIdentifiers.to_value));
        ("enabledControlIdentifiers",
          (Option.map x.enabledControlIdentifiers
             ~f:EnabledControlIdentifiers.to_value));
        ("statuses",
          (Option.map x.statuses ~f:ControlOperationStatuses.to_value));
        ("controlOperationTypes",
          (Option.map x.controlOperationTypes
             ~f:ControlOperationTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlOperationTypes =
        (Option.map ~f:ControlOperationTypes.of_xml)
          (Xml.child xml_arg0 "controlOperationTypes") in
      let statuses =
        (Option.map ~f:ControlOperationStatuses.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let enabledControlIdentifiers =
        (Option.map ~f:EnabledControlIdentifiers.of_xml)
          (Xml.child xml_arg0 "enabledControlIdentifiers") in
      let targetIdentifiers =
        (Option.map ~f:TargetIdentifiers.of_xml)
          (Xml.child xml_arg0 "targetIdentifiers") in
      let controlIdentifiers =
        (Option.map ~f:ControlIdentifiers.of_xml)
          (Xml.child xml_arg0 "controlIdentifiers") in
      make ?controlOperationTypes ?statuses ?enabledControlIdentifiers
        ?targetIdentifiers ?controlIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlOperationTypes =
        field_map json__ "controlOperationTypes"
          ControlOperationTypes.of_json in
      let statuses =
        field_map json__ "statuses" ControlOperationStatuses.of_json in
      let enabledControlIdentifiers =
        field_map json__ "enabledControlIdentifiers"
          EnabledControlIdentifiers.of_json in
      let targetIdentifiers =
        field_map json__ "targetIdentifiers" TargetIdentifiers.of_json in
      let controlIdentifiers =
        field_map json__ "controlIdentifiers" ControlIdentifiers.of_json in
      make ?controlOperationTypes ?statuses ?enabledControlIdentifiers
        ?targetIdentifiers ?controlIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter object that lets you call ListControlOperations with a specific filter."]
module ListControlOperationsMaxResults =
  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 ListControlOperationsMaxResults"
           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 Baselines =
  struct
    type nonrec t = BaselineSummary.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:BaselineSummary.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:BaselineSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"Baselines" ~of_json:BaselineSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListBaselinesMaxResults =
  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:4));
        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 ListBaselinesMaxResults"
           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 LandingZoneDetail =
  struct
    type nonrec t =
      {
      version: LandingZoneVersion.t option
        [@ocaml.doc "The landing zone's current deployed version."];
      remediationTypes: RemediationTypes.t option
        [@ocaml.doc
          "The types of remediation actions configured for the landing zone, such as automatic drift correction or compliance enforcement."];
      arn: Arn.t option [@ocaml.doc "The ARN of the landing zone."];
      status: LandingZoneStatus.t option
        [@ocaml.doc
          "The landing zone deployment status. One of ACTIVE, PROCESSING, FAILED."];
      latestAvailableVersion: LandingZoneVersion.t option
        [@ocaml.doc "The latest available version of the landing zone."];
      driftStatus: LandingZoneDriftStatusSummary.t option
        [@ocaml.doc "The drift status of the landing zone."];
      manifest: Manifest.t option
        [@ocaml.doc
          "The landing zone manifest JSON text file that specifies the landing zone configurations."]}
    let make ?version =
      fun ?remediationTypes ->
        fun ?arn ->
          fun ?status ->
            fun ?latestAvailableVersion ->
              fun ?driftStatus ->
                fun ?manifest ->
                  fun () ->
                    {
                      version;
                      remediationTypes;
                      arn;
                      status;
                      latestAvailableVersion;
                      driftStatus;
                      manifest
                    }
    let to_value x =
      structure_to_value
        [("version", (Option.map x.version ~f:LandingZoneVersion.to_value));
        ("remediationTypes",
          (Option.map x.remediationTypes ~f:RemediationTypes.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("status", (Option.map x.status ~f:LandingZoneStatus.to_value));
        ("latestAvailableVersion",
          (Option.map x.latestAvailableVersion ~f:LandingZoneVersion.to_value));
        ("driftStatus",
          (Option.map x.driftStatus ~f:LandingZoneDriftStatusSummary.to_value));
        ("manifest", (Option.map x.manifest ~f:Manifest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifest =
        (Option.map ~f:Manifest.of_xml) (Xml.child xml_arg0 "manifest") in
      let driftStatus =
        (Option.map ~f:LandingZoneDriftStatusSummary.of_xml)
          (Xml.child xml_arg0 "driftStatus") in
      let latestAvailableVersion =
        (Option.map ~f:LandingZoneVersion.of_xml)
          (Xml.child xml_arg0 "latestAvailableVersion") in
      let status =
        (Option.map ~f:LandingZoneStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let remediationTypes =
        (Option.map ~f:RemediationTypes.of_xml)
          (Xml.child xml_arg0 "remediationTypes") in
      let version =
        (Option.map ~f:LandingZoneVersion.of_xml)
          (Xml.child xml_arg0 "version") in
      make ?manifest ?driftStatus ?latestAvailableVersion ?status ?arn
        ?remediationTypes ?version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifest = field_map json__ "manifest" Manifest.of_json in
      let driftStatus =
        field_map json__ "driftStatus" LandingZoneDriftStatusSummary.of_json in
      let latestAvailableVersion =
        field_map json__ "latestAvailableVersion" LandingZoneVersion.of_json in
      let status = field_map json__ "status" LandingZoneStatus.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let remediationTypes =
        field_map json__ "remediationTypes" RemediationTypes.of_json in
      let version = field_map json__ "version" LandingZoneVersion.of_json in
      make ?manifest ?driftStatus ?latestAvailableVersion ?status ?arn
        ?remediationTypes ?version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the landing zone."]
module LandingZoneOperationDetail =
  struct
    type nonrec t =
      {
      operationType: LandingZoneOperationType.t option
        [@ocaml.doc
          "The landing zone operation type. Valid values: DELETE: The DeleteLandingZone operation. CREATE: The CreateLandingZone operation. UPDATE: The UpdateLandingZone operation. RESET: The ResetLandingZone operation."];
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc "The operationIdentifier of the landing zone operation."];
      status: LandingZoneOperationStatus.t option
        [@ocaml.doc
          "Valid values: SUCCEEDED: The landing zone operation succeeded. IN_PROGRESS: The landing zone operation is in progress. FAILED: The landing zone operation failed."];
      startTime: Timestamp.t option
        [@ocaml.doc "The landing zone operation start time."];
      endTime: Timestamp.t option
        [@ocaml.doc "The landing zone operation end time."];
      statusMessage: String_.t option
        [@ocaml.doc
          "If the operation result is FAILED, this string contains a message explaining why the operation failed."]}
    let make ?operationType =
      fun ?operationIdentifier ->
        fun ?status ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?statusMessage ->
                fun () ->
                  {
                    operationType;
                    operationIdentifier;
                    status;
                    startTime;
                    endTime;
                    statusMessage
                  }
    let to_value x =
      structure_to_value
        [("operationType",
           (Option.map x.operationType ~f:LandingZoneOperationType.to_value));
        ("operationIdentifier",
          (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("status",
          (Option.map x.status ~f:LandingZoneOperationStatus.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") 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 status =
        (Option.map ~f:LandingZoneOperationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      let operationType =
        (Option.map ~f:LandingZoneOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      make ?statusMessage ?endTime ?startTime ?status ?operationIdentifier
        ?operationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status =
        field_map json__ "status" LandingZoneOperationStatus.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      let operationType =
        field_map json__ "operationType" LandingZoneOperationType.of_json in
      make ?statusMessage ?endTime ?startTime ?status ?operationIdentifier
        ?operationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a landing zone operation."]
module EnabledControlDetails =
  struct
    type nonrec t =
      {
      arn: Arn.t option [@ocaml.doc "The ARN of the enabled control."];
      controlIdentifier: ControlIdentifier.t option
        [@ocaml.doc
          "The control identifier of the enabled control. For information on how to find the controlIdentifier, see the overview page."];
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc
          "The ARN of the organizational unit. For information on how to find the targetIdentifier, see the overview page."];
      statusSummary: EnablementStatusSummary.t option
        [@ocaml.doc "The deployment summary of the enabled control."];
      driftStatusSummary: DriftStatusSummary.t option
        [@ocaml.doc "The drift status of the enabled control."];
      parentIdentifier: ParentIdentifier.t option
        [@ocaml.doc
          "The ARN of the parent enabled control from which this control inherits its configuration, if applicable."];
      targetRegions: TargetRegions.t option
        [@ocaml.doc
          "Target Amazon Web Services Regions for the enabled control."];
      parameters: EnabledControlParameterSummaries.t option
        [@ocaml.doc "Array of EnabledControlParameter objects."]}
    let make ?arn =
      fun ?controlIdentifier ->
        fun ?targetIdentifier ->
          fun ?statusSummary ->
            fun ?driftStatusSummary ->
              fun ?parentIdentifier ->
                fun ?targetRegions ->
                  fun ?parameters ->
                    fun () ->
                      {
                        arn;
                        controlIdentifier;
                        targetIdentifier;
                        statusSummary;
                        driftStatusSummary;
                        parentIdentifier;
                        targetRegions;
                        parameters
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("controlIdentifier",
          (Option.map x.controlIdentifier ~f:ControlIdentifier.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("statusSummary",
          (Option.map x.statusSummary ~f:EnablementStatusSummary.to_value));
        ("driftStatusSummary",
          (Option.map x.driftStatusSummary ~f:DriftStatusSummary.to_value));
        ("parentIdentifier",
          (Option.map x.parentIdentifier ~f:ParentIdentifier.to_value));
        ("targetRegions",
          (Option.map x.targetRegions ~f:TargetRegions.to_value));
        ("parameters",
          (Option.map x.parameters
             ~f:EnabledControlParameterSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:EnabledControlParameterSummaries.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let targetRegions =
        (Option.map ~f:TargetRegions.of_xml)
          (Xml.child xml_arg0 "targetRegions") in
      let parentIdentifier =
        (Option.map ~f:ParentIdentifier.of_xml)
          (Xml.child xml_arg0 "parentIdentifier") in
      let driftStatusSummary =
        (Option.map ~f:DriftStatusSummary.of_xml)
          (Xml.child xml_arg0 "driftStatusSummary") in
      let statusSummary =
        (Option.map ~f:EnablementStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        (Option.map ~f:ControlIdentifier.of_xml)
          (Xml.child xml_arg0 "controlIdentifier") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?parameters ?targetRegions ?parentIdentifier ?driftStatusSummary
        ?statusSummary ?targetIdentifier ?controlIdentifier ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters =
        field_map json__ "parameters"
          EnabledControlParameterSummaries.of_json in
      let targetRegions =
        field_map json__ "targetRegions" TargetRegions.of_json in
      let parentIdentifier =
        field_map json__ "parentIdentifier" ParentIdentifier.of_json in
      let driftStatusSummary =
        field_map json__ "driftStatusSummary" DriftStatusSummary.of_json in
      let statusSummary =
        field_map json__ "statusSummary" EnablementStatusSummary.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map json__ "controlIdentifier" ControlIdentifier.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?parameters ?targetRegions ?parentIdentifier ?driftStatusSummary
        ?statusSummary ?targetIdentifier ?controlIdentifier ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the enabled control."]
module EnabledBaselineDetails =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The ARN of the EnabledBaseline resource."];
      baselineIdentifier: String_.t option
        [@ocaml.doc
          "The specific Baseline enabled as part of the EnabledBaseline resource."];
      baselineVersion: String_.t option
        [@ocaml.doc "The enabled version of the Baseline."];
      driftStatusSummary: EnabledBaselineDriftStatusSummary.t option
        [@ocaml.doc "The drift status of the enabled baseline."];
      targetIdentifier: String_.t option
        [@ocaml.doc "The target on which to enable the Baseline."];
      parentIdentifier: Arn.t option
        [@ocaml.doc
          "An ARN that represents the parent EnabledBaseline at the Organizational Unit (OU) level, from which the child EnabledBaseline inherits its configuration. The value is returned by GetEnabledBaseline."];
      statusSummary: EnablementStatusSummary.t option ;
      parameters: EnabledBaselineParameterSummaries.t option
        [@ocaml.doc
          "Shows the parameters that are applied when enabling this Baseline."]}
    let make ?arn =
      fun ?baselineIdentifier ->
        fun ?baselineVersion ->
          fun ?driftStatusSummary ->
            fun ?targetIdentifier ->
              fun ?parentIdentifier ->
                fun ?statusSummary ->
                  fun ?parameters ->
                    fun () ->
                      {
                        arn;
                        baselineIdentifier;
                        baselineVersion;
                        driftStatusSummary;
                        targetIdentifier;
                        parentIdentifier;
                        statusSummary;
                        parameters
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("baselineIdentifier",
          (Option.map x.baselineIdentifier ~f:String_.to_value));
        ("baselineVersion",
          (Option.map x.baselineVersion ~f:String_.to_value));
        ("driftStatusSummary",
          (Option.map x.driftStatusSummary
             ~f:EnabledBaselineDriftStatusSummary.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:String_.to_value));
        ("parentIdentifier", (Option.map x.parentIdentifier ~f:Arn.to_value));
        ("statusSummary",
          (Option.map x.statusSummary ~f:EnablementStatusSummary.to_value));
        ("parameters",
          (Option.map x.parameters
             ~f:EnabledBaselineParameterSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:EnabledBaselineParameterSummaries.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let statusSummary =
        (Option.map ~f:EnablementStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let parentIdentifier =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "parentIdentifier") in
      let targetIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let driftStatusSummary =
        (Option.map ~f:EnabledBaselineDriftStatusSummary.of_xml)
          (Xml.child xml_arg0 "driftStatusSummary") in
      let baselineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "baselineVersion") in
      let baselineIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "baselineIdentifier") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?parameters ?statusSummary ?parentIdentifier ?targetIdentifier
        ?driftStatusSummary ?baselineVersion ?baselineIdentifier ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters =
        field_map json__ "parameters"
          EnabledBaselineParameterSummaries.of_json in
      let statusSummary =
        field_map json__ "statusSummary" EnablementStatusSummary.of_json in
      let parentIdentifier = field_map json__ "parentIdentifier" Arn.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" String_.of_json in
      let driftStatusSummary =
        field_map json__ "driftStatusSummary"
          EnabledBaselineDriftStatusSummary.of_json in
      let baselineVersion =
        field_map json__ "baselineVersion" String_.of_json in
      let baselineIdentifier =
        field_map json__ "baselineIdentifier" String_.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?parameters ?statusSummary ?parentIdentifier ?targetIdentifier
        ?driftStatusSummary ?baselineVersion ?baselineIdentifier ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of the EnabledBaseline resource."]
module ControlOperation =
  struct
    type nonrec t =
      {
      operationType: ControlOperationType.t option
        [@ocaml.doc "One of ENABLE_CONTROL or DISABLE_CONTROL."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time that the operation began."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time that the operation finished."];
      status: ControlOperationStatus.t option
        [@ocaml.doc "One of IN_PROGRESS, SUCEEDED, or FAILED."];
      statusMessage: String_.t option
        [@ocaml.doc
          "If the operation result is FAILED, this string contains a message explaining why the operation failed."];
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc "The identifier of the specified operation."];
      controlIdentifier: ControlIdentifier.t option
        [@ocaml.doc
          "The controlIdentifier of the control for the operation."];
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc
          "The target upon which the control operation is working."];
      enabledControlIdentifier: Arn.t option
        [@ocaml.doc "The controlIdentifier of the enabled control."]}
    let make ?operationType =
      fun ?startTime ->
        fun ?endTime ->
          fun ?status ->
            fun ?statusMessage ->
              fun ?operationIdentifier ->
                fun ?controlIdentifier ->
                  fun ?targetIdentifier ->
                    fun ?enabledControlIdentifier ->
                      fun () ->
                        {
                          operationType;
                          startTime;
                          endTime;
                          status;
                          statusMessage;
                          operationIdentifier;
                          controlIdentifier;
                          targetIdentifier;
                          enabledControlIdentifier
                        }
    let to_value x =
      structure_to_value
        [("operationType",
           (Option.map x.operationType ~f:ControlOperationType.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ControlOperationStatus.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("operationIdentifier",
          (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("controlIdentifier",
          (Option.map x.controlIdentifier ~f:ControlIdentifier.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("enabledControlIdentifier",
          (Option.map x.enabledControlIdentifier ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "enabledControlIdentifier") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        (Option.map ~f:ControlIdentifier.of_xml)
          (Xml.child xml_arg0 "controlIdentifier") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:ControlOperationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let operationType =
        (Option.map ~f:ControlOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier
        ?operationIdentifier ?statusMessage ?status ?endTime ?startTime
        ?operationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map json__ "enabledControlIdentifier" Arn.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map json__ "controlIdentifier" ControlIdentifier.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let status = field_map json__ "status" ControlOperationStatus.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let operationType =
        field_map json__ "operationType" ControlOperationType.of_json in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier
        ?operationIdentifier ?statusMessage ?status ?endTime ?startTime
        ?operationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An operation performed by the control."]
module BaselineArn =
  struct
    type nonrec t = string
    let context_ = "BaselineArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[a-z-]+:controltower:[a-z0-9-]*:[0-9]{0,12}:baseline/[A-Z0-9]{16}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BaselineArn" j
    let to_json = simple_to_json to_value
  end
module BaselineOperation =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc "The identifier of the specified operation."];
      operationType: BaselineOperationType.t option
        [@ocaml.doc
          "An enumerated type (enum) with possible values of ENABLE_BASELINE, DISABLE_BASELINE, UPDATE_ENABLED_BASELINE, or RESET_ENABLED_BASELINE."];
      status: BaselineOperationStatus.t option
        [@ocaml.doc
          "An enumerated type (enum) with possible values of SUCCEEDED, FAILED, or IN_PROGRESS."];
      startTime: Timestamp.t option
        [@ocaml.doc "The start time of the operation, in ISO 8601 format."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the operation (if applicable), in ISO 8601 format."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A status message that gives more information about the operation's status, if applicable."]}
    let make ?operationIdentifier =
      fun ?operationType ->
        fun ?status ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?statusMessage ->
                fun () ->
                  {
                    operationIdentifier;
                    operationType;
                    status;
                    startTime;
                    endTime;
                    statusMessage
                  }
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("operationType",
          (Option.map x.operationType ~f:BaselineOperationType.to_value));
        ("status", (Option.map x.status ~f:BaselineOperationStatus.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") 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 status =
        (Option.map ~f:BaselineOperationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let operationType =
        (Option.map ~f:BaselineOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?statusMessage ?endTime ?startTime ?status ?operationType
        ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status = field_map json__ "status" BaselineOperationStatus.of_json in
      let operationType =
        field_map json__ "operationType" BaselineOperationType.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?statusMessage ?endTime ?startTime ?status ?operationType
        ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object of shape BaselineOperation, returning details about the specified Baseline operation ID."]
module UpdateLandingZoneOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "A unique identifier assigned to a UpdateLandingZone operation. You can use this identifier as an input of GetLandingZoneOperation to check the operation's status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call updates the landing zone. It starts an asynchronous operation that updates the landing zone based on the new landing zone version, or on the changed parameters specified in the updated manifest file."]
module UpdateLandingZoneInput =
  struct
    type nonrec t =
      {
      version: LandingZoneVersion.t
        [@ocaml.doc "The landing zone version, for example, 3.2."];
      remediationTypes: RemediationTypes.t option
        [@ocaml.doc
          "Specifies the types of remediation actions to apply when updating the landing zone configuration."];
      landingZoneIdentifier: String_.t
        [@ocaml.doc "The unique identifier of the landing zone."];
      manifest: Manifest.t option
        [@ocaml.doc
          "The manifest file (JSON) is a text file that describes your Amazon Web Services resources. For an example, review Launch your landing zone. The example manifest file contains each of the available parameters. The schema for the landing zone's JSON manifest file is not published, by design."]}
    let context_ = "UpdateLandingZoneInput"
    let make ?remediationTypes =
      fun ?manifest ->
        fun ~version ->
          fun ~landingZoneIdentifier ->
            fun () ->
              { remediationTypes; manifest; version; landingZoneIdentifier }
    let to_value x =
      structure_to_value
        [("version", (Some (LandingZoneVersion.to_value x.version)));
        ("remediationTypes",
          (Option.map x.remediationTypes ~f:RemediationTypes.to_value));
        ("landingZoneIdentifier",
          (Some (String_.to_value x.landingZoneIdentifier)));
        ("manifest", (Option.map x.manifest ~f:Manifest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifest =
        (Option.map ~f:Manifest.of_xml) (Xml.child xml_arg0 "manifest") in
      let landingZoneIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "landingZoneIdentifier") in
      let remediationTypes =
        (Option.map ~f:RemediationTypes.of_xml)
          (Xml.child xml_arg0 "remediationTypes") in
      let version =
        LandingZoneVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "version") in
      make ?manifest ~landingZoneIdentifier ?remediationTypes ~version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifest = field_map json__ "manifest" Manifest.of_json in
      let landingZoneIdentifier =
        field_map_exn json__ "landingZoneIdentifier" String_.of_json in
      let remediationTypes =
        field_map json__ "remediationTypes" RemediationTypes.of_json in
      let version = field_map_exn json__ "version" LandingZoneVersion.of_json in
      make ?manifest ~landingZoneIdentifier ?remediationTypes ~version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call updates the landing zone. It starts an asynchronous operation that updates the landing zone based on the new landing zone version, or on the changed parameters specified in the updated manifest file."]
module UpdateEnabledControlOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The operation identifier for this UpdateEnabledControl operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an already enabled control. If the enabled control shows an EnablementStatus of SUCCEEDED, supply parameters that are different from the currently configured parameters. Otherwise, Amazon Web Services Control Tower will not accept the request. If the enabled control shows an EnablementStatus of FAILED, Amazon Web Services Control Tower updates the control to match any valid parameters that you supply. If the DriftSummary status for the control shows as DRIFTED, you cannot call this API. Instead, you can update the control by calling the ResetEnabledControl API. Alternatively, you can call DisableControl and then call EnableControl again. Also, you can run an extending governance operation to repair drift. For usage examples, see the Controls Reference Guide ."]
module UpdateEnabledControlInput =
  struct
    type nonrec t =
      {
      parameters: EnabledControlParameters.t
        [@ocaml.doc
          "A key/value pair, where Key is of type String and Value is of type Document."];
      enabledControlIdentifier: Arn.t
        [@ocaml.doc "The ARN of the enabled control that will be updated."]}
    let context_ = "UpdateEnabledControlInput"
    let make ~parameters =
      fun ~enabledControlIdentifier ->
        fun () -> { parameters; enabledControlIdentifier }
    let to_value x =
      structure_to_value
        [("parameters",
           (Some (EnabledControlParameters.to_value x.parameters)));
        ("enabledControlIdentifier",
          (Some (Arn.to_value x.enabledControlIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledControlIdentifier") in
      let parameters =
        EnabledControlParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameters") in
      make ~enabledControlIdentifier ~parameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map_exn json__ "enabledControlIdentifier" Arn.of_json in
      let parameters =
        field_map_exn json__ "parameters" EnabledControlParameters.of_json in
      make ~enabledControlIdentifier ~parameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an already enabled control. If the enabled control shows an EnablementStatus of SUCCEEDED, supply parameters that are different from the currently configured parameters. Otherwise, Amazon Web Services Control Tower will not accept the request. If the enabled control shows an EnablementStatus of FAILED, Amazon Web Services Control Tower updates the control to match any valid parameters that you supply. If the DriftSummary status for the control shows as DRIFTED, you cannot call this API. Instead, you can update the control by calling the ResetEnabledControl API. Alternatively, you can call DisableControl and then call EnableControl again. Also, you can run an extending governance operation to repair drift. For usage examples, see the Controls Reference Guide ."]
module UpdateEnabledBaselineOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID (in UUID format) of the asynchronous UpdateEnabledBaseline operation. This operationIdentifier is used to track status through calls to the GetBaselineOperation API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an EnabledBaseline resource's applied parameters or version. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module UpdateEnabledBaselineInput =
  struct
    type nonrec t =
      {
      baselineVersion: BaselineVersion.t
        [@ocaml.doc
          "Specifies the new Baseline version, to which the EnabledBaseline should be updated."];
      parameters: EnabledBaselineParameters.t option
        [@ocaml.doc "Parameters to apply when making an update."];
      enabledBaselineIdentifier: Arn.t
        [@ocaml.doc "Specifies the EnabledBaseline resource to be updated."]}
    let context_ = "UpdateEnabledBaselineInput"
    let make ?parameters =
      fun ~baselineVersion ->
        fun ~enabledBaselineIdentifier ->
          fun () ->
            { parameters; baselineVersion; enabledBaselineIdentifier }
    let to_value x =
      structure_to_value
        [("baselineVersion",
           (Some (BaselineVersion.to_value x.baselineVersion)));
        ("parameters",
          (Option.map x.parameters ~f:EnabledBaselineParameters.to_value));
        ("enabledBaselineIdentifier",
          (Some (Arn.to_value x.enabledBaselineIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledBaselineIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledBaselineIdentifier") in
      let parameters =
        (Option.map ~f:EnabledBaselineParameters.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let baselineVersion =
        BaselineVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "baselineVersion") in
      make ~enabledBaselineIdentifier ?parameters ~baselineVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledBaselineIdentifier =
        field_map_exn json__ "enabledBaselineIdentifier" Arn.of_json in
      let parameters =
        field_map json__ "parameters" EnabledBaselineParameters.of_json in
      let baselineVersion =
        field_map_exn json__ "baselineVersion" BaselineVersion.of_json in
      make ~enabledBaselineIdentifier ?parameters ~baselineVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an EnabledBaseline resource's applied parameters or version. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from a resource. For usage examples, see the Controls Reference Guide ."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t [@ocaml.doc "The ARN of the resource."];
      tagKeys: TagKeys.t
        [@ocaml.doc "Tag keys to be removed from the resource."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from a resource. For usage examples, see the Controls Reference Guide ."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Applies tags to a resource. For usage examples, see the Controls Reference Guide ."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t [@ocaml.doc "The ARN of the resource to be tagged."];
      tags: TagMap.t [@ocaml.doc "Tags to be applied to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies tags to a resource. For usage examples, see the Controls Reference Guide ."]
module ResetLandingZoneOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "A unique identifier assigned to a ResetLandingZone operation. You can use this identifier as an input parameter of GetLandingZoneOperation to check the operation's status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call resets a landing zone. It starts an asynchronous operation that resets the landing zone to the parameters specified in the original configuration, which you specified in the manifest file. Nothing in the manifest file's original landing zone configuration is changed during the reset process, by default. This API is not the same as a rollback of a landing zone version, which is not a supported operation."]
module ResetLandingZoneInput =
  struct
    type nonrec t =
      {
      landingZoneIdentifier: String_.t
        [@ocaml.doc "The unique identifier of the landing zone."]}
    let context_ = "ResetLandingZoneInput"
    let make ~landingZoneIdentifier = fun () -> { landingZoneIdentifier }
    let to_value x =
      structure_to_value
        [("landingZoneIdentifier",
           (Some (String_.to_value x.landingZoneIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let landingZoneIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "landingZoneIdentifier") in
      make ~landingZoneIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let landingZoneIdentifier =
        field_map_exn json__ "landingZoneIdentifier" String_.of_json in
      make ~landingZoneIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call resets a landing zone. It starts an asynchronous operation that resets the landing zone to the parameters specified in the original configuration, which you specified in the manifest file. Nothing in the manifest file's original landing zone configuration is changed during the reset process, by default. This API is not the same as a rollback of a landing zone version, which is not a supported operation."]
module ResetEnabledControlOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The operation identifier for this ResetEnabledControl operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets an enabled control. Does not work for controls implemented with SCPs."]
module ResetEnabledControlInput =
  struct
    type nonrec t =
      {
      enabledControlIdentifier: Arn.t
        [@ocaml.doc "The ARN of the enabled control to be reset."]}
    let context_ = "ResetEnabledControlInput"
    let make ~enabledControlIdentifier =
      fun () -> { enabledControlIdentifier }
    let to_value x =
      structure_to_value
        [("enabledControlIdentifier",
           (Some (Arn.to_value x.enabledControlIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledControlIdentifier") in
      make ~enabledControlIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map_exn json__ "enabledControlIdentifier" Arn.of_json in
      make ~enabledControlIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets an enabled control. Does not work for controls implemented with SCPs."]
module ResetEnabledBaselineOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID (in UUID format) of the asynchronous ResetEnabledBaseline operation. This operationIdentifier is used to track status through calls to the GetBaselineOperation API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Re-enables an EnabledBaseline resource. For example, this API can re-apply the existing Baseline after a new member account is moved to the target OU. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module ResetEnabledBaselineInput =
  struct
    type nonrec t =
      {
      enabledBaselineIdentifier: Arn.t
        [@ocaml.doc
          "Specifies the ID of the EnabledBaseline resource to be re-enabled, in ARN format."]}
    let context_ = "ResetEnabledBaselineInput"
    let make ~enabledBaselineIdentifier =
      fun () -> { enabledBaselineIdentifier }
    let to_value x =
      structure_to_value
        [("enabledBaselineIdentifier",
           (Some (Arn.to_value x.enabledBaselineIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledBaselineIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledBaselineIdentifier") in
      make ~enabledBaselineIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledBaselineIdentifier =
        field_map_exn json__ "enabledBaselineIdentifier" Arn.of_json in
      make ~enabledBaselineIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Re-enables an EnabledBaseline resource. For example, this API can re-apply the existing Baseline after a new member account is moved to the target OU. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc "A list of tags, as key:value strings."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of tags associated with the resource. For usage examples, see the Controls Reference Guide ."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t [@ocaml.doc "The ARN of the resource."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of tags associated with the resource. For usage examples, see the Controls Reference Guide ."]
module ListLandingZonesOutput =
  struct
    type nonrec t =
      {
      landingZones: ListLandingZonesOutputLandingZonesList.t option
        [@ocaml.doc "The ARN of the landing zone."];
      nextToken: String_.t option
        [@ocaml.doc
          "Retrieves the next page of results. If the string is empty, the response is the end of the results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?landingZones =
      fun ?nextToken -> fun () -> { landingZones; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("landingZones",
           (Option.map x.landingZones
              ~f:ListLandingZonesOutputLandingZonesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let landingZones =
        (Option.map ~f:ListLandingZonesOutputLandingZonesList.of_xml)
          (Xml.child xml_arg0 "landingZones") in
      make ?nextToken ?landingZones ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let landingZones =
        field_map json__ "landingZones"
          ListLandingZonesOutputLandingZonesList.of_json in
      make ?nextToken ?landingZones ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the landing zone ARN for the landing zone deployed in your managed account. This API also creates an ARN for existing accounts that do not yet have a landing zone ARN. Returns one landing zone ARN."]
module ListLandingZonesInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The token to continue the list from a previous API call with the same parameters."];
      maxResults: ListLandingZonesMaxResults.t option
        [@ocaml.doc
          "The maximum number of returned landing zone ARNs, which is one."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListLandingZonesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListLandingZonesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.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" ListLandingZonesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the landing zone ARN for the landing zone deployed in your managed account. This API also creates an ARN for existing accounts that do not yet have a landing zone ARN. Returns one landing zone ARN."]
module ListLandingZoneOperationsOutput =
  struct
    type nonrec t =
      {
      landingZoneOperations: LandingZoneOperations.t option
        [@ocaml.doc "Lists landing zone operations."];
      nextToken: String_.t option
        [@ocaml.doc
          "Retrieves the next page of results. If the string is empty, the response is the end of the results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?landingZoneOperations =
      fun ?nextToken -> fun () -> { landingZoneOperations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("landingZoneOperations",
           (Option.map x.landingZoneOperations
              ~f:LandingZoneOperations.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let landingZoneOperations =
        (Option.map ~f:LandingZoneOperations.of_xml)
          (Xml.child xml_arg0 "landingZoneOperations") in
      make ?nextToken ?landingZoneOperations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let landingZoneOperations =
        field_map json__ "landingZoneOperations"
          LandingZoneOperations.of_json in
      make ?nextToken ?landingZoneOperations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all landing zone operations from the past 90 days. Results are sorted by time, with the most recent operation first."]
module ListLandingZoneOperationsInput =
  struct
    type nonrec t =
      {
      filter: LandingZoneOperationFilter.t option
        [@ocaml.doc
          "An input filter for the ListLandingZoneOperations API that lets you select the types of landing zone operations to view."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token to continue the list from a previous API call with the same parameters."];
      maxResults: ListLandingZoneOperationsMaxResults.t option
        [@ocaml.doc "How many results to return per API call."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { filter; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("filter",
           (Option.map x.filter ~f:LandingZoneOperationFilter.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListLandingZoneOperationsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListLandingZoneOperationsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let filter =
        (Option.map ~f:LandingZoneOperationFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      make ?maxResults ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListLandingZoneOperationsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let filter =
        field_map json__ "filter" LandingZoneOperationFilter.of_json in
      make ?maxResults ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all landing zone operations from the past 90 days. Results are sorted by time, with the most recent operation first."]
module ListEnabledControlsOutput =
  struct
    type nonrec t =
      {
      enabledControls: EnabledControls.t option
        [@ocaml.doc
          "Lists the controls enabled by Amazon Web Services Control Tower on the specified organizational unit and the accounts it contains."];
      nextToken: String_.t option
        [@ocaml.doc
          "Retrieves the next page of results. If the string is empty, the response is the end of the results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledControls =
      fun ?nextToken -> fun () -> { enabledControls; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("enabledControls",
           (Option.map x.enabledControls ~f:EnabledControls.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let enabledControls =
        (Option.map ~f:EnabledControls.of_xml)
          (Xml.child xml_arg0 "enabledControls") in
      make ?nextToken ?enabledControls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let enabledControls =
        field_map json__ "enabledControls" EnabledControls.of_json in
      make ?nextToken ?enabledControls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the controls enabled by Amazon Web Services Control Tower on the specified organizational unit and the accounts it contains. For usage examples, see the Controls Reference Guide ."]
module ListEnabledControlsInput =
  struct
    type nonrec t =
      {
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc
          "The ARN of the organizational unit. For information on how to find the targetIdentifier, see the overview page."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token to continue the list from a previous API call with the same parameters."];
      maxResults: MaxResults.t option
        [@ocaml.doc "How many results to return per API call."];
      filter: EnabledControlFilter.t option
        [@ocaml.doc
          "An input filter for the ListEnabledControls API that lets you select the types of control operations to view."];
      includeChildren: Boolean.t option
        [@ocaml.doc
          "A boolean value that determines whether to include enabled controls from child organizational units in the response."]}
    let make ?targetIdentifier =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?filter ->
            fun ?includeChildren ->
              fun () ->
                {
                  targetIdentifier;
                  nextToken;
                  maxResults;
                  filter;
                  includeChildren
                }
    let to_value x =
      structure_to_value
        [("targetIdentifier",
           (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("filter", (Option.map x.filter ~f:EnabledControlFilter.to_value));
        ("includeChildren",
          (Option.map x.includeChildren ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeChildren =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "includeChildren") in
      let filter =
        (Option.map ~f:EnabledControlFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      make ?includeChildren ?filter ?maxResults ?nextToken ?targetIdentifier
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeChildren =
        field_map json__ "includeChildren" Boolean.of_json in
      let filter = field_map json__ "filter" EnabledControlFilter.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      make ?includeChildren ?filter ?maxResults ?nextToken ?targetIdentifier
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the controls enabled by Amazon Web Services Control Tower on the specified organizational unit and the accounts it contains. For usage examples, see the Controls Reference Guide ."]
module ListEnabledBaselinesOutput =
  struct
    type nonrec t =
      {
      enabledBaselines: EnabledBaselines.t option
        [@ocaml.doc
          "Retuens a list of summaries of EnabledBaseline resources."];
      nextToken: ListEnabledBaselinesNextToken.t option
        [@ocaml.doc "A pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledBaselines =
      fun ?nextToken -> fun () -> { enabledBaselines; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("enabledBaselines",
           (Option.map x.enabledBaselines ~f:EnabledBaselines.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListEnabledBaselinesNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListEnabledBaselinesNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let enabledBaselines =
        (Option.map ~f:EnabledBaselines.of_xml)
          (Xml.child xml_arg0 "enabledBaselines") in
      make ?nextToken ?enabledBaselines ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" ListEnabledBaselinesNextToken.of_json in
      let enabledBaselines =
        field_map json__ "enabledBaselines" EnabledBaselines.of_json in
      make ?nextToken ?enabledBaselines ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of summaries describing EnabledBaseline resources. You can filter the list by the corresponding Baseline or Target of the EnabledBaseline resources. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module ListEnabledBaselinesInput =
  struct
    type nonrec t =
      {
      filter: EnabledBaselineFilter.t option
        [@ocaml.doc
          "A filter applied on the ListEnabledBaseline operation. Allowed filters are baselineIdentifiers and targetIdentifiers. The filter can be applied for either, or both."];
      nextToken: ListEnabledBaselinesNextToken.t option
        [@ocaml.doc "A pagination token."];
      maxResults: ListEnabledBaselinesMaxResults.t option
        [@ocaml.doc "The maximum number of results to be shown."];
      includeChildren: Boolean.t option
        [@ocaml.doc
          "A value that can be set to include the child enabled baselines in responses. The default value is false."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?includeChildren ->
            fun () -> { filter; nextToken; maxResults; includeChildren }
    let to_value x =
      structure_to_value
        [("filter", (Option.map x.filter ~f:EnabledBaselineFilter.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListEnabledBaselinesNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListEnabledBaselinesMaxResults.to_value));
        ("includeChildren",
          (Option.map x.includeChildren ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeChildren =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "includeChildren") in
      let maxResults =
        (Option.map ~f:ListEnabledBaselinesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListEnabledBaselinesNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filter =
        (Option.map ~f:EnabledBaselineFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      make ?includeChildren ?maxResults ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeChildren =
        field_map json__ "includeChildren" Boolean.of_json in
      let maxResults =
        field_map json__ "maxResults" ListEnabledBaselinesMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" ListEnabledBaselinesNextToken.of_json in
      let filter = field_map json__ "filter" EnabledBaselineFilter.of_json in
      make ?includeChildren ?maxResults ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of summaries describing EnabledBaseline resources. You can filter the list by the corresponding Baseline or Target of the EnabledBaseline resources. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module ListControlOperationsOutput =
  struct
    type nonrec t =
      {
      controlOperations: ControlOperations.t option
        [@ocaml.doc "Returns a list of output from control operations."];
      nextToken: ListControlOperationsNextToken.t option
        [@ocaml.doc "A pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlOperations =
      fun ?nextToken -> fun () -> { controlOperations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("controlOperations",
           (Option.map x.controlOperations ~f:ControlOperations.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListControlOperationsNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListControlOperationsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let controlOperations =
        (Option.map ~f:ControlOperations.of_xml)
          (Xml.child xml_arg0 "controlOperations") in
      make ?nextToken ?controlOperations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" ListControlOperationsNextToken.of_json in
      let controlOperations =
        field_map json__ "controlOperations" ControlOperations.of_json in
      make ?nextToken ?controlOperations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a list of operations in progress or queued. For usage examples, see ListControlOperation examples."]
module ListControlOperationsInput =
  struct
    type nonrec t =
      {
      filter: ControlOperationFilter.t option
        [@ocaml.doc
          "An input filter for the ListControlOperations API that lets you select the types of control operations to view."];
      nextToken: ListControlOperationsNextToken.t option
        [@ocaml.doc "A pagination token."];
      maxResults: ListControlOperationsMaxResults.t option
        [@ocaml.doc "The maximum number of results to be shown."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { filter; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("filter", (Option.map x.filter ~f:ControlOperationFilter.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListControlOperationsNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListControlOperationsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListControlOperationsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListControlOperationsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filter =
        (Option.map ~f:ControlOperationFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      make ?maxResults ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ListControlOperationsMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" ListControlOperationsNextToken.of_json in
      let filter = field_map json__ "filter" ControlOperationFilter.of_json in
      make ?maxResults ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a list of operations in progress or queued. For usage examples, see ListControlOperation examples."]
module ListBaselinesOutput =
  struct
    type nonrec t =
      {
      baselines: Baselines.t option
        [@ocaml.doc "A list of Baseline object details."];
      nextToken: String_.t option [@ocaml.doc "A pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?baselines =
      fun ?nextToken -> fun () -> { baselines; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("baselines", (Option.map x.baselines ~f:Baselines.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let baselines =
        (Option.map ~f:Baselines.of_xml) (Xml.child xml_arg0 "baselines") in
      make ?nextToken ?baselines ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let baselines = field_map json__ "baselines" Baselines.of_json in
      make ?nextToken ?baselines ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary list of all available baselines. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module ListBaselinesInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option [@ocaml.doc "A pagination token."];
      maxResults: ListBaselinesMaxResults.t option
        [@ocaml.doc "The maximum number of results to be shown."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListBaselinesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListBaselinesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.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" ListBaselinesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary list of all available baselines. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module GetLandingZoneOutput =
  struct
    type nonrec t =
      {
      landingZone: LandingZoneDetail.t option
        [@ocaml.doc "Information about the landing zone."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?landingZone = fun () -> { landingZone }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("landingZone",
           (Option.map x.landingZone ~f:LandingZoneDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let landingZone =
        (Option.map ~f:LandingZoneDetail.of_xml)
          (Xml.child xml_arg0 "landingZone") in
      make ?landingZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let landingZone =
        field_map json__ "landingZone" LandingZoneDetail.of_json in
      make ?landingZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details about the landing zone. Displays a message in case of error."]
module GetLandingZoneOperationOutput =
  struct
    type nonrec t =
      {
      operationDetails: LandingZoneOperationDetail.t option
        [@ocaml.doc "Details about a landing zone operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationDetails = fun () -> { operationDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationDetails",
           (Option.map x.operationDetails
              ~f:LandingZoneOperationDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationDetails =
        (Option.map ~f:LandingZoneOperationDetail.of_xml)
          (Xml.child xml_arg0 "operationDetails") in
      make ?operationDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationDetails =
        field_map json__ "operationDetails"
          LandingZoneOperationDetail.of_json in
      make ?operationDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the status of the specified landing zone operation. Details for an operation are available for 90 days."]
module GetLandingZoneOperationInput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t
        [@ocaml.doc
          "A unique identifier assigned to a landing zone operation."]}
    let context_ = "GetLandingZoneOperationInput"
    let make ~operationIdentifier = fun () -> { operationIdentifier }
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Some (OperationIdentifier.to_value x.operationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        OperationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operationIdentifier") in
      make ~operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map_exn json__ "operationIdentifier"
          OperationIdentifier.of_json in
      make ~operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the status of the specified landing zone operation. Details for an operation are available for 90 days."]
module GetLandingZoneInput =
  struct
    type nonrec t =
      {
      landingZoneIdentifier: String_.t
        [@ocaml.doc "The unique identifier of the landing zone."]}
    let context_ = "GetLandingZoneInput"
    let make ~landingZoneIdentifier = fun () -> { landingZoneIdentifier }
    let to_value x =
      structure_to_value
        [("landingZoneIdentifier",
           (Some (String_.to_value x.landingZoneIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let landingZoneIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "landingZoneIdentifier") in
      make ~landingZoneIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let landingZoneIdentifier =
        field_map_exn json__ "landingZoneIdentifier" String_.of_json in
      make ~landingZoneIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details about the landing zone. Displays a message in case of error."]
module GetEnabledControlOutput =
  struct
    type nonrec t =
      {
      enabledControlDetails: EnabledControlDetails.t option
        [@ocaml.doc "Information about the enabled control."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledControlDetails = fun () -> { enabledControlDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("enabledControlDetails",
           (Option.map x.enabledControlDetails
              ~f:EnabledControlDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlDetails =
        (Option.map ~f:EnabledControlDetails.of_xml)
          (Xml.child xml_arg0 "enabledControlDetails") in
      make ?enabledControlDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlDetails =
        field_map json__ "enabledControlDetails"
          EnabledControlDetails.of_json in
      make ?enabledControlDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about an enabled control. For usage examples, see the Controls Reference Guide ."]
module GetEnabledControlInput =
  struct
    type nonrec t =
      {
      enabledControlIdentifier: Arn.t
        [@ocaml.doc "The controlIdentifier of the enabled control."]}
    let context_ = "GetEnabledControlInput"
    let make ~enabledControlIdentifier =
      fun () -> { enabledControlIdentifier }
    let to_value x =
      structure_to_value
        [("enabledControlIdentifier",
           (Some (Arn.to_value x.enabledControlIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledControlIdentifier") in
      make ~enabledControlIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map_exn json__ "enabledControlIdentifier" Arn.of_json in
      make ~enabledControlIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about an enabled control. For usage examples, see the Controls Reference Guide ."]
module GetEnabledBaselineOutput =
  struct
    type nonrec t =
      {
      enabledBaselineDetails: EnabledBaselineDetails.t option
        [@ocaml.doc "Details of the EnabledBaseline resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledBaselineDetails = fun () -> { enabledBaselineDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("enabledBaselineDetails",
           (Option.map x.enabledBaselineDetails
              ~f:EnabledBaselineDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledBaselineDetails =
        (Option.map ~f:EnabledBaselineDetails.of_xml)
          (Xml.child xml_arg0 "enabledBaselineDetails") in
      make ?enabledBaselineDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledBaselineDetails =
        field_map json__ "enabledBaselineDetails"
          EnabledBaselineDetails.of_json in
      make ?enabledBaselineDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve details of an EnabledBaseline resource by specifying its identifier."]
module GetEnabledBaselineInput =
  struct
    type nonrec t =
      {
      enabledBaselineIdentifier: Arn.t
        [@ocaml.doc
          "Identifier of the EnabledBaseline resource to be retrieved, in ARN format."]}
    let context_ = "GetEnabledBaselineInput"
    let make ~enabledBaselineIdentifier =
      fun () -> { enabledBaselineIdentifier }
    let to_value x =
      structure_to_value
        [("enabledBaselineIdentifier",
           (Some (Arn.to_value x.enabledBaselineIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledBaselineIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledBaselineIdentifier") in
      make ~enabledBaselineIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledBaselineIdentifier =
        field_map_exn json__ "enabledBaselineIdentifier" Arn.of_json in
      make ~enabledBaselineIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve details of an EnabledBaseline resource by specifying its identifier."]
module GetControlOperationOutput =
  struct
    type nonrec t =
      {
      controlOperation: ControlOperation.t option
        [@ocaml.doc "An operation performed by the control."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlOperation = fun () -> { controlOperation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("controlOperation",
           (Option.map x.controlOperation ~f:ControlOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlOperation =
        (Option.map ~f:ControlOperation.of_xml)
          (Xml.child xml_arg0 "controlOperation") in
      make ?controlOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlOperation =
        field_map json__ "controlOperation" ControlOperation.of_json in
      make ?controlOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the status of a particular EnableControl or DisableControl operation. Displays a message in case of error. Details for an operation are available for 90 days. For usage examples, see the Controls Reference Guide ."]
module GetControlOperationInput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t
        [@ocaml.doc
          "The ID of the asynchronous operation, which is used to track status. The operation is available for 90 days."]}
    let context_ = "GetControlOperationInput"
    let make ~operationIdentifier = fun () -> { operationIdentifier }
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Some (OperationIdentifier.to_value x.operationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        OperationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operationIdentifier") in
      make ~operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map_exn json__ "operationIdentifier"
          OperationIdentifier.of_json in
      make ~operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the status of a particular EnableControl or DisableControl operation. Displays a message in case of error. Details for an operation are available for 90 days. For usage examples, see the Controls Reference Guide ."]
module GetBaselineOutput =
  struct
    type nonrec t =
      {
      arn: BaselineArn.t option [@ocaml.doc "The baseline ARN."];
      name: String_.t option
        [@ocaml.doc "A user-friendly name for the baseline."];
      description: String_.t option
        [@ocaml.doc "A description of the baseline."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?name -> fun ?description -> fun () -> { arn; name; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:BaselineArn.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:BaselineArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      let arn = field_map json__ "arn" BaselineArn.of_json in
      make ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve details about an existing Baseline resource by specifying its identifier. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module GetBaselineOperationOutput =
  struct
    type nonrec t =
      {
      baselineOperation: BaselineOperation.t option
        [@ocaml.doc
          "A baselineOperation object that shows information about the specified operation ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?baselineOperation = fun () -> { baselineOperation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("baselineOperation",
           (Option.map x.baselineOperation ~f:BaselineOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baselineOperation =
        (Option.map ~f:BaselineOperation.of_xml)
          (Xml.child xml_arg0 "baselineOperation") in
      make ?baselineOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baselineOperation =
        field_map json__ "baselineOperation" BaselineOperation.of_json in
      make ?baselineOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details of an asynchronous baseline operation, as initiated by any of these APIs: EnableBaseline, DisableBaseline, UpdateEnabledBaseline, ResetEnabledBaseline. A status message is displayed in case of operation failure. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module GetBaselineOperationInput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t
        [@ocaml.doc
          "The operation ID returned from mutating asynchronous APIs (Enable, Disable, Update, Reset)."]}
    let context_ = "GetBaselineOperationInput"
    let make ~operationIdentifier = fun () -> { operationIdentifier }
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Some (OperationIdentifier.to_value x.operationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        OperationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operationIdentifier") in
      make ~operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map_exn json__ "operationIdentifier"
          OperationIdentifier.of_json in
      make ~operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details of an asynchronous baseline operation, as initiated by any of these APIs: EnableBaseline, DisableBaseline, UpdateEnabledBaseline, ResetEnabledBaseline. A status message is displayed in case of operation failure. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module GetBaselineInput =
  struct
    type nonrec t =
      {
      baselineIdentifier: BaselineArn.t
        [@ocaml.doc "The ARN of the Baseline resource to be retrieved."]}
    let context_ = "GetBaselineInput"
    let make ~baselineIdentifier = fun () -> { baselineIdentifier }
    let to_value x =
      structure_to_value
        [("baselineIdentifier",
           (Some (BaselineArn.to_value x.baselineIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baselineIdentifier =
        BaselineArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "baselineIdentifier") in
      make ~baselineIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baselineIdentifier =
        field_map_exn json__ "baselineIdentifier" BaselineArn.of_json in
      make ~baselineIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve details about an existing Baseline resource by specifying its identifier. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module EnableControlOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID of the asynchronous operation, which is used to track status. The operation is available for 90 days."];
      arn: Arn.t option
        [@ocaml.doc "The ARN of the EnabledControl resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier =
      fun ?arn -> fun () -> { operationIdentifier; arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?arn ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?arn ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call activates a control. It starts an asynchronous operation that creates Amazon Web Services resources on the specified organizational unit and the accounts it contains. The resources created will vary according to the control that you specify. For usage examples, see the Controls Reference Guide ."]
module EnableControlInput =
  struct
    type nonrec t =
      {
      controlIdentifier: ControlIdentifier.t
        [@ocaml.doc
          "The ARN of the control. Only Strongly recommended and Elective controls are permitted, with the exception of the Region deny control. For information on how to find the controlIdentifier, see the overview page."];
      targetIdentifier: TargetIdentifier.t
        [@ocaml.doc
          "The ARN of the organizational unit. For information on how to find the targetIdentifier, see the overview page."];
      tags: TagMap.t option
        [@ocaml.doc "Tags to be applied to the EnabledControl resource."];
      parameters: EnabledControlParameters.t option
        [@ocaml.doc
          "A list of input parameter values, which are specified to configure the control when you enable it."]}
    let context_ = "EnableControlInput"
    let make ?tags =
      fun ?parameters ->
        fun ~controlIdentifier ->
          fun ~targetIdentifier ->
            fun () ->
              { tags; parameters; controlIdentifier; targetIdentifier }
    let to_value x =
      structure_to_value
        [("controlIdentifier",
           (Some (ControlIdentifier.to_value x.controlIdentifier)));
        ("targetIdentifier",
          (Some (TargetIdentifier.to_value x.targetIdentifier)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("parameters",
          (Option.map x.parameters ~f:EnabledControlParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:EnabledControlParameters.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let targetIdentifier =
        TargetIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        ControlIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlIdentifier") in
      make ?parameters ?tags ~targetIdentifier ~controlIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters =
        field_map json__ "parameters" EnabledControlParameters.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let targetIdentifier =
        field_map_exn json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map_exn json__ "controlIdentifier" ControlIdentifier.of_json in
      make ?parameters ?tags ~targetIdentifier ~controlIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call activates a control. It starts an asynchronous operation that creates Amazon Web Services resources on the specified organizational unit and the accounts it contains. The resources created will vary according to the control that you specify. For usage examples, see the Controls Reference Guide ."]
module EnableBaselineOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID (in UUID format) of the asynchronous EnableBaseline operation. This operationIdentifier is used to track status through calls to the GetBaselineOperation API."];
      arn: Arn.t option
        [@ocaml.doc "The ARN of the EnabledBaseline resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier =
      fun ?arn -> fun () -> { operationIdentifier; arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?arn ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?arn ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enable (apply) a Baseline to a Target. This API starts an asynchronous operation to deploy resources specified by the Baseline to the specified Target. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module EnableBaselineInput =
  struct
    type nonrec t =
      {
      baselineVersion: BaselineVersion.t
        [@ocaml.doc
          "The specific version to be enabled of the specified baseline."];
      parameters: EnabledBaselineParameters.t option
        [@ocaml.doc
          "A list of key-value objects that specify enablement parameters, where key is a string and value is a document of any type."];
      baselineIdentifier: Arn.t
        [@ocaml.doc "The ARN of the baseline to be enabled."];
      targetIdentifier: Arn.t
        [@ocaml.doc
          "The ARN of the target on which the baseline will be enabled. Only OUs are supported as targets."];
      tags: TagMap.t option
        [@ocaml.doc "Tags associated with input to EnableBaseline."]}
    let context_ = "EnableBaselineInput"
    let make ?parameters =
      fun ?tags ->
        fun ~baselineVersion ->
          fun ~baselineIdentifier ->
            fun ~targetIdentifier ->
              fun () ->
                {
                  parameters;
                  tags;
                  baselineVersion;
                  baselineIdentifier;
                  targetIdentifier
                }
    let to_value x =
      structure_to_value
        [("baselineVersion",
           (Some (BaselineVersion.to_value x.baselineVersion)));
        ("parameters",
          (Option.map x.parameters ~f:EnabledBaselineParameters.to_value));
        ("baselineIdentifier", (Some (Arn.to_value x.baselineIdentifier)));
        ("targetIdentifier", (Some (Arn.to_value x.targetIdentifier)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let targetIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetIdentifier") in
      let baselineIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "baselineIdentifier") in
      let parameters =
        (Option.map ~f:EnabledBaselineParameters.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let baselineVersion =
        BaselineVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "baselineVersion") in
      make ?tags ~targetIdentifier ~baselineIdentifier ?parameters
        ~baselineVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let targetIdentifier =
        field_map_exn json__ "targetIdentifier" Arn.of_json in
      let baselineIdentifier =
        field_map_exn json__ "baselineIdentifier" Arn.of_json in
      let parameters =
        field_map json__ "parameters" EnabledBaselineParameters.of_json in
      let baselineVersion =
        field_map_exn json__ "baselineVersion" BaselineVersion.of_json in
      make ?tags ~targetIdentifier ~baselineIdentifier ?parameters
        ~baselineVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enable (apply) a Baseline to a Target. This API starts an asynchronous operation to deploy resources specified by the Baseline to the specified Target. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module DisableControlOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID of the asynchronous operation, which is used to track status. The operation is available for 90 days."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call turns off a control. It starts an asynchronous operation that deletes Amazon Web Services resources on the specified organizational unit and the accounts it contains. The resources will vary according to the control that you specify. For usage examples, see the Controls Reference Guide ."]
module DisableControlInput =
  struct
    type nonrec t =
      {
      controlIdentifier: ControlIdentifier.t option
        [@ocaml.doc
          "The ARN of the control. Only Strongly recommended and Elective controls are permitted, with the exception of the Region deny control. For information on how to find the controlIdentifier, see the overview page."];
      targetIdentifier: TargetIdentifier.t option
        [@ocaml.doc
          "The ARN of the organizational unit. For information on how to find the targetIdentifier, see the overview page."];
      enabledControlIdentifier: Arn.t option
        [@ocaml.doc
          "The ARN of the enabled control to be disabled, which uniquely identifies the control instance on the target organizational unit."]}
    let make ?controlIdentifier =
      fun ?targetIdentifier ->
        fun ?enabledControlIdentifier ->
          fun () ->
            { controlIdentifier; targetIdentifier; enabledControlIdentifier }
    let to_value x =
      structure_to_value
        [("controlIdentifier",
           (Option.map x.controlIdentifier ~f:ControlIdentifier.to_value));
        ("targetIdentifier",
          (Option.map x.targetIdentifier ~f:TargetIdentifier.to_value));
        ("enabledControlIdentifier",
          (Option.map x.enabledControlIdentifier ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledControlIdentifier =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "enabledControlIdentifier") in
      let targetIdentifier =
        (Option.map ~f:TargetIdentifier.of_xml)
          (Xml.child xml_arg0 "targetIdentifier") in
      let controlIdentifier =
        (Option.map ~f:ControlIdentifier.of_xml)
          (Xml.child xml_arg0 "controlIdentifier") in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledControlIdentifier =
        field_map json__ "enabledControlIdentifier" Arn.of_json in
      let targetIdentifier =
        field_map json__ "targetIdentifier" TargetIdentifier.of_json in
      let controlIdentifier =
        field_map json__ "controlIdentifier" ControlIdentifier.of_json in
      make ?enabledControlIdentifier ?targetIdentifier ?controlIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API call turns off a control. It starts an asynchronous operation that deletes Amazon Web Services resources on the specified organizational unit and the accounts it contains. The resources will vary according to the control that you specify. For usage examples, see the Controls Reference Guide ."]
module DisableBaselineOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "The ID (in UUID format) of the asynchronous DisableBaseline operation. This operationIdentifier is used to track status through calls to the GetBaselineOperation API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disable an EnabledBaseline resource on the specified Target. This API starts an asynchronous operation to remove all resources deployed as part of the baseline enablement. The resource will vary depending on the enabled baseline. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module DisableBaselineInput =
  struct
    type nonrec t =
      {
      enabledBaselineIdentifier: Arn.t
        [@ocaml.doc
          "Identifier of the EnabledBaseline resource to be deactivated, in ARN format."]}
    let context_ = "DisableBaselineInput"
    let make ~enabledBaselineIdentifier =
      fun () -> { enabledBaselineIdentifier }
    let to_value x =
      structure_to_value
        [("enabledBaselineIdentifier",
           (Some (Arn.to_value x.enabledBaselineIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledBaselineIdentifier =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "enabledBaselineIdentifier") in
      make ~enabledBaselineIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledBaselineIdentifier =
        field_map_exn json__ "enabledBaselineIdentifier" Arn.of_json in
      make ~enabledBaselineIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disable an EnabledBaseline resource on the specified Target. This API starts an asynchronous operation to remove all resources deployed as part of the baseline enablement. The resource will vary depending on the enabled baseline. For usage examples, see the Amazon Web Services Control Tower User Guide ."]
module DeleteLandingZoneOutput =
  struct
    type nonrec t =
      {
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          ">A unique identifier assigned to a DeleteLandingZone operation. You can use this identifier as an input parameter of GetLandingZoneOperation to check the operation's status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationIdentifier = fun () -> { operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("operationIdentifier",
           (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      make ?operationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      make ?operationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Decommissions a landing zone. This API call starts an asynchronous operation that deletes Amazon Web Services Control Tower resources deployed in accounts managed by Amazon Web Services Control Tower. Decommissioning a landing zone is a process with significant consequences, and it cannot be undone. We strongly recommend that you perform this decommissioning process only if you intend to stop using your landing zone."]
module DeleteLandingZoneInput =
  struct
    type nonrec t =
      {
      landingZoneIdentifier: String_.t
        [@ocaml.doc "The unique identifier of the landing zone."]}
    let context_ = "DeleteLandingZoneInput"
    let make ~landingZoneIdentifier = fun () -> { landingZoneIdentifier }
    let to_value x =
      structure_to_value
        [("landingZoneIdentifier",
           (Some (String_.to_value x.landingZoneIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let landingZoneIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "landingZoneIdentifier") in
      make ~landingZoneIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let landingZoneIdentifier =
        field_map_exn json__ "landingZoneIdentifier" String_.of_json in
      make ~landingZoneIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Decommissions a landing zone. This API call starts an asynchronous operation that deletes Amazon Web Services Control Tower resources deployed in accounts managed by Amazon Web Services Control Tower. Decommissioning a landing zone is a process with significant consequences, and it cannot be undone. We strongly recommend that you perform this decommissioning process only if you intend to stop using your landing zone."]
module CreateLandingZoneOutput =
  struct
    type nonrec t =
      {
      arn: Arn.t option [@ocaml.doc "The ARN of the landing zone resource."];
      operationIdentifier: OperationIdentifier.t option
        [@ocaml.doc
          "A unique identifier assigned to a CreateLandingZone operation. You can use this identifier as an input of GetLandingZoneOperation to check the operation's status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?operationIdentifier -> fun () -> { arn; operationIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("operationIdentifier",
          (Option.map x.operationIdentifier ~f:OperationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationIdentifier =
        (Option.map ~f:OperationIdentifier.of_xml)
          (Xml.child xml_arg0 "operationIdentifier") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?operationIdentifier ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationIdentifier =
        field_map json__ "operationIdentifier" OperationIdentifier.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?operationIdentifier ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new landing zone. This API call starts an asynchronous operation that creates and configures a landing zone, based on the parameters specified in the manifest JSON file."]
module CreateLandingZoneInput =
  struct
    type nonrec t =
      {
      version: LandingZoneVersion.t
        [@ocaml.doc "The landing zone version, for example, 3.0."];
      remediationTypes: RemediationTypes.t option
        [@ocaml.doc
          "Specifies the types of remediation actions to apply when creating the landing zone, such as automatic drift correction or compliance enforcement."];
      tags: TagMap.t option
        [@ocaml.doc "Tags to be applied to the landing zone."];
      manifest: Manifest.t option
        [@ocaml.doc
          "The manifest JSON file is a text file that describes your Amazon Web Services resources. For examples, review Launch your landing zone."]}
    let context_ = "CreateLandingZoneInput"
    let make ?remediationTypes =
      fun ?tags ->
        fun ?manifest ->
          fun ~version ->
            fun () -> { remediationTypes; tags; manifest; version }
    let to_value x =
      structure_to_value
        [("version", (Some (LandingZoneVersion.to_value x.version)));
        ("remediationTypes",
          (Option.map x.remediationTypes ~f:RemediationTypes.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("manifest", (Option.map x.manifest ~f:Manifest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifest =
        (Option.map ~f:Manifest.of_xml) (Xml.child xml_arg0 "manifest") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let remediationTypes =
        (Option.map ~f:RemediationTypes.of_xml)
          (Xml.child xml_arg0 "remediationTypes") in
      let version =
        LandingZoneVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "version") in
      make ?manifest ?tags ?remediationTypes ~version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifest = field_map json__ "manifest" Manifest.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let remediationTypes =
        field_map json__ "remediationTypes" RemediationTypes.of_json in
      let version = field_map_exn json__ "version" LandingZoneVersion.of_json in
      make ?manifest ?tags ?remediationTypes ~version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new landing zone. This API call starts an asynchronous operation that creates and configures a landing zone, based on the parameters specified in the manifest JSON file."]