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.ssm_quicksetup
let apiVersion = "2018-05-10"
let endpointPrefix = "ssm-quicksetup"
let serviceFullName = "AWS Systems Manager QuickSetup"
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 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 ConfigurationParametersMapKeyString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationParametersMapKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9+=@_\\/\\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:"ConfigurationParametersMapKeyString" j
    let to_json = simple_to_json to_value
  end
module ConfigurationParametersMapValueString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationParametersMapValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:40960) >>=
             (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:"ConfigurationParametersMapValueString" j
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t =
      | INITIALIZING 
      | DEPLOYING 
      | SUCCEEDED 
      | DELETING 
      | STOPPING 
      | FAILED 
      | STOPPED 
      | DELETE_FAILED 
      | STOP_FAILED 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIALIZING -> "INITIALIZING"
      | DEPLOYING -> "DEPLOYING"
      | SUCCEEDED -> "SUCCEEDED"
      | DELETING -> "DELETING"
      | STOPPING -> "STOPPING"
      | FAILED -> "FAILED"
      | STOPPED -> "STOPPED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | STOP_FAILED -> "STOP_FAILED"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIALIZING" -> INITIALIZING
      | "DEPLOYING" -> DEPLOYING
      | "SUCCEEDED" -> SUCCEEDED
      | "DELETING" -> DELETING
      | "STOPPING" -> STOPPING
      | "FAILED" -> FAILED
      | "STOPPED" -> STOPPED
      | "DELETE_FAILED" -> DELETE_FAILED
      | "STOP_FAILED" -> STOP_FAILED
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module StatusDetails =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatusType =
  struct
    type nonrec t =
      | Deployment 
      | AsyncExecutions 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Deployment -> "Deployment"
      | AsyncExecutions -> "AsyncExecutions"
      | Non_static_id s -> s
    let of_string =
      function
      | "Deployment" -> Deployment
      | "AsyncExecutions" -> AsyncExecutions
      | 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 StatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatusType" 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 ConfigurationParametersMap =
  struct
    type nonrec t =
      (ConfigurationParametersMapKeyString.t *
        ConfigurationParametersMapValueString.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ConfigurationParametersMapKeyString.of_string
                                chopped),
                              (ConfigurationParametersMapValueString.of_string
                                 v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ConfigurationParametersMapKeyString.to_value x) |>
                    (fun x ->
                       (ConfigurationParametersMapValueString.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:ConfigurationParametersMapKeyString.of_string
        ~of_json:ConfigurationParametersMapValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatusSummary =
  struct
    type nonrec t =
      {
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The datetime stamp when the status was last updated."];
      status: Status.t option [@ocaml.doc "The current status."];
      statusDetails: StatusDetails.t option
        [@ocaml.doc "Details about the status."];
      statusMessage: String_.t option
        [@ocaml.doc
          "When applicable, returns an informational message relevant to the current status and status type of the status summary object. We don't recommend implementing parsing logic around this value since the messages returned can vary in format."];
      statusType: StatusType.t option
        [@ocaml.doc "The type of a status summary."]}
    let make ?lastUpdatedAt =
      fun ?status ->
        fun ?statusDetails ->
          fun ?statusMessage ->
            fun ?statusType ->
              fun () ->
                {
                  lastUpdatedAt;
                  status;
                  statusDetails;
                  statusMessage;
                  statusType
                }
    let to_value x =
      structure_to_value
        [("LastUpdatedAt",
           (Option.map x.lastUpdatedAt
              ~f:SyntheticTimestamp_date_time.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("StatusDetails",
          (Option.map x.statusDetails ~f:StatusDetails.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("StatusType", (Option.map x.statusType ~f:StatusType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusType =
        (Option.map ~f:StatusType.of_xml) (Xml.child xml_arg0 "StatusType") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusDetails =
        (Option.map ~f:StatusDetails.of_xml)
          (Xml.child xml_arg0 "StatusDetails") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      make ?statusType ?statusMessage ?statusDetails ?status ?lastUpdatedAt
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusType = field_map json__ "StatusType" StatusType.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let statusDetails =
        field_map json__ "StatusDetails" StatusDetails.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      make ?statusType ?statusMessage ?statusDetails ?status ?lastUpdatedAt
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summarized description of the status."]
module FilterValuesMemberString =
  struct
    type nonrec t = string
    let context_ = "FilterValuesMemberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9+=@_\\/\\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:"FilterValuesMemberString" j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionSummary =
  struct
    type nonrec t =
      {
      firstClassParameters: ConfigurationParametersMap.t option
        [@ocaml.doc
          "The common parameters and values for the configuration definition."];
      id: String_.t option
        [@ocaml.doc "The ID of the configuration definition."];
      type_: String_.t option
        [@ocaml.doc
          "The type of the Quick Setup configuration used by the configuration definition."];
      typeVersion: String_.t option
        [@ocaml.doc
          "The version of the Quick Setup type used by the configuration definition."]}
    let make ?firstClassParameters =
      fun ?id ->
        fun ?type_ ->
          fun ?typeVersion ->
            fun () -> { firstClassParameters; id; type_; typeVersion }
    let to_value x =
      structure_to_value
        [("FirstClassParameters",
           (Option.map x.firstClassParameters
              ~f:ConfigurationParametersMap.to_value));
        ("Id", (Option.map x.id ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value));
        ("TypeVersion", (Option.map x.typeVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TypeVersion") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      let firstClassParameters =
        (Option.map ~f:ConfigurationParametersMap.of_xml)
          (Xml.child xml_arg0 "FirstClassParameters") in
      make ?typeVersion ?type_ ?id ?firstClassParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion = field_map json__ "TypeVersion" String_.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      let id = field_map json__ "Id" String_.of_json in
      let firstClassParameters =
        field_map json__ "FirstClassParameters"
          ConfigurationParametersMap.of_json in
      make ?typeVersion ?type_ ?id ?firstClassParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summarized definition of a Quick Setup configuration definition."]
module TagEntryKeyString =
  struct
    type nonrec t = string
    let context_ = "TagEntryKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9 _=@:.+-/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagEntryKeyString" j
    let to_json = simple_to_json to_value
  end
module TagEntryValueString =
  struct
    type nonrec t = string
    let context_ = "TagEntryValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9 _=@:.+-/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagEntryValueString" j
    let to_json = simple_to_json to_value
  end
module StatusSummariesList =
  struct
    type nonrec t = StatusSummary.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:StatusSummary.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:StatusSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StatusSummariesList" ~of_json:StatusSummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module FilterKeyString =
  struct
    type nonrec t = string
    let context_ = "FilterKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9+=@_\\/\\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:"FilterKeyString" j
    let to_json = simple_to_json to_value
  end
module FilterValues =
  struct
    type nonrec t = FilterValuesMemberString.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:FilterValuesMemberString.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:FilterValuesMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValues"
        ~of_json:FilterValuesMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationDefinitionSummariesList =
  struct
    type nonrec t = ConfigurationDefinitionSummary.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:ConfigurationDefinitionSummary.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:ConfigurationDefinitionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationDefinitionSummariesList"
        ~of_json:ConfigurationDefinitionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationDefinitionLocalDeploymentExecutionRoleNameString =
  struct
    type nonrec t = string
    let context_ =
      "ConfigurationDefinitionLocalDeploymentExecutionRoleNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[\\w+=,.@-]{1,64}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"ConfigurationDefinitionLocalDeploymentExecutionRoleNameString"
        j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionTypeString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationDefinitionTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-zA-Z0-9_\\-.:/]{3,200}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ConfigurationDefinitionTypeString" j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionTypeVersionString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationDefinitionTypeVersionString"
    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:"ConfigurationDefinitionTypeVersionString" j
    let to_json = simple_to_json to_value
  end
module IAMRoleArn =
  struct
    type nonrec t = string
    let context_ = "IAMRoleArn"
    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:"IAMRoleArn" j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString =
  struct
    type nonrec t = string
    let context_ =
      "ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[\\w+=,.@-]{1,64}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString"
        j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionInputTypeString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationDefinitionInputTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-zA-Z0-9_\\-.:/]{3,200}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ConfigurationDefinitionInputTypeString" j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionInputTypeVersionString =
  struct
    type nonrec t = string
    let context_ = "ConfigurationDefinitionInputTypeVersionString"
    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:"ConfigurationDefinitionInputTypeVersionString" j
    let to_json = simple_to_json to_value
  end
module TagsMapKeyString =
  struct
    type nonrec t = string
    let context_ = "TagsMapKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9 _=@:.+-/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagsMapKeyString" j
    let to_json = simple_to_json to_value
  end
module TagsMapValueString =
  struct
    type nonrec t = string
    let context_ = "TagsMapValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9 _=@:.+-/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagsMapValueString" j
    let to_json = simple_to_json to_value
  end
module TagEntry =
  struct
    type nonrec t =
      {
      key: TagEntryKeyString.t option [@ocaml.doc "The key for the tag."];
      value: TagEntryValueString.t option
        [@ocaml.doc "The value for the tag."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagEntryKeyString.to_value));
        ("Value", (Option.map x.value ~f:TagEntryValueString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagEntryValueString.of_xml)
          (Xml.child xml_arg0 "Value") in
      let key =
        (Option.map ~f:TagEntryKeyString.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" TagEntryValueString.of_json in
      let key = field_map json__ "Key" TagEntryKeyString.of_json in
      make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Key-value pairs of metadata."]
module QuickSetupTypeOutput =
  struct
    type nonrec t =
      {
      latestVersion: String_.t option
        [@ocaml.doc "The latest version number of the configuration."];
      type_: String_.t option
        [@ocaml.doc "The type of the Quick Setup configuration."]}
    let make ?latestVersion =
      fun ?type_ -> fun () -> { latestVersion; type_ }
    let to_value x =
      structure_to_value
        [("LatestVersion", (Option.map x.latestVersion ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let latestVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LatestVersion") in
      make ?type_ ?latestVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" String_.of_json in
      let latestVersion = field_map json__ "LatestVersion" String_.of_json in
      make ?type_ ?latestVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the Quick Setup type."]
module ConfigurationSummary =
  struct
    type nonrec t =
      {
      account: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account where the configuration was deployed."];
      configurationDefinitionId: String_.t option
        [@ocaml.doc "The ID of the configuration definition."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The datetime stamp when the configuration was created."];
      firstClassParameters: ConfigurationParametersMap.t option
        [@ocaml.doc
          "The common parameters and values for the configuration definition."];
      id: String_.t option
        [@ocaml.doc "A service generated identifier for the configuration."];
      managerArn: String_.t option
        [@ocaml.doc "The ARN of the configuration manager."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the configuration was deployed."];
      statusSummaries: StatusSummariesList.t option
        [@ocaml.doc
          "A summary of the state of the configuration manager. This includes deployment statuses, association statuses, drift statuses, health checks, and more."];
      type_: String_.t option
        [@ocaml.doc "The type of the Quick Setup configuration."];
      typeVersion: String_.t option
        [@ocaml.doc "The version of the Quick Setup type used."]}
    let make ?account =
      fun ?configurationDefinitionId ->
        fun ?createdAt ->
          fun ?firstClassParameters ->
            fun ?id ->
              fun ?managerArn ->
                fun ?region ->
                  fun ?statusSummaries ->
                    fun ?type_ ->
                      fun ?typeVersion ->
                        fun () ->
                          {
                            account;
                            configurationDefinitionId;
                            createdAt;
                            firstClassParameters;
                            id;
                            managerArn;
                            region;
                            statusSummaries;
                            type_;
                            typeVersion
                          }
    let to_value x =
      structure_to_value
        [("Account", (Option.map x.account ~f:String_.to_value));
        ("ConfigurationDefinitionId",
          (Option.map x.configurationDefinitionId ~f:String_.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("FirstClassParameters",
          (Option.map x.firstClassParameters
             ~f:ConfigurationParametersMap.to_value));
        ("Id", (Option.map x.id ~f:String_.to_value));
        ("ManagerArn", (Option.map x.managerArn ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("StatusSummaries",
          (Option.map x.statusSummaries ~f:StatusSummariesList.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value));
        ("TypeVersion", (Option.map x.typeVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TypeVersion") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let statusSummaries =
        (Option.map ~f:StatusSummariesList.of_xml)
          (Xml.child xml_arg0 "StatusSummaries") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let managerArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagerArn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      let firstClassParameters =
        (Option.map ~f:ConfigurationParametersMap.of_xml)
          (Xml.child xml_arg0 "FirstClassParameters") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let configurationDefinitionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationDefinitionId") in
      let account =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Account") in
      make ?typeVersion ?type_ ?statusSummaries ?region ?managerArn ?id
        ?firstClassParameters ?createdAt ?configurationDefinitionId ?account
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion = field_map json__ "TypeVersion" String_.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      let statusSummaries =
        field_map json__ "StatusSummaries" StatusSummariesList.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let managerArn = field_map json__ "ManagerArn" String_.of_json in
      let id = field_map json__ "Id" String_.of_json in
      let firstClassParameters =
        field_map json__ "FirstClassParameters"
          ConfigurationParametersMap.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let configurationDefinitionId =
        field_map json__ "ConfigurationDefinitionId" String_.of_json in
      let account = field_map json__ "Account" String_.of_json in
      make ?typeVersion ?type_ ?statusSummaries ?region ?managerArn ?id
        ?firstClassParameters ?createdAt ?configurationDefinitionId ?account
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details for a Quick Setup configuration."]
module Filter =
  struct
    type nonrec t =
      {
      key: FilterKeyString.t [@ocaml.doc "The key for the filter."];
      values: FilterValues.t [@ocaml.doc "The values for the filter keys."]}
    let context_ = "Filter"
    let make ~key = fun ~values -> fun () -> { key; values }
    let to_value x =
      structure_to_value
        [("Key", (Some (FilterKeyString.to_value x.key)));
        ("Values", (Some (FilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let key =
        FilterKeyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValues.of_json in
      let key = field_map_exn json__ "Key" FilterKeyString.of_json in
      make ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key-value pair to filter results."]
module ConfigurationManagerSummary =
  struct
    type nonrec t =
      {
      configurationDefinitionSummaries:
        ConfigurationDefinitionSummariesList.t option
        [@ocaml.doc "A summary of the Quick Setup configuration definition."];
      description: String_.t option
        [@ocaml.doc "The description of the configuration."];
      managerArn: String_.t option
        [@ocaml.doc "The ARN of the Quick Setup configuration."];
      name: String_.t option [@ocaml.doc "The name of the configuration"];
      statusSummaries: StatusSummariesList.t option
        [@ocaml.doc
          "Summaries of the state of the configuration manager. These summaries include an aggregate of the statuses from the configuration definition associated with the configuration manager. This includes deployment statuses, association statuses, drift statuses, health checks, and more."]}
    let make ?configurationDefinitionSummaries =
      fun ?description ->
        fun ?managerArn ->
          fun ?name ->
            fun ?statusSummaries ->
              fun () ->
                {
                  configurationDefinitionSummaries;
                  description;
                  managerArn;
                  name;
                  statusSummaries
                }
    let to_value x =
      structure_to_value
        [("ConfigurationDefinitionSummaries",
           (Option.map x.configurationDefinitionSummaries
              ~f:ConfigurationDefinitionSummariesList.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("ManagerArn", (Option.map x.managerArn ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("StatusSummaries",
          (Option.map x.statusSummaries ~f:StatusSummariesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummaries =
        (Option.map ~f:StatusSummariesList.of_xml)
          (Xml.child xml_arg0 "StatusSummaries") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let managerArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagerArn") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let configurationDefinitionSummaries =
        (Option.map ~f:ConfigurationDefinitionSummariesList.of_xml)
          (Xml.child xml_arg0 "ConfigurationDefinitionSummaries") in
      make ?statusSummaries ?name ?managerArn ?description
        ?configurationDefinitionSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummaries =
        field_map json__ "StatusSummaries" StatusSummariesList.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let managerArn = field_map json__ "ManagerArn" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let configurationDefinitionSummaries =
        field_map json__ "ConfigurationDefinitionSummaries"
          ConfigurationDefinitionSummariesList.of_json in
      make ?statusSummaries ?name ?managerArn ?description
        ?configurationDefinitionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of a Quick Setup configuration manager."]
module ConfigurationDefinition =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The ID of the configuration definition."];
      localDeploymentAdministrationRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role used to administrate local configuration deployments."];
      localDeploymentExecutionRoleName:
        ConfigurationDefinitionLocalDeploymentExecutionRoleNameString.t
          option
        [@ocaml.doc
          "The name of the IAM role used to deploy local configurations."];
      parameters: ConfigurationParametersMap.t option
        [@ocaml.doc
          "A list of key-value pairs containing the required parameters for the configuration type."];
      type_: ConfigurationDefinitionTypeString.t option
        [@ocaml.doc "The type of the Quick Setup configuration."];
      typeVersion: ConfigurationDefinitionTypeVersionString.t option
        [@ocaml.doc "The version of the Quick Setup type used."]}
    let make ?id =
      fun ?localDeploymentAdministrationRoleArn ->
        fun ?localDeploymentExecutionRoleName ->
          fun ?parameters ->
            fun ?type_ ->
              fun ?typeVersion ->
                fun () ->
                  {
                    id;
                    localDeploymentAdministrationRoleArn;
                    localDeploymentExecutionRoleName;
                    parameters;
                    type_;
                    typeVersion
                  }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:String_.to_value));
        ("LocalDeploymentAdministrationRoleArn",
          (Option.map x.localDeploymentAdministrationRoleArn
             ~f:IAMRoleArn.to_value));
        ("LocalDeploymentExecutionRoleName",
          (Option.map x.localDeploymentExecutionRoleName
             ~f:ConfigurationDefinitionLocalDeploymentExecutionRoleNameString.to_value));
        ("Parameters",
          (Option.map x.parameters ~f:ConfigurationParametersMap.to_value));
        ("Type",
          (Option.map x.type_ ~f:ConfigurationDefinitionTypeString.to_value));
        ("TypeVersion",
          (Option.map x.typeVersion
             ~f:ConfigurationDefinitionTypeVersionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map ~f:ConfigurationDefinitionTypeVersionString.of_xml)
          (Xml.child xml_arg0 "TypeVersion") in
      let type_ =
        (Option.map ~f:ConfigurationDefinitionTypeString.of_xml)
          (Xml.child xml_arg0 "Type") in
      let parameters =
        (Option.map ~f:ConfigurationParametersMap.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let localDeploymentExecutionRoleName =
        (Option.map
           ~f:ConfigurationDefinitionLocalDeploymentExecutionRoleNameString.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentExecutionRoleName") in
      let localDeploymentAdministrationRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentAdministrationRoleArn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?typeVersion ?type_ ?parameters ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion =
        field_map json__ "TypeVersion"
          ConfigurationDefinitionTypeVersionString.of_json in
      let type_ =
        field_map json__ "Type" ConfigurationDefinitionTypeString.of_json in
      let parameters =
        field_map json__ "Parameters" ConfigurationParametersMap.of_json in
      let localDeploymentExecutionRoleName =
        field_map json__ "LocalDeploymentExecutionRoleName"
          ConfigurationDefinitionLocalDeploymentExecutionRoleNameString.of_json in
      let localDeploymentAdministrationRoleArn =
        field_map json__ "LocalDeploymentAdministrationRoleArn"
          IAMRoleArn.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?typeVersion ?type_ ?parameters ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The definition of a Quick Setup configuration."]
module ConfigurationDefinitionInput =
  struct
    type nonrec t =
      {
      localDeploymentAdministrationRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role used to administrate local configuration deployments."];
      localDeploymentExecutionRoleName:
        ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.t
          option
        [@ocaml.doc
          "The name of the IAM role used to deploy local configurations."];
      parameters: ConfigurationParametersMap.t
        [@ocaml.doc
          "The parameters for the configuration definition type. Parameters for configuration definitions vary based the configuration type. The following tables outline the parameters for each configuration type. OpsCenter (Type: Amazon Web ServicesQuickSetupType-SSMOpsCenter) DelegatedAccountId Description: (Required) The ID of the delegated administrator account. TargetOrganizationalUnits Description: (Required) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Resource Scheduler (Type: Amazon Web ServicesQuickSetupType-Scheduler) TargetTagKey Description: (Required) The tag key assigned to the instances you want to target. TargetTagValue Description: (Required) The value of the tag key assigned to the instances you want to target. ICalendarString Description: (Required) An iCalendar formatted string containing the schedule you want Change Manager to use. TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Default Host Management Configuration (Type: Amazon Web ServicesQuickSetupType-DHMC) UpdateSSMAgent Description: (Optional) A boolean value that determines whether the SSM Agent is updated on the target instances every 2 weeks. The default value is \"true\". TargetOrganizationalUnits Description: (Required) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Resource Explorer (Type: Amazon Web ServicesQuickSetupType-ResourceExplorer) SelectedAggregatorRegion Description: (Required) The Amazon Web Services Region where you want to create the aggregator index. ReplaceExistingAggregator Description: (Required) A boolean value that determines whether to demote an existing aggregator if it is in a Region that differs from the value you specify for the SelectedAggregatorRegion. TargetOrganizationalUnits Description: (Required) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Change Manager (Type: Amazon Web ServicesQuickSetupType-SSMChangeMgr) DelegatedAccountId Description: (Required) The ID of the delegated administrator account. JobFunction Description: (Required) The name for the Change Manager job function. PermissionType Description: (Optional) Specifies whether you want to use default administrator permissions for the job function role, or provide a custom IAM policy. The valid values are CustomPermissions and AdminPermissions. The default value for the parameter is CustomerPermissions. CustomPermissions Description: (Optional) A JSON string containing the IAM policy you want your job function to use. You must provide a value for this parameter if you specify CustomPermissions for the PermissionType parameter. TargetOrganizationalUnits Description: (Required) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. DevOps\194\160Guru (Type: Amazon Web ServicesQuickSetupType-DevOpsGuru) AnalyseAllResources Description: (Optional) A boolean value that determines whether DevOps\194\160Guru analyzes all CloudFormation stacks in the account. The default value is \"false\". EnableSnsNotifications Description: (Optional) A boolean value that determines whether DevOps\194\160Guru sends notifications when an insight is created. The default value is \"true\". EnableSsmOpsItems Description: (Optional) A boolean value that determines whether DevOps\194\160Guru creates an OpsCenter OpsItem when an insight is created. The default value is \"true\". EnableDriftRemediation Description: (Optional) A boolean value that determines whether a drift remediation schedule is used. The default value is \"false\". RemediationSchedule Description: (Optional) A rate expression that defines the schedule for drift remediation. The valid values are rate(30 days), rate(14 days), rate(1 days), and none. The default value is \"none\". TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Conformance Packs (Type: Amazon Web ServicesQuickSetupType-CFGCPacks) DelegatedAccountId Description: (Optional) The ID of the delegated administrator account. This parameter is required for Organization deployments. RemediationSchedule Description: (Optional) A rate expression that defines the schedule for drift remediation. The valid values are rate(30 days), rate(14 days), rate(2 days), and none. The default value is \"none\". CPackNames Description: (Required) A comma separated list of Config conformance packs. TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) The ID of the root of your Organization. This configuration type doesn't currently support choosing specific OUs. The configuration will be deployed to all the OUs in the Organization. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Config Recording (Type: Amazon Web ServicesQuickSetupType-CFGRecording) RecordAllResources Description: (Optional) A boolean value that determines whether all supported resources are recorded. The default value is \"true\". ResourceTypesToRecord Description: (Optional) A comma separated list of resource types you want to record. RecordGlobalResourceTypes Description: (Optional) A boolean value that determines whether global resources are recorded with all resource configurations. The default value is \"false\". GlobalResourceTypesRegion Description: (Optional) Determines the Amazon Web Services Region where global resources are recorded. UseCustomBucket Description: (Optional) A boolean value that determines whether a custom Amazon S3 bucket is used for delivery. The default value is \"false\". DeliveryBucketName Description: (Optional) The name of the Amazon S3 bucket you want Config to deliver configuration snapshots and configuration history files to. DeliveryBucketPrefix Description: (Optional) The key prefix you want to use in the custom Amazon S3 bucket. NotificationOptions Description: (Optional) Determines the notification configuration for the recorder. The valid values are NoStreaming, UseExistingTopic, and CreateTopic. The default value is NoStreaming. CustomDeliveryTopicAccountId Description: (Optional) The ID of the Amazon Web Services account where the Amazon SNS topic you want to use for notifications resides. You must specify a value for this parameter if you use the UseExistingTopic notification option. CustomDeliveryTopicName Description: (Optional) The name of the Amazon SNS topic you want to use for notifications. You must specify a value for this parameter if you use the UseExistingTopic notification option. RemediationSchedule Description: (Optional) A rate expression that defines the schedule for drift remediation. The valid values are rate(30 days), rate(7 days), rate(1 days), and none. The default value is \"none\". TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) The ID of the root of your Organization. This configuration type doesn't currently support choosing specific OUs. The configuration will be deployed to all the OUs in the Organization. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Host Management (Type: Amazon Web ServicesQuickSetupType-SSMHostMgmt) UpdateSSMAgent Description: (Optional) A boolean value that determines whether the SSM Agent is updated on the target instances every 2 weeks. The default value is \"true\". UpdateEc2LaunchAgent Description: (Optional) A boolean value that determines whether the EC2 Launch agent is updated on the target instances every month. The default value is \"false\". CollectInventory Description: (Optional) A boolean value that determines whether the EC2 Launch agent is updated on the target instances every month. The default value is \"true\". ScanInstances Description: (Optional) A boolean value that determines whether the target instances are scanned daily for available patches. The default value is \"true\". InstallCloudWatchAgent Description: (Optional) A boolean value that determines whether the Amazon CloudWatch agent is installed on the target instances. The default value is \"false\". UpdateCloudWatchAgent Description: (Optional) A boolean value that determines whether the Amazon CloudWatch agent is updated on the target instances every month. The default value is \"false\". IsPolicyAttachAllowed Description: (Optional) A boolean value that determines whether Quick Setup attaches policies to instances profiles already associated with the target instances. The default value is \"false\". TargetType Description: (Optional) Determines how instances are targeted for local account deployments. Don't specify a value for this parameter if you're deploying to OUs. The valid values are *, InstanceIds, ResourceGroups, and Tags. Use * to target all instances in the account. TargetInstances Description: (Optional) A comma separated list of instance IDs. You must provide a value for this parameter if you specify InstanceIds for the TargetType parameter. TargetTagKey Description: (Optional) The tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. TargetTagValue Description: (Optional) The value of the tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. ResourceGroupName Description: (Optional) The name of the resource group associated with the instances you want to target. You must provide a value for this parameter if you specify ResourceGroups for the TargetType parameter. TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Distributor (Type: Amazon Web ServicesQuickSetupType-Distributor) PackagesToInstall Description: (Required) A comma separated list of packages you want to install on the target instances. The valid values are AWSEFSTools, AWSCWAgent, and AWSEC2LaunchAgent. RemediationSchedule Description: (Optional) A rate expression that defines the schedule for drift remediation. The valid values are rate(30 days), rate(14 days), rate(2 days), and none. The default value is \"rate(30 days)\". IsPolicyAttachAllowed Description: (Optional) A boolean value that determines whether Quick Setup attaches policies to instances profiles already associated with the target instances. The default value is \"false\". TargetType Description: (Optional) Determines how instances are targeted for local account deployments. Don't specify a value for this parameter if you're deploying to OUs. The valid values are *, InstanceIds, ResourceGroups, and Tags. Use * to target all instances in the account. TargetInstances Description: (Optional) A comma separated list of instance IDs. You must provide a value for this parameter if you specify InstanceIds for the TargetType parameter. TargetTagKey Description: (Required) The tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. TargetTagValue Description: (Required) The value of the tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. ResourceGroupName Description: (Required) The name of the resource group associated with the instances you want to target. You must provide a value for this parameter if you specify ResourceGroups for the TargetType parameter. TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to. Patch Policy (Type: Amazon Web ServicesQuickSetupType-PatchPolicy) PatchPolicyName Description: (Required) A name for the patch policy. The value you provide is applied to target Amazon EC2 instances as a tag. SelectedPatchBaselines Description: (Required) An array of JSON objects containing the information for the patch baselines to include in your patch policy. PatchBaselineUseDefault Description: (Optional) A boolean value that determines whether the selected patch baselines are all Amazon Web Services provided. ConfigurationOptionsPatchOperation Description: (Optional) Determines whether target instances scan for available patches, or scan and install available patches. The valid values are Scan and ScanAndInstall. The default value for the parameter is Scan. ConfigurationOptionsScanValue Description: (Optional) A cron expression that is used as the schedule for when instances scan for available patches. ConfigurationOptionsInstallValue Description: (Optional) A cron expression that is used as the schedule for when instances install available patches. ConfigurationOptionsScanNextInterval Description: (Optional) A boolean value that determines whether instances should scan for available patches at the next cron interval. The default value is \"false\". ConfigurationOptionsInstallNextInterval Description: (Optional) A boolean value that determines whether instances should scan for available patches at the next cron interval. The default value is \"false\". RebootOption Description: (Optional) Determines whether instances are rebooted after patches are installed. Valid values are RebootIfNeeded and NoReboot. IsPolicyAttachAllowed Description: (Optional) A boolean value that determines whether Quick Setup attaches policies to instances profiles already associated with the target instances. The default value is \"false\". OutputLogEnableS3 Description: (Optional) A boolean value that determines whether command output logs are sent to Amazon S3. OutputS3Location Description: (Optional) A JSON string containing information about the Amazon S3 bucket where you want to store the output details of the request. OutputS3BucketRegion Description: (Optional) The Amazon Web Services Region where the Amazon S3 bucket you want Config to deliver command output to is located. OutputS3BucketName Description: (Optional) The name of the Amazon S3 bucket you want Config to deliver command output to. OutputS3KeyPrefix Description: (Optional) The key prefix you want to use in the custom Amazon S3 bucket. TargetType Description: (Optional) Determines how instances are targeted for local account deployments. Don't specify a value for this parameter if you're deploying to OUs. The valid values are *, InstanceIds, ResourceGroups, and Tags. Use * to target all instances in the account. TargetInstances Description: (Optional) A comma separated list of instance IDs. You must provide a value for this parameter if you specify InstanceIds for the TargetType parameter. TargetTagKey Description: (Required) The tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. TargetTagValue Description: (Required) The value of the tag key assigned to the instances you want to target. You must provide a value for this parameter if you specify Tags for the TargetType parameter. ResourceGroupName Description: (Required) The name of the resource group associated with the instances you want to target. You must provide a value for this parameter if you specify ResourceGroups for the TargetType parameter. TargetAccounts Description: (Optional) The ID of the Amazon Web Services account initiating the configuration deployment. You only need to provide a value for this parameter if you want to deploy the configuration locally. A value must be provided for either TargetAccounts or TargetOrganizationalUnits. TargetOrganizationalUnits Description: (Optional) A comma separated list of organizational units (OUs) you want to deploy the configuration to. TargetRegions Description: (Required) A comma separated list of Amazon Web Services Regions you want to deploy the configuration to."];
      type_: ConfigurationDefinitionInputTypeString.t
        [@ocaml.doc "The type of the Quick Setup configuration."];
      typeVersion: ConfigurationDefinitionInputTypeVersionString.t option
        [@ocaml.doc "The version of the Quick Setup type to use."]}
    let context_ = "ConfigurationDefinitionInput"
    let make ?localDeploymentAdministrationRoleArn =
      fun ?localDeploymentExecutionRoleName ->
        fun ?typeVersion ->
          fun ~parameters ->
            fun ~type_ ->
              fun () ->
                {
                  localDeploymentAdministrationRoleArn;
                  localDeploymentExecutionRoleName;
                  typeVersion;
                  parameters;
                  type_
                }
    let to_value x =
      structure_to_value
        [("LocalDeploymentAdministrationRoleArn",
           (Option.map x.localDeploymentAdministrationRoleArn
              ~f:IAMRoleArn.to_value));
        ("LocalDeploymentExecutionRoleName",
          (Option.map x.localDeploymentExecutionRoleName
             ~f:ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.to_value));
        ("Parameters",
          (Some (ConfigurationParametersMap.to_value x.parameters)));
        ("Type",
          (Some (ConfigurationDefinitionInputTypeString.to_value x.type_)));
        ("TypeVersion",
          (Option.map x.typeVersion
             ~f:ConfigurationDefinitionInputTypeVersionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map ~f:ConfigurationDefinitionInputTypeVersionString.of_xml)
          (Xml.child xml_arg0 "TypeVersion") in
      let type_ =
        ConfigurationDefinitionInputTypeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let parameters =
        ConfigurationParametersMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Parameters") in
      let localDeploymentExecutionRoleName =
        (Option.map
           ~f:ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentExecutionRoleName") in
      let localDeploymentAdministrationRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentAdministrationRoleArn") in
      make ?typeVersion ~type_ ~parameters ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion =
        field_map json__ "TypeVersion"
          ConfigurationDefinitionInputTypeVersionString.of_json in
      let type_ =
        field_map_exn json__ "Type"
          ConfigurationDefinitionInputTypeString.of_json in
      let parameters =
        field_map_exn json__ "Parameters" ConfigurationParametersMap.of_json in
      let localDeploymentExecutionRoleName =
        field_map json__ "LocalDeploymentExecutionRoleName"
          ConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.of_json in
      let localDeploymentAdministrationRoleArn =
        field_map json__ "LocalDeploymentAdministrationRoleArn"
          IAMRoleArn.of_json in
      make ?typeVersion ~type_ ~parameters ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the preferences and options for a configuration definition."]
module UpdateConfigurationManagerInputDescriptionString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationManagerInputDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^.{0,512}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"UpdateConfigurationManagerInputDescriptionString"
        j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationManagerInputManagerArnString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationManagerInputManagerArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws:ssm-quicksetup:([^:]+):(\\d{12}):configuration-manager/[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{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:"UpdateConfigurationManagerInputManagerArnString"
        j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationManagerInputNameString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationManagerInputNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[ A-Za-z0-9._-]{0,120}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"UpdateConfigurationManagerInputNameString" j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationDefinitionInputIdString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationDefinitionInputIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-z0-9-]{1,20}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"UpdateConfigurationDefinitionInputIdString" j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString =
  struct
    type nonrec t = string
    let context_ =
      "UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[\\w+=,.@-]{1,64}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString"
        j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationDefinitionInputManagerArnString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationDefinitionInputManagerArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws:ssm-quicksetup:([^:]+):(\\d{12}):configuration-manager/[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{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:"UpdateConfigurationDefinitionInputManagerArnString" j
    let to_json = simple_to_json to_value
  end
module UpdateConfigurationDefinitionInputTypeVersionString =
  struct
    type nonrec t = string
    let context_ = "UpdateConfigurationDefinitionInputTypeVersionString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^\\d{1,3}(\\.\\d{1,3})?$|^LATEST$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"UpdateConfigurationDefinitionInputTypeVersionString" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = String_.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:String_.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:String_.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsMap =
  struct
    type nonrec t = (TagsMapKeyString.t * TagsMapValueString.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagsMapKeyString.of_string chopped),
                              (TagsMapValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagsMapKeyString.to_value x) |>
                    (fun x ->
                       (TagsMapValueString.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:TagsMapKeyString.of_string
        ~of_json:TagsMapValueString.of_json j
    let to_json v = composed_to_json to_value v
  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
       "The requester has insufficient permissions to perform the operation."]
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
       "Another request is being processed. Wait a few minutes and try again."]
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 error occurred on the server side."]
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 resource couldn't be found. Check the ID or name and try again."]
module Tags =
  struct
    type nonrec t = TagEntry.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:TagEntry.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:TagEntry.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:TagEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module ThrottlingException =
  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 or operation exceeds the maximum allowed request rate per Amazon Web Services account and Amazon Web Services Region."]
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 request is invalid. Verify the values provided for the request parameters are accurate."]
module QuickSetupTypeList =
  struct
    type nonrec t = QuickSetupTypeOutput.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:QuickSetupTypeOutput.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:QuickSetupTypeOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"QuickSetupTypeList"
        ~of_json:QuickSetupTypeOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationsList =
  struct
    type nonrec t = ConfigurationSummary.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:ConfigurationSummary.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:ConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationsList"
        ~of_json:ConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module FiltersList =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j =
      list_of_json ~kind:"FiltersList" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListConfigurationsInputConfigurationDefinitionIdString =
  struct
    type nonrec t = string
    let context_ = "ListConfigurationsInputConfigurationDefinitionIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-z0-9-]{1,20}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"ListConfigurationsInputConfigurationDefinitionIdString" j
    let to_json = simple_to_json to_value
  end
module ListConfigurationsInputManagerArnString =
  struct
    type nonrec t = string
    let context_ = "ListConfigurationsInputManagerArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws:ssm-quicksetup:([^:]+):(\\d{12}):configuration-manager/[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{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:"ListConfigurationsInputManagerArnString" j
    let to_json = simple_to_json to_value
  end
module ListConfigurationsInputMaxItemsInteger =
  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 ListConfigurationsInputMaxItemsInteger"
           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 ListConfigurationsInputStartingTokenString =
  struct
    type nonrec t = string
    let context_ = "ListConfigurationsInputStartingTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9+=@_|\\/\\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:"ListConfigurationsInputStartingTokenString" j
    let to_json = simple_to_json to_value
  end
module ConfigurationManagerList =
  struct
    type nonrec t = ConfigurationManagerSummary.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:ConfigurationManagerSummary.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:ConfigurationManagerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationManagerList"
        ~of_json:ConfigurationManagerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListConfigurationManagersInputMaxItemsInteger =
  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 ListConfigurationManagersInputMaxItemsInteger"
           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 ListConfigurationManagersInputStartingTokenString =
  struct
    type nonrec t = string
    let context_ = "ListConfigurationManagersInputStartingTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z0-9+=@_\\/\\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:"ListConfigurationManagersInputStartingTokenString" j
    let to_json = simple_to_json to_value
  end
module ServiceSettings =
  struct
    type nonrec t =
      {
      explorerEnablingRoleArn: IAMRoleArn.t option
        [@ocaml.doc "The IAM role used to enable Explorer."]}
    let make ?explorerEnablingRoleArn = fun () -> { explorerEnablingRoleArn }
    let to_value x =
      structure_to_value
        [("ExplorerEnablingRoleArn",
           (Option.map x.explorerEnablingRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let explorerEnablingRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml)
          (Xml.child xml_arg0 "ExplorerEnablingRoleArn") in
      make ?explorerEnablingRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let explorerEnablingRoleArn =
        field_map json__ "ExplorerEnablingRoleArn" IAMRoleArn.of_json in
      make ?explorerEnablingRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Settings configured for Quick Setup."]
module ConfigurationDefinitionsList =
  struct
    type nonrec t = ConfigurationDefinition.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:ConfigurationDefinition.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:ConfigurationDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationDefinitionsList"
        ~of_json:ConfigurationDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetConfigurationManagerInputManagerArnString =
  struct
    type nonrec t = string
    let context_ = "GetConfigurationManagerInputManagerArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^arn:aws:ssm-quicksetup:([^:]+):(\\d{12}):configuration-manager/[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{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:"GetConfigurationManagerInputManagerArnString" j
    let to_json = simple_to_json to_value
  end
module GetConfigurationInputConfigurationIdString =
  struct
    type nonrec t = string
    let context_ = "GetConfigurationInputConfigurationIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-zA-Z0-9-_/:]{1,100}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GetConfigurationInputConfigurationIdString" j
    let to_json = simple_to_json to_value
  end
module DeleteConfigurationManagerInputManagerArnString =
  struct
    type nonrec t = string
    let context_ = "DeleteConfigurationManagerInputManagerArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws:ssm-quicksetup:([^:]+):(\\d{12}):configuration-manager/[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{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:"DeleteConfigurationManagerInputManagerArnString"
        j
    let to_json = simple_to_json to_value
  end
module ConfigurationDefinitionsInputList =
  struct
    type nonrec t = ConfigurationDefinitionInput.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:ConfigurationDefinitionInput.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:ConfigurationDefinitionInput.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationDefinitionsInputList"
        ~of_json:ConfigurationDefinitionInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateConfigurationManagerInputDescriptionString =
  struct
    type nonrec t = string
    let context_ = "CreateConfigurationManagerInputDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^.{0,512}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateConfigurationManagerInputDescriptionString"
        j
    let to_json = simple_to_json to_value
  end
module CreateConfigurationManagerInputNameString =
  struct
    type nonrec t = string
    let context_ = "CreateConfigurationManagerInputNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[ A-Za-z0-9._-]{0,120}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateConfigurationManagerInputNameString" j
    let to_json = simple_to_json to_value
  end
module UpdateServiceSettingsInput =
  struct
    type nonrec t =
      {
      explorerEnablingRoleArn: IAMRoleArn.t option
        [@ocaml.doc "The IAM role used to enable Explorer."]}
    let make ?explorerEnablingRoleArn = fun () -> { explorerEnablingRoleArn }
    let to_value x =
      structure_to_value
        [("ExplorerEnablingRoleArn",
           (Option.map x.explorerEnablingRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let explorerEnablingRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml)
          (Xml.child xml_arg0 "ExplorerEnablingRoleArn") in
      make ?explorerEnablingRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let explorerEnablingRoleArn =
        field_map json__ "ExplorerEnablingRoleArn" IAMRoleArn.of_json in
      make ?explorerEnablingRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates settings configured for Quick Setup."]
module UpdateConfigurationManagerInput =
  struct
    type nonrec t =
      {
      description: UpdateConfigurationManagerInputDescriptionString.t option
        [@ocaml.doc "A description of the configuration manager."];
      managerArn: UpdateConfigurationManagerInputManagerArnString.t
        [@ocaml.doc "The ARN of the configuration manager."];
      name: UpdateConfigurationManagerInputNameString.t option
        [@ocaml.doc "A name for the configuration manager."]}
    let context_ = "UpdateConfigurationManagerInput"
    let make ?description =
      fun ?name ->
        fun ~managerArn -> fun () -> { description; name; managerArn }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description
              ~f:UpdateConfigurationManagerInputDescriptionString.to_value));
        ("ManagerArn",
          (Some
             (UpdateConfigurationManagerInputManagerArnString.to_value
                x.managerArn)));
        ("Name",
          (Option.map x.name
             ~f:UpdateConfigurationManagerInputNameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:UpdateConfigurationManagerInputNameString.of_xml)
          (Xml.child xml_arg0 "Name") in
      let managerArn =
        UpdateConfigurationManagerInputManagerArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagerArn") in
      let description =
        (Option.map
           ~f:UpdateConfigurationManagerInputDescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?name ~managerArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map json__ "Name"
          UpdateConfigurationManagerInputNameString.of_json in
      let managerArn =
        field_map_exn json__ "ManagerArn"
          UpdateConfigurationManagerInputManagerArnString.of_json in
      let description =
        field_map json__ "Description"
          UpdateConfigurationManagerInputDescriptionString.of_json in
      make ?name ~managerArn ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Quick Setup configuration manager."]
module UpdateConfigurationDefinitionInput =
  struct
    type nonrec t =
      {
      id: UpdateConfigurationDefinitionInputIdString.t
        [@ocaml.doc
          "The ID of the configuration definition you want to update."];
      localDeploymentAdministrationRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role used to administrate local configuration deployments."];
      localDeploymentExecutionRoleName:
        UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.t
          option
        [@ocaml.doc
          "The name of the IAM role used to deploy local configurations."];
      managerArn: UpdateConfigurationDefinitionInputManagerArnString.t
        [@ocaml.doc
          "The ARN of the configuration manager associated with the definition to update."];
      parameters: ConfigurationParametersMap.t option
        [@ocaml.doc "The parameters for the configuration definition type."];
      typeVersion:
        UpdateConfigurationDefinitionInputTypeVersionString.t option
        [@ocaml.doc "The version of the Quick Setup type to use."]}
    let context_ = "UpdateConfigurationDefinitionInput"
    let make ?localDeploymentAdministrationRoleArn =
      fun ?localDeploymentExecutionRoleName ->
        fun ?parameters ->
          fun ?typeVersion ->
            fun ~id ->
              fun ~managerArn ->
                fun () ->
                  {
                    localDeploymentAdministrationRoleArn;
                    localDeploymentExecutionRoleName;
                    parameters;
                    typeVersion;
                    id;
                    managerArn
                  }
    let to_value x =
      structure_to_value
        [("Id",
           (Some (UpdateConfigurationDefinitionInputIdString.to_value x.id)));
        ("LocalDeploymentAdministrationRoleArn",
          (Option.map x.localDeploymentAdministrationRoleArn
             ~f:IAMRoleArn.to_value));
        ("LocalDeploymentExecutionRoleName",
          (Option.map x.localDeploymentExecutionRoleName
             ~f:UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.to_value));
        ("ManagerArn",
          (Some
             (UpdateConfigurationDefinitionInputManagerArnString.to_value
                x.managerArn)));
        ("Parameters",
          (Option.map x.parameters ~f:ConfigurationParametersMap.to_value));
        ("TypeVersion",
          (Option.map x.typeVersion
             ~f:UpdateConfigurationDefinitionInputTypeVersionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map
           ~f:UpdateConfigurationDefinitionInputTypeVersionString.of_xml)
          (Xml.child xml_arg0 "TypeVersion") in
      let parameters =
        (Option.map ~f:ConfigurationParametersMap.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let managerArn =
        UpdateConfigurationDefinitionInputManagerArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagerArn") in
      let localDeploymentExecutionRoleName =
        (Option.map
           ~f:UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentExecutionRoleName") in
      let localDeploymentAdministrationRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml)
          (Xml.child xml_arg0 "LocalDeploymentAdministrationRoleArn") in
      let id =
        UpdateConfigurationDefinitionInputIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?typeVersion ?parameters ~managerArn
        ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion =
        field_map json__ "TypeVersion"
          UpdateConfigurationDefinitionInputTypeVersionString.of_json in
      let parameters =
        field_map json__ "Parameters" ConfigurationParametersMap.of_json in
      let managerArn =
        field_map_exn json__ "ManagerArn"
          UpdateConfigurationDefinitionInputManagerArnString.of_json in
      let localDeploymentExecutionRoleName =
        field_map json__ "LocalDeploymentExecutionRoleName"
          UpdateConfigurationDefinitionInputLocalDeploymentExecutionRoleNameString.of_json in
      let localDeploymentAdministrationRoleArn =
        field_map json__ "LocalDeploymentAdministrationRoleArn"
          IAMRoleArn.of_json in
      let id =
        field_map_exn json__ "Id"
          UpdateConfigurationDefinitionInputIdString.of_json in
      make ?typeVersion ?parameters ~managerArn
        ?localDeploymentExecutionRoleName
        ?localDeploymentAdministrationRoleArn ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Quick Setup configuration definition."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "The ARN of the resource to remove tags from."];
      tagKeys: TagKeys.t
        [@ocaml.doc "The keys of the tags to remove from the resource."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.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 =
        String_.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" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t [@ocaml.doc "The ARN of the resource to tag."];
      tags: TagsMap.t
        [@ocaml.doc "Key-value pairs of metadata to assign to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("Tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        String_.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" TagsMap.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns key-value pairs of metadata to Amazon Web Services resources."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc "Key-value pairs of metadata assigned to the resource."]}
    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 ?tags = fun () -> { tags }
    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 [("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns tags assigned to the resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "The ARN of the resource the tag is assigned to."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.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" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns tags assigned to the resource."]
module ListQuickSetupTypesOutput =
  struct
    type nonrec t =
      {
      quickSetupTypeList: QuickSetupTypeList.t option
        [@ocaml.doc "An array of Quick Setup types."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?quickSetupTypeList = fun () -> { quickSetupTypeList }
    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)
      | 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)
      | 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))]
      | `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
        [("QuickSetupTypeList",
           (Option.map x.quickSetupTypeList ~f:QuickSetupTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quickSetupTypeList =
        (Option.map ~f:QuickSetupTypeList.of_xml)
          (Xml.child xml_arg0 "QuickSetupTypeList") in
      make ?quickSetupTypeList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quickSetupTypeList =
        field_map json__ "QuickSetupTypeList" QuickSetupTypeList.of_json in
      make ?quickSetupTypeList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the available Quick Setup types."]
module ListConfigurationsOutput =
  struct
    type nonrec t =
      {
      configurationsList: ConfigurationsList.t option
        [@ocaml.doc "An array of configurations."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token to use when requesting the next set of items. If there are no additional items to return, the string is empty."]}
    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 ?configurationsList =
      fun ?nextToken -> fun () -> { configurationsList; 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
        [("ConfigurationsList",
           (Option.map x.configurationsList ~f:ConfigurationsList.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 configurationsList =
        (Option.map ~f:ConfigurationsList.of_xml)
          (Xml.child xml_arg0 "ConfigurationsList") in
      make ?nextToken ?configurationsList ()
    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 configurationsList =
        field_map json__ "ConfigurationsList" ConfigurationsList.of_json in
      make ?nextToken ?configurationsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configurations deployed by Quick Setup in the requesting Amazon Web Services account and Amazon Web Services Region."]
module ListConfigurationsInput =
  struct
    type nonrec t =
      {
      configurationDefinitionId:
        ListConfigurationsInputConfigurationDefinitionIdString.t option
        [@ocaml.doc "The ID of the configuration definition."];
      filters: FiltersList.t option
        [@ocaml.doc "Filters the results returned by the request."];
      managerArn: ListConfigurationsInputManagerArnString.t option
        [@ocaml.doc "The ARN of the configuration manager."];
      maxItems: ListConfigurationsInputMaxItemsInteger.t option
        [@ocaml.doc
          "Specifies the maximum number of configurations that are returned by the request."];
      startingToken: ListConfigurationsInputStartingTokenString.t option
        [@ocaml.doc
          "The token to use when requesting a specific set of items from a list."]}
    let make ?configurationDefinitionId =
      fun ?filters ->
        fun ?managerArn ->
          fun ?maxItems ->
            fun ?startingToken ->
              fun () ->
                {
                  configurationDefinitionId;
                  filters;
                  managerArn;
                  maxItems;
                  startingToken
                }
    let to_value x =
      structure_to_value
        [("ConfigurationDefinitionId",
           (Option.map x.configurationDefinitionId
              ~f:ListConfigurationsInputConfigurationDefinitionIdString.to_value));
        ("Filters", (Option.map x.filters ~f:FiltersList.to_value));
        ("ManagerArn",
          (Option.map x.managerArn
             ~f:ListConfigurationsInputManagerArnString.to_value));
        ("MaxItems",
          (Option.map x.maxItems
             ~f:ListConfigurationsInputMaxItemsInteger.to_value));
        ("StartingToken",
          (Option.map x.startingToken
             ~f:ListConfigurationsInputStartingTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startingToken =
        (Option.map ~f:ListConfigurationsInputStartingTokenString.of_xml)
          (Xml.child xml_arg0 "StartingToken") in
      let maxItems =
        (Option.map ~f:ListConfigurationsInputMaxItemsInteger.of_xml)
          (Xml.child xml_arg0 "MaxItems") in
      let managerArn =
        (Option.map ~f:ListConfigurationsInputManagerArnString.of_xml)
          (Xml.child xml_arg0 "ManagerArn") in
      let filters =
        (Option.map ~f:FiltersList.of_xml) (Xml.child xml_arg0 "Filters") in
      let configurationDefinitionId =
        (Option.map
           ~f:ListConfigurationsInputConfigurationDefinitionIdString.of_xml)
          (Xml.child xml_arg0 "ConfigurationDefinitionId") in
      make ?startingToken ?maxItems ?managerArn ?filters
        ?configurationDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startingToken =
        field_map json__ "StartingToken"
          ListConfigurationsInputStartingTokenString.of_json in
      let maxItems =
        field_map json__ "MaxItems"
          ListConfigurationsInputMaxItemsInteger.of_json in
      let managerArn =
        field_map json__ "ManagerArn"
          ListConfigurationsInputManagerArnString.of_json in
      let filters = field_map json__ "Filters" FiltersList.of_json in
      let configurationDefinitionId =
        field_map json__ "ConfigurationDefinitionId"
          ListConfigurationsInputConfigurationDefinitionIdString.of_json in
      make ?startingToken ?maxItems ?managerArn ?filters
        ?configurationDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configurations deployed by Quick Setup in the requesting Amazon Web Services account and Amazon Web Services Region."]
module ListConfigurationManagersOutput =
  struct
    type nonrec t =
      {
      configurationManagersList: ConfigurationManagerList.t option
        [@ocaml.doc "The configuration managers returned by the request."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token to use when requesting the next set of configuration managers. If there are no additional operations to return, the string is empty."]}
    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 ?configurationManagersList =
      fun ?nextToken -> fun () -> { configurationManagersList; nextToken }
    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
        [("ConfigurationManagersList",
           (Option.map x.configurationManagersList
              ~f:ConfigurationManagerList.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 configurationManagersList =
        (Option.map ~f:ConfigurationManagerList.of_xml)
          (Xml.child xml_arg0 "ConfigurationManagersList") in
      make ?nextToken ?configurationManagersList ()
    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 configurationManagersList =
        field_map json__ "ConfigurationManagersList"
          ConfigurationManagerList.of_json in
      make ?nextToken ?configurationManagersList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns Quick Setup configuration managers."]
module ListConfigurationManagersInput =
  struct
    type nonrec t =
      {
      filters: FiltersList.t option
        [@ocaml.doc "Filters the results returned by the request."];
      maxItems: ListConfigurationManagersInputMaxItemsInteger.t option
        [@ocaml.doc
          "Specifies the maximum number of configuration managers that are returned by the request."];
      startingToken:
        ListConfigurationManagersInputStartingTokenString.t option
        [@ocaml.doc
          "The token to use when requesting a specific set of items from a list."]}
    let make ?filters =
      fun ?maxItems ->
        fun ?startingToken -> fun () -> { filters; maxItems; startingToken }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:FiltersList.to_value));
        ("MaxItems",
          (Option.map x.maxItems
             ~f:ListConfigurationManagersInputMaxItemsInteger.to_value));
        ("StartingToken",
          (Option.map x.startingToken
             ~f:ListConfigurationManagersInputStartingTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startingToken =
        (Option.map
           ~f:ListConfigurationManagersInputStartingTokenString.of_xml)
          (Xml.child xml_arg0 "StartingToken") in
      let maxItems =
        (Option.map ~f:ListConfigurationManagersInputMaxItemsInteger.of_xml)
          (Xml.child xml_arg0 "MaxItems") in
      let filters =
        (Option.map ~f:FiltersList.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?startingToken ?maxItems ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startingToken =
        field_map json__ "StartingToken"
          ListConfigurationManagersInputStartingTokenString.of_json in
      let maxItems =
        field_map json__ "MaxItems"
          ListConfigurationManagersInputMaxItemsInteger.of_json in
      let filters = field_map json__ "Filters" FiltersList.of_json in
      make ?startingToken ?maxItems ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns Quick Setup configuration managers."]
module GetServiceSettingsOutput =
  struct
    type nonrec t =
      {
      serviceSettings: ServiceSettings.t option
        [@ocaml.doc
          "Returns details about the settings for Quick Setup in the requesting Amazon Web Services account and Amazon Web Services Region."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceSettings = fun () -> { serviceSettings }
    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)
      | 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)
      | 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))]
      | `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
        [("ServiceSettings",
           (Option.map x.serviceSettings ~f:ServiceSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceSettings =
        (Option.map ~f:ServiceSettings.of_xml)
          (Xml.child xml_arg0 "ServiceSettings") in
      make ?serviceSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceSettings =
        field_map json__ "ServiceSettings" ServiceSettings.of_json in
      make ?serviceSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns settings configured for Quick Setup in the requesting Amazon Web Services account and Amazon Web Services Region."]
module GetConfigurationOutput =
  struct
    type nonrec t =
      {
      account: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account where the configuration was deployed."];
      configurationDefinitionId: String_.t option
        [@ocaml.doc "The ID of the configuration definition."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The datetime stamp when the configuration manager was created."];
      id: String_.t option
        [@ocaml.doc "A service generated identifier for the configuration."];
      lastModifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The datetime stamp when the configuration manager was last updated."];
      managerArn: String_.t option
        [@ocaml.doc "The ARN of the configuration manager."];
      parameters: ConfigurationParametersMap.t option
        [@ocaml.doc "The parameters for the configuration definition type."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the configuration was deployed."];
      statusSummaries: StatusSummariesList.t option
        [@ocaml.doc
          "A summary of the state of the configuration manager. This includes deployment statuses, association statuses, drift statuses, health checks, and more."];
      type_: String_.t option
        [@ocaml.doc "The type of the Quick Setup configuration."];
      typeVersion: String_.t option
        [@ocaml.doc "The version of the Quick Setup type used."]}
    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 ?account =
      fun ?configurationDefinitionId ->
        fun ?createdAt ->
          fun ?id ->
            fun ?lastModifiedAt ->
              fun ?managerArn ->
                fun ?parameters ->
                  fun ?region ->
                    fun ?statusSummaries ->
                      fun ?type_ ->
                        fun ?typeVersion ->
                          fun () ->
                            {
                              account;
                              configurationDefinitionId;
                              createdAt;
                              id;
                              lastModifiedAt;
                              managerArn;
                              parameters;
                              region;
                              statusSummaries;
                              type_;
                              typeVersion
                            }
    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
        [("Account", (Option.map x.account ~f:String_.to_value));
        ("ConfigurationDefinitionId",
          (Option.map x.configurationDefinitionId ~f:String_.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("Id", (Option.map x.id ~f:String_.to_value));
        ("LastModifiedAt",
          (Option.map x.lastModifiedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("ManagerArn", (Option.map x.managerArn ~f:String_.to_value));
        ("Parameters",
          (Option.map x.parameters ~f:ConfigurationParametersMap.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("StatusSummaries",
          (Option.map x.statusSummaries ~f:StatusSummariesList.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value));
        ("TypeVersion", (Option.map x.typeVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TypeVersion") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let statusSummaries =
        (Option.map ~f:StatusSummariesList.of_xml)
          (Xml.child xml_arg0 "StatusSummaries") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let parameters =
        (Option.map ~f:ConfigurationParametersMap.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let managerArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagerArn") in
      let lastModifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastModifiedAt") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let configurationDefinitionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationDefinitionId") in
      let account =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Account") in
      make ?typeVersion ?type_ ?statusSummaries ?region ?parameters
        ?managerArn ?lastModifiedAt ?id ?createdAt ?configurationDefinitionId
        ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeVersion = field_map json__ "TypeVersion" String_.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      let statusSummaries =
        field_map json__ "StatusSummaries" StatusSummariesList.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let parameters =
        field_map json__ "Parameters" ConfigurationParametersMap.of_json in
      let managerArn = field_map json__ "ManagerArn" String_.of_json in
      let lastModifiedAt =
        field_map json__ "LastModifiedAt"
          SyntheticTimestamp_date_time.of_json in
      let id = field_map json__ "Id" String_.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let configurationDefinitionId =
        field_map json__ "ConfigurationDefinitionId" String_.of_json in
      let account = field_map json__ "Account" String_.of_json in
      make ?typeVersion ?type_ ?statusSummaries ?region ?parameters
        ?managerArn ?lastModifiedAt ?id ?createdAt ?configurationDefinitionId
        ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details about the specified configuration."]
module GetConfigurationManagerOutput =
  struct
    type nonrec t =
      {
      configurationDefinitions: ConfigurationDefinitionsList.t option
        [@ocaml.doc
          "The configuration definitions association with the configuration manager."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The datetime stamp when the configuration manager was created."];
      description: String_.t option
        [@ocaml.doc "The description of the configuration manager."];
      lastModifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The datetime stamp when the configuration manager was last updated."];
      managerArn: String_.t option
        [@ocaml.doc "The ARN of the configuration manager."];
      name: String_.t option
        [@ocaml.doc "The name of the configuration manager."];
      statusSummaries: StatusSummariesList.t option
        [@ocaml.doc
          "A summary of the state of the configuration manager. This includes deployment statuses, association statuses, drift statuses, health checks, and more."];
      tags: TagsMap.t option
        [@ocaml.doc
          "Key-value pairs of metadata to assign to the configuration manager."]}
    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 ?configurationDefinitions =
      fun ?createdAt ->
        fun ?description ->
          fun ?lastModifiedAt ->
            fun ?managerArn ->
              fun ?name ->
                fun ?statusSummaries ->
                  fun ?tags ->
                    fun () ->
                      {
                        configurationDefinitions;
                        createdAt;
                        description;
                        lastModifiedAt;
                        managerArn;
                        name;
                        statusSummaries;
                        tags
                      }
    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
        [("ConfigurationDefinitions",
           (Option.map x.configurationDefinitions
              ~f:ConfigurationDefinitionsList.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("LastModifiedAt",
          (Option.map x.lastModifiedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("ManagerArn", (Option.map x.managerArn ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("StatusSummaries",
          (Option.map x.statusSummaries ~f:StatusSummariesList.to_value));
        ("Tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let statusSummaries =
        (Option.map ~f:StatusSummariesList.of_xml)
          (Xml.child xml_arg0 "StatusSummaries") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let managerArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagerArn") in
      let lastModifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastModifiedAt") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let configurationDefinitions =
        (Option.map ~f:ConfigurationDefinitionsList.of_xml)
          (Xml.child xml_arg0 "ConfigurationDefinitions") in
      make ?tags ?statusSummaries ?name ?managerArn ?lastModifiedAt
        ?description ?createdAt ?configurationDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagsMap.of_json in
      let statusSummaries =
        field_map json__ "StatusSummaries" StatusSummariesList.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let managerArn = field_map json__ "ManagerArn" String_.of_json in
      let lastModifiedAt =
        field_map json__ "LastModifiedAt"
          SyntheticTimestamp_date_time.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let configurationDefinitions =
        field_map json__ "ConfigurationDefinitions"
          ConfigurationDefinitionsList.of_json in
      make ?tags ?statusSummaries ?name ?managerArn ?lastModifiedAt
        ?description ?createdAt ?configurationDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a configuration manager."]
module GetConfigurationManagerInput =
  struct
    type nonrec t =
      {
      managerArn: GetConfigurationManagerInputManagerArnString.t
        [@ocaml.doc "The ARN of the configuration manager."]}
    let context_ = "GetConfigurationManagerInput"
    let make ~managerArn = fun () -> { managerArn }
    let to_value x =
      structure_to_value
        [("ManagerArn",
           (Some
              (GetConfigurationManagerInputManagerArnString.to_value
                 x.managerArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managerArn =
        GetConfigurationManagerInputManagerArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagerArn") in
      make ~managerArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managerArn =
        field_map_exn json__ "ManagerArn"
          GetConfigurationManagerInputManagerArnString.of_json in
      make ~managerArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a configuration manager."]
module GetConfigurationInput =
  struct
    type nonrec t =
      {
      configurationId: GetConfigurationInputConfigurationIdString.t
        [@ocaml.doc "A service generated identifier for the configuration."]}
    let context_ = "GetConfigurationInput"
    let make ~configurationId = fun () -> { configurationId }
    let to_value x =
      structure_to_value
        [("ConfigurationId",
           (Some
              (GetConfigurationInputConfigurationIdString.to_value
                 x.configurationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationId =
        GetConfigurationInputConfigurationIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationId") in
      make ~configurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationId =
        field_map_exn json__ "ConfigurationId"
          GetConfigurationInputConfigurationIdString.of_json in
      make ~configurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details about the specified configuration."]
module DeleteConfigurationManagerInput =
  struct
    type nonrec t =
      {
      managerArn: DeleteConfigurationManagerInputManagerArnString.t
        [@ocaml.doc "The ID of the configuration manager."]}
    let context_ = "DeleteConfigurationManagerInput"
    let make ~managerArn = fun () -> { managerArn }
    let to_value x =
      structure_to_value
        [("ManagerArn",
           (Some
              (DeleteConfigurationManagerInputManagerArnString.to_value
                 x.managerArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managerArn =
        DeleteConfigurationManagerInputManagerArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagerArn") in
      make ~managerArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managerArn =
        field_map_exn json__ "ManagerArn"
          DeleteConfigurationManagerInputManagerArnString.of_json in
      make ~managerArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a configuration manager."]
module CreateConfigurationManagerOutput =
  struct
    type nonrec t =
      {
      managerArn: String_.t option
        [@ocaml.doc "The ARN for the newly created configuration manager."]}
    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 ?managerArn = fun () -> { managerArn }
    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
        [("ManagerArn", (Option.map x.managerArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managerArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagerArn") in
      make ?managerArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managerArn = field_map json__ "ManagerArn" String_.of_json in
      make ?managerArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Quick Setup configuration manager resource. This object is a collection of desired state configurations for multiple configuration definitions and summaries describing the deployments of those definitions."]
module CreateConfigurationManagerInput =
  struct
    type nonrec t =
      {
      configurationDefinitions: ConfigurationDefinitionsInputList.t
        [@ocaml.doc
          "The definition of the Quick Setup configuration that the configuration manager deploys."];
      description: CreateConfigurationManagerInputDescriptionString.t option
        [@ocaml.doc "A description of the configuration manager."];
      name: CreateConfigurationManagerInputNameString.t option
        [@ocaml.doc "A name for the configuration manager."];
      tags: TagsMap.t option
        [@ocaml.doc
          "Key-value pairs of metadata to assign to the configuration manager."]}
    let context_ = "CreateConfigurationManagerInput"
    let make ?description =
      fun ?name ->
        fun ?tags ->
          fun ~configurationDefinitions ->
            fun () -> { description; name; tags; configurationDefinitions }
    let to_value x =
      structure_to_value
        [("ConfigurationDefinitions",
           (Some
              (ConfigurationDefinitionsInputList.to_value
                 x.configurationDefinitions)));
        ("Description",
          (Option.map x.description
             ~f:CreateConfigurationManagerInputDescriptionString.to_value));
        ("Name",
          (Option.map x.name
             ~f:CreateConfigurationManagerInputNameString.to_value));
        ("Tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let name =
        (Option.map ~f:CreateConfigurationManagerInputNameString.of_xml)
          (Xml.child xml_arg0 "Name") in
      let description =
        (Option.map
           ~f:CreateConfigurationManagerInputDescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let configurationDefinitions =
        ConfigurationDefinitionsInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConfigurationDefinitions") in
      make ?tags ?name ?description ~configurationDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagsMap.of_json in
      let name =
        field_map json__ "Name"
          CreateConfigurationManagerInputNameString.of_json in
      let description =
        field_map json__ "Description"
          CreateConfigurationManagerInputDescriptionString.of_json in
      let configurationDefinitions =
        field_map_exn json__ "ConfigurationDefinitions"
          ConfigurationDefinitionsInputList.of_json in
      make ?tags ?name ?description ~configurationDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Quick Setup configuration manager resource. This object is a collection of desired state configurations for multiple configuration definitions and summaries describing the deployments of those definitions."]