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.servicecatalog_appregistry
let apiVersion = "2020-06-24"
let endpointPrefix = "servicecatalog-appregistry"
let serviceFullName = "AWS Service Catalog App Registry"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "AppRegistry"
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 AssociationOption =
  struct
    type nonrec t =
      | APPLY_APPLICATION_TAG 
      | SKIP_APPLICATION_TAG 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPLY_APPLICATION_TAG -> "APPLY_APPLICATION_TAG"
      | SKIP_APPLICATION_TAG -> "SKIP_APPLICATION_TAG"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPLY_APPLICATION_TAG" -> APPLY_APPLICATION_TAG
      | "SKIP_APPLICATION_TAG" -> SKIP_APPLICATION_TAG
      | 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 AssociationOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationOption" j)
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () ->
                check_pattern i ~pattern:"[\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws[a-zA-Z0-9-]*):([a-zA-Z0-9\\-])+:([a-z]{2}(-gov)?-[a-z]+-\\d{1})?:(\\d{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:"Arn" j
    let to_json = simple_to_json to_value
  end
module ResourceItemType =
  struct
    type nonrec t = string
    let context_ = "ResourceItemType"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"AWS::[a-zA-Z0-9]+::\\w+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceItemType" j
    let to_json = simple_to_json to_value
  end
module ResourcesListItemErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ResourcesListItemErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourcesListItemErrorMessage" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ResourceGroupState =
  struct
    type nonrec t =
      | CREATING 
      | CREATE_COMPLETE 
      | CREATE_FAILED 
      | UPDATING 
      | UPDATE_COMPLETE 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | CREATE_FAILED -> "CREATE_FAILED"
      | UPDATING -> "UPDATING"
      | UPDATE_COMPLETE -> "UPDATE_COMPLETE"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "CREATE_FAILED" -> CREATE_FAILED
      | "UPDATING" -> UPDATING
      | "UPDATE_COMPLETE" -> UPDATE_COMPLETE
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResourceGroupState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceGroupState" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:\\/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagKeyConfig =
  struct
    type nonrec t = string
    let context_ = "TagKeyConfig"
    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:"^(?!\\s+$)[\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKeyConfig" j
    let to_json = simple_to_json to_value
  end
module AttributeGroupArn =
  struct
    type nonrec t = string
    let context_ = "AttributeGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[-a-z]*:servicecatalog:[a-z]{2}(-gov)?-[a-z]+-\\d:\\d{12}:/attribute-groups/[-.\\w]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttributeGroupArn" j
    let to_json = simple_to_json to_value
  end
module AttributeGroupId =
  struct
    type nonrec t = string
    let context_ = "AttributeGroupId"
    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:"[-.\\w]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttributeGroupId" j
    let to_json = simple_to_json to_value
  end
module CreatedBy =
  struct
    type nonrec t = string
    let context_ = "CreatedBy"
    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-z0-9-]+\\.)+(aws\\.internal|amazonaws\\.com(\\.cn)?)$")));
        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:"CreatedBy" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module Name =
  struct
    type nonrec t = string
    let context_ = "Name"
    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:"[-.\\w]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Name" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Options =
  struct
    type nonrec t = AssociationOption.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:AssociationOption.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:AssociationOption.of_xml)
    let of_json j =
      list_of_json ~kind:"Options" ~of_json:AssociationOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceDetails =
  struct
    type nonrec t =
      {
      tagValue: TagValue.t option [@ocaml.doc "The value of the tag."]}
    let make ?tagValue = fun () -> { tagValue }
    let to_value x =
      structure_to_value
        [("tagValue", (Option.map x.tagValue ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagValue =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "tagValue") in
      make ?tagValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagValue = field_map json__ "tagValue" TagValue.of_json in
      make ?tagValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details related to the resource."]
module ResourceSpecifier =
  struct
    type nonrec t = string
    let context_ = "ResourceSpecifier"
    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:"\\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:"ResourceSpecifier" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t =
      | CFN_STACK 
      | RESOURCE_TAG_VALUE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CFN_STACK -> "CFN_STACK"
      | RESOURCE_TAG_VALUE -> "RESOURCE_TAG_VALUE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CFN_STACK" -> CFN_STACK
      | "RESOURCE_TAG_VALUE" -> RESOURCE_TAG_VALUE
      | 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 ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module ApplicationArn =
  struct
    type nonrec t = string
    let context_ = "ApplicationArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[-a-z]*:servicecatalog:[a-z]{2}(-gov)?-[a-z]+-\\d:\\d{12}:/applications/[a-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:"ApplicationArn" j
    let to_json = simple_to_json to_value
  end
module ApplicationId =
  struct
    type nonrec t = string
    let context_ = "ApplicationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:26) >>=
             (fun () ->
                (check_string_max i ~max:26) >>=
                  (fun () -> check_pattern i ~pattern:"[a-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:"ApplicationId" j
    let to_json = simple_to_json to_value
  end
module ResourcesListItem =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the resource."];
      errorMessage: ResourcesListItemErrorMessage.t option
        [@ocaml.doc "The message returned if the call fails."];
      status: String_.t option [@ocaml.doc "The status of the list item."];
      resourceType: ResourceItemType.t option
        [@ocaml.doc
          "Provides information about the AppRegistry resource type."]}
    let make ?resourceArn =
      fun ?errorMessage ->
        fun ?status ->
          fun ?resourceType ->
            fun () -> { resourceArn; errorMessage; status; resourceType }
    let to_value x =
      structure_to_value
        [("resourceArn", (Option.map x.resourceArn ~f:Arn.to_value));
        ("errorMessage",
          (Option.map x.errorMessage
             ~f:ResourcesListItemErrorMessage.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceItemType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceItemType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let errorMessage =
        (Option.map ~f:ResourcesListItemErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let resourceArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      make ?resourceType ?status ?errorMessage ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType =
        field_map json__ "resourceType" ResourceItemType.of_json in
      let status = field_map json__ "status" String_.of_json in
      let errorMessage =
        field_map json__ "errorMessage" ResourcesListItemErrorMessage.of_json in
      let resourceArn = field_map json__ "resourceArn" Arn.of_json in
      make ?resourceType ?status ?errorMessage ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource in a list of resources."]
module ResourceGroup =
  struct
    type nonrec t =
      {
      state: ResourceGroupState.t option
        [@ocaml.doc
          "The state of the propagation process for the resource group. The states includes: CREATING if the resource group is in the process of being created. CREATE_COMPLETE if the resource group was created successfully. CREATE_FAILED if the resource group failed to be created. UPDATING if the resource group is in the process of being updated. UPDATE_COMPLETE if the resource group updated successfully. UPDATE_FAILED if the resource group could not update successfully."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the resource group."];
      errorMessage: String_.t option
        [@ocaml.doc
          "The error message that generates when the propagation process for the resource group fails."]}
    let make ?state =
      fun ?arn -> fun ?errorMessage -> fun () -> { state; arn; errorMessage }
    let to_value x =
      structure_to_value
        [("state", (Option.map x.state ~f:ResourceGroupState.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let state =
        (Option.map ~f:ResourceGroupState.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?errorMessage ?arn ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let state = field_map json__ "state" ResourceGroupState.of_json in
      make ?errorMessage ?arn ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The information about the resource group integration."]
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationTagDefinition =
  struct
    type nonrec t = (TagKey.t * TagValue.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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagQueryConfiguration =
  struct
    type nonrec t =
      {
      tagKey: TagKeyConfig.t option
        [@ocaml.doc
          "Condition in the IAM policy that associates resources to an application."]}
    let make ?tagKey = fun () -> { tagKey }
    let to_value x =
      structure_to_value
        [("tagKey", (Option.map x.tagKey ~f:TagKeyConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKey =
        (Option.map ~f:TagKeyConfig.of_xml) (Xml.child xml_arg0 "tagKey") in
      make ?tagKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKey = field_map json__ "tagKey" TagKeyConfig.of_json in
      make ?tagKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition of tagQuery. Specifies which resources are associated with an application."]
module AttributeGroupSummary =
  struct
    type nonrec t =
      {
      id: AttributeGroupId.t option
        [@ocaml.doc
          "The globally unique attribute group identifier of the attribute group."];
      arn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the attribute group across services."];
      name: Name.t option [@ocaml.doc "The name of the attribute group."];
      description: Description.t option
        [@ocaml.doc
          "The description of the attribute group that the user provides."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was last updated. This time is the same as the creationTime for a newly created attribute group."];
      createdBy: CreatedBy.t option
        [@ocaml.doc
          "The service principal that created the attribute group."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?creationTime ->
              fun ?lastUpdateTime ->
                fun ?createdBy ->
                  fun () ->
                    {
                      id;
                      arn;
                      name;
                      description;
                      creationTime;
                      lastUpdateTime;
                      createdBy
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AttributeGroupId.to_value));
        ("arn", (Option.map x.arn ~f:AttributeGroupArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:AttributeGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AttributeGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?createdBy ?lastUpdateTime ?creationTime ?description ?name ?arn
        ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" AttributeGroupArn.of_json in
      let id = field_map json__ "id" AttributeGroupId.of_json in
      make ?createdBy ?lastUpdateTime ?creationTime ?description ?name ?arn
        ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of a Amazon Web Services Service Catalog AppRegistry attribute group."]
module AttributeGroupDetails =
  struct
    type nonrec t =
      {
      id: AttributeGroupId.t option
        [@ocaml.doc "The unique identifier of the attribute group."];
      arn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the attribute group."];
      name: Name.t option
        [@ocaml.doc
          "This field is no longer supported. We recommend you don't use the field when using ListAttributeGroupsForApplication. The name of the attribute group."];
      createdBy: CreatedBy.t option
        [@ocaml.doc
          "The service principal that created the attribute group."]}
    let make ?id =
      fun ?arn ->
        fun ?name -> fun ?createdBy -> fun () -> { id; arn; name; createdBy }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AttributeGroupId.to_value));
        ("arn", (Option.map x.arn ~f:AttributeGroupArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:AttributeGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AttributeGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?createdBy ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" AttributeGroupArn.of_json in
      let id = field_map json__ "id" AttributeGroupId.of_json in
      make ?createdBy ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details related to a specific AttributeGroup."]
module ResourceInfo =
  struct
    type nonrec t =
      {
      name: ResourceSpecifier.t option
        [@ocaml.doc "The name of the resource."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource across services."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "Provides information about the Service Catalog App Registry resource type."];
      resourceDetails: ResourceDetails.t option
        [@ocaml.doc "The details related to the resource."];
      options: Options.t option
        [@ocaml.doc
          "Determines whether an application tag is applied or skipped."]}
    let make ?name =
      fun ?arn ->
        fun ?resourceType ->
          fun ?resourceDetails ->
            fun ?options ->
              fun () -> { name; arn; resourceType; resourceDetails; options }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceSpecifier.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("resourceDetails",
          (Option.map x.resourceDetails ~f:ResourceDetails.to_value));
        ("options", (Option.map x.options ~f:Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "options") in
      let resourceDetails =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "resourceDetails") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceSpecifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?options ?resourceDetails ?resourceType ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "options" Options.of_json in
      let resourceDetails =
        field_map json__ "resourceDetails" ResourceDetails.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let name = field_map json__ "name" ResourceSpecifier.of_json in
      make ?options ?resourceDetails ?resourceType ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The information about the resource."]
module ApplicationSummary =
  struct
    type nonrec t =
      {
      id: ApplicationId.t option
        [@ocaml.doc "The identifier of the application."];
      arn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application across services."];
      name: Name.t option
        [@ocaml.doc
          "The name of the application. The name must be unique in the region in which you are creating the application."];
      description: Description.t option
        [@ocaml.doc "The description of the application."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was last updated."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?creationTime ->
              fun ?lastUpdateTime ->
                fun () ->
                  { id; arn; name; description; creationTime; lastUpdateTime
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ApplicationId.to_value));
        ("arn", (Option.map x.arn ~f:ApplicationArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ApplicationArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ApplicationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" ApplicationArn.of_json in
      let id = field_map json__ "id" ApplicationId.of_json in
      make ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of a Amazon Web Services Service Catalog AppRegistry application."]
module ApplicationTagStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | SUCCESS 
      | FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCESS -> "SUCCESS"
      | FAILURE -> "FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCESS" -> SUCCESS
      | "FAILURE" -> FAILURE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ApplicationTagStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplicationTagStatus" j)
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2024) >>=
                  (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ResourcesList =
  struct
    type nonrec t = ResourcesListItem.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:ResourcesListItem.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:ResourcesListItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcesList" ~of_json:ResourcesListItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceIntegrations =
  struct
    type nonrec t =
      {
      resourceGroup: ResourceGroup.t option
        [@ocaml.doc
          "The information about the integration of Resource Groups."]}
    let make ?resourceGroup = fun () -> { resourceGroup }
    let to_value x =
      structure_to_value
        [("resourceGroup",
           (Option.map x.resourceGroup ~f:ResourceGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceGroup =
        (Option.map ~f:ResourceGroup.of_xml)
          (Xml.child xml_arg0 "resourceGroup") in
      make ?resourceGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceGroup =
        field_map json__ "resourceGroup" ResourceGroup.of_json in
      make ?resourceGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The service integration information about the resource."]
module ResourceItemStatus =
  struct
    type nonrec t =
      | SUCCESS 
      | FAILED 
      | IN_PROGRESS 
      | SKIPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCESS -> "SUCCESS"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | SKIPPED -> "SKIPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCESS" -> SUCCESS
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SKIPPED" -> SKIPPED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResourceItemStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceItemStatus" j)
    let to_json = simple_to_json to_value
  end
module AttributeGroup =
  struct
    type nonrec t =
      {
      id: AttributeGroupId.t option
        [@ocaml.doc
          "The globally unique attribute group identifier of the attribute group."];
      arn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the attribute group across services."];
      name: Name.t option [@ocaml.doc "The name of the attribute group."];
      description: Description.t option
        [@ocaml.doc
          "The description of the attribute group that the user provides."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was last updated. This time is the same as the creationTime for a newly created attribute group."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs you can use to associate with the attribute group."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?creationTime ->
              fun ?lastUpdateTime ->
                fun ?tags ->
                  fun () ->
                    {
                      id;
                      arn;
                      name;
                      description;
                      creationTime;
                      lastUpdateTime;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AttributeGroupId.to_value));
        ("arn", (Option.map x.arn ~f:AttributeGroupArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:AttributeGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AttributeGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?tags ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" AttributeGroupArn.of_json in
      let id = field_map json__ "id" AttributeGroupId.of_json in
      make ?tags ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a Amazon Web Services Service Catalog AppRegistry attribute group that is rich metadata which describes an application and its components."]
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
       "There was a conflict when processing the request (for example, a resource with the given name already exists within the account)."]
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 "The service is experiencing internal problems."]
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 specified resource does not exist."]
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 has invalid or missing parameters."]
module AttributeGroupSpecifier =
  struct
    type nonrec t = string
    let context_ = "AttributeGroupSpecifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([-.\\w]+)|(arn:aws[-a-z]*:servicecatalog:[a-z]{2}(-gov)?-[a-z]+-\\d:\\d{12}:/attribute-groups/[-.\\w]+)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttributeGroupSpecifier" j
    let to_json = simple_to_json to_value
  end
module Attributes =
  struct
    type nonrec t = string
    let context_ = "Attributes"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u00FF]+")));
        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:"Attributes" j
    let to_json = simple_to_json to_value
  end
module Application =
  struct
    type nonrec t =
      {
      id: ApplicationId.t option
        [@ocaml.doc "The identifier of the application."];
      arn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application across services."];
      name: Name.t option
        [@ocaml.doc
          "The name of the application. The name must be unique in the region in which you are creating the application."];
      description: Description.t option
        [@ocaml.doc "The description of the application."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was last updated."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs you can use to associate with the application."];
      applicationTag: ApplicationTagDefinition.t option
        [@ocaml.doc
          "A key-value pair that identifies an associated resource."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?creationTime ->
              fun ?lastUpdateTime ->
                fun ?tags ->
                  fun ?applicationTag ->
                    fun () ->
                      {
                        id;
                        arn;
                        name;
                        description;
                        creationTime;
                        lastUpdateTime;
                        tags;
                        applicationTag
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ApplicationId.to_value));
        ("arn", (Option.map x.arn ~f:ApplicationArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("applicationTag",
          (Option.map x.applicationTag ~f:ApplicationTagDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTag =
        (Option.map ~f:ApplicationTagDefinition.of_xml)
          (Xml.child xml_arg0 "applicationTag") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ApplicationArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ApplicationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?applicationTag ?tags ?lastUpdateTime ?creationTime ?description
        ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTag =
        field_map json__ "applicationTag" ApplicationTagDefinition.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" ApplicationArn.of_json in
      let id = field_map json__ "id" ApplicationId.of_json in
      make ?applicationTag ?tags ?lastUpdateTime ?creationTime ?description
        ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a Amazon Web Services Service Catalog AppRegistry application that is the top-level node in a hierarchy of related cloud resource abstractions."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message associated with the Throttling exception."];
      serviceCode: String_.t option
        [@ocaml.doc "The originating service code."]}
    let make ?message =
      fun ?serviceCode -> fun () -> { message; serviceCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The maximum number of API requests has been exceeded."]
module ApplicationSpecifier =
  struct
    type nonrec t = string
    let context_ = "ApplicationSpecifier"
    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:"([-.\\w]+)|(arn:aws[-a-z]*:servicecatalog:[a-z]{2}(-gov)?-[a-z]+-\\d:\\d{12}:/applications/[-.\\w]+)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ApplicationSpecifier" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module SyncAction =
  struct
    type nonrec t =
      | START_SYNC 
      | NO_ACTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | START_SYNC -> "START_SYNC"
      | NO_ACTION -> "NO_ACTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "START_SYNC" -> START_SYNC
      | "NO_ACTION" -> NO_ACTION
      | 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 SyncAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SyncAction" j)
    let to_json = simple_to_json to_value
  end
module AppRegistryConfiguration =
  struct
    type nonrec t =
      {
      tagQueryConfiguration: TagQueryConfiguration.t option
        [@ocaml.doc "Includes the definition of a tagQuery."]}
    let make ?tagQueryConfiguration = fun () -> { tagQueryConfiguration }
    let to_value x =
      structure_to_value
        [("tagQueryConfiguration",
           (Option.map x.tagQueryConfiguration
              ~f:TagQueryConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagQueryConfiguration =
        (Option.map ~f:TagQueryConfiguration.of_xml)
          (Xml.child xml_arg0 "tagQueryConfiguration") in
      make ?tagQueryConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagQueryConfiguration =
        field_map json__ "tagQueryConfiguration"
          TagQueryConfiguration.of_json in
      make ?tagQueryConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Includes all of the AppRegistry settings."]
module AttributeGroupSummaries =
  struct
    type nonrec t = AttributeGroupSummary.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:AttributeGroupSummary.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:AttributeGroupSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeGroupSummaries"
        ~of_json:AttributeGroupSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AttributeGroupDetailsList =
  struct
    type nonrec t = AttributeGroupDetails.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:AttributeGroupDetails.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:AttributeGroupDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeGroupDetailsList"
        ~of_json:AttributeGroupDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module Resources =
  struct
    type nonrec t = ResourceInfo.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:ResourceInfo.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:ResourceInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"Resources" ~of_json:ResourceInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttributeGroupIds =
  struct
    type nonrec t = AttributeGroupId.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:AttributeGroupId.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:AttributeGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeGroupIds"
        ~of_json:AttributeGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationSummaries =
  struct
    type nonrec t = ApplicationSummary.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:ApplicationSummary.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:ApplicationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationSummaries"
        ~of_json:ApplicationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationTagResult =
  struct
    type nonrec t =
      {
      applicationTagStatus: ApplicationTagStatus.t option
        [@ocaml.doc
          "The application tag is in the process of being applied to a resource, was successfully applied to a resource, or failed to apply to a resource."];
      errorMessage: String_.t option
        [@ocaml.doc "The message returned if the call fails."];
      resources: ResourcesList.t option
        [@ocaml.doc "The resources associated with an application"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A unique pagination token for each page of results. Make the call again with the returned token to retrieve the next page of results."]}
    let make ?applicationTagStatus =
      fun ?errorMessage ->
        fun ?resources ->
          fun ?nextToken ->
            fun () ->
              { applicationTagStatus; errorMessage; resources; nextToken }
    let to_value x =
      structure_to_value
        [("applicationTagStatus",
           (Option.map x.applicationTagStatus
              ~f:ApplicationTagStatus.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("resources", (Option.map x.resources ~f:ResourcesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resources =
        (Option.map ~f:ResourcesList.of_xml) (Xml.child xml_arg0 "resources") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let applicationTagStatus =
        (Option.map ~f:ApplicationTagStatus.of_xml)
          (Xml.child xml_arg0 "applicationTagStatus") in
      make ?nextToken ?resources ?errorMessage ?applicationTagStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let resources = field_map json__ "resources" ResourcesList.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let applicationTagStatus =
        field_map json__ "applicationTagStatus" ApplicationTagStatus.of_json in
      make ?nextToken ?resources ?errorMessage ?applicationTagStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of the application tag that's applied to a resource."]
module Resource =
  struct
    type nonrec t =
      {
      name: ResourceSpecifier.t option
        [@ocaml.doc "The name of the resource."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the resource."];
      associationTime: Timestamp.t option
        [@ocaml.doc
          "The time the resource was associated with the application."];
      integrations: ResourceIntegrations.t option
        [@ocaml.doc
          "The service integration information about the resource."]}
    let make ?name =
      fun ?arn ->
        fun ?associationTime ->
          fun ?integrations ->
            fun () -> { name; arn; associationTime; integrations }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceSpecifier.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("associationTime",
          (Option.map x.associationTime ~f:Timestamp.to_value));
        ("integrations",
          (Option.map x.integrations ~f:ResourceIntegrations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let integrations =
        (Option.map ~f:ResourceIntegrations.of_xml)
          (Xml.child xml_arg0 "integrations") in
      let associationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "associationTime") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceSpecifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?integrations ?associationTime ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let integrations =
        field_map json__ "integrations" ResourceIntegrations.of_json in
      let associationTime =
        field_map json__ "associationTime" Timestamp.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let name = field_map json__ "name" ResourceSpecifier.of_json in
      make ?integrations ?associationTime ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The information about the resource."]
module GetAssociatedResourceFilter =
  struct
    type nonrec t = ResourceItemStatus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceItemStatus.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:ResourceItemStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"GetAssociatedResourceFilter"
        ~of_json:ResourceItemStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociationCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for AssociationCount" 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 Integrations =
  struct
    type nonrec t =
      {
      resourceGroup: ResourceGroup.t option
        [@ocaml.doc "The information about the resource group integration."];
      applicationTagResourceGroup: ResourceGroup.t option }
    let make ?resourceGroup =
      fun ?applicationTagResourceGroup ->
        fun () -> { resourceGroup; applicationTagResourceGroup }
    let to_value x =
      structure_to_value
        [("resourceGroup",
           (Option.map x.resourceGroup ~f:ResourceGroup.to_value));
        ("applicationTagResourceGroup",
          (Option.map x.applicationTagResourceGroup ~f:ResourceGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTagResourceGroup =
        (Option.map ~f:ResourceGroup.of_xml)
          (Xml.child xml_arg0 "applicationTagResourceGroup") in
      let resourceGroup =
        (Option.map ~f:ResourceGroup.of_xml)
          (Xml.child xml_arg0 "resourceGroup") in
      make ?applicationTagResourceGroup ?resourceGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTagResourceGroup =
        field_map json__ "applicationTagResourceGroup" ResourceGroup.of_json in
      let resourceGroup =
        field_map json__ "resourceGroup" ResourceGroup.of_json in
      make ?applicationTagResourceGroup ?resourceGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The information about the service integration."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of resources per account has been reached."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z0-9][a-zA-Z0-9_-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module UpdateAttributeGroupResponse =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroup.t option
        [@ocaml.doc "The updated information of the attribute group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroup = fun () -> { attributeGroup }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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))]
      | `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
        [("attributeGroup",
           (Option.map x.attributeGroup ~f:AttributeGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        (Option.map ~f:AttributeGroup.of_xml)
          (Xml.child xml_arg0 "attributeGroup") in
      make ?attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map json__ "attributeGroup" AttributeGroup.of_json in
      make ?attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing attribute group with new details."]
module UpdateAttributeGroupRequest =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroupSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the attribute group that holds the attributes to describe the application."];
      name: Name.t option
        [@ocaml.doc
          "Deprecated: The new name of the attribute group. The name must be unique in the region in which you are updating the attribute group. Please do not use this field as we have stopped supporting name updates."];
      description: Description.t option
        [@ocaml.doc
          "The description of the attribute group that the user provides."];
      attributes: Attributes.t option
        [@ocaml.doc
          "A JSON string in the form of nested key-value pairs that represent the attributes in the group and describes an application and its components."]}
    let context_ = "UpdateAttributeGroupRequest"
    let make ?name =
      fun ?description ->
        fun ?attributes ->
          fun ~attributeGroup ->
            fun () -> { name; description; attributes; attributeGroup }
    let to_value x =
      structure_to_value
        [("attributeGroup",
           (Some (AttributeGroupSpecifier.to_value x.attributeGroup)));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("attributes", (Option.map x.attributes ~f:Attributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:Attributes.of_xml) (Xml.child xml_arg0 "attributes") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let attributeGroup =
        AttributeGroupSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributeGroup") in
      make ?attributes ?description ?name ~attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" Attributes.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let attributeGroup =
        field_map_exn json__ "attributeGroup" AttributeGroupSpecifier.of_json in
      make ?attributes ?description ?name ~attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing attribute group with new details."]
module UpdateApplicationResponse =
  struct
    type nonrec t =
      {
      application: Application.t option
        [@ocaml.doc "The updated information of the application."]}
    type nonrec error =
      [ `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 ?application = fun () -> { application }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("application", (Option.map x.application ~f:Application.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let application =
        (Option.map ~f:Application.of_xml) (Xml.child xml_arg0 "application") in
      make ?application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let application = field_map json__ "application" Application.of_json in
      make ?application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing application with new attributes."]
module UpdateApplicationRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the application that will be updated."];
      name: Name.t option
        [@ocaml.doc
          "Deprecated: The new name of the application. The name must be unique in the region in which you are updating the application. Please do not use this field as we have stopped supporting name updates."];
      description: Description.t option
        [@ocaml.doc "The new description of the application."]}
    let context_ = "UpdateApplicationRequest"
    let make ?name =
      fun ?description ->
        fun ~application -> fun () -> { name; description; application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?description ?name ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?description ?name ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing application with new attributes."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from a resource. This operation returns an empty response if the call was successful."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "A list of the tag keys to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from a resource. This operation returns an empty response if the call was successful."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource. Each tag consists of a key and an optional value. If a tag with the same key is already associated with the resource, this action updates its value. This operation returns an empty response if the call was successful."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."];
      tags: Tags.t [@ocaml.doc "The new or modified tags for the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource. Each tag consists of a key and an optional value. If a tag with the same key is already associated with the resource, this action updates its value. This operation returns an empty response if the call was successful."]
module SyncResourceResponse =
  struct
    type nonrec t =
      {
      applicationArn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application."];
      resourceArn: Arn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."];
      actionTaken: SyncAction.t option
        [@ocaml.doc
          "The results of the output if an application is associated with an ARN value, which could be syncStarted or None."]}
    type nonrec error =
      [ `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 ?applicationArn =
      fun ?resourceArn ->
        fun ?actionTaken ->
          fun () -> { applicationArn; resourceArn; actionTaken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("applicationArn",
           (Option.map x.applicationArn ~f:ApplicationArn.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:Arn.to_value));
        ("actionTaken", (Option.map x.actionTaken ~f:SyncAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionTaken =
        (Option.map ~f:SyncAction.of_xml) (Xml.child xml_arg0 "actionTaken") in
      let resourceArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let applicationArn =
        (Option.map ~f:ApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      make ?actionTaken ?resourceArn ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionTaken = field_map json__ "actionTaken" SyncAction.of_json in
      let resourceArn = field_map json__ "resourceArn" Arn.of_json in
      let applicationArn =
        field_map json__ "applicationArn" ApplicationArn.of_json in
      make ?actionTaken ?resourceArn ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Syncs the resource with current AppRegistry records. Specifically, the resource\226\128\153s AppRegistry system tags sync with its associated application. We remove the resource's AppRegistry system tags if it does not associate with the application. The caller must have permissions to read and update the resource."]
module SyncResourceRequest =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t
        [@ocaml.doc
          "The type of resource of which the application will be associated."];
      resource: ResourceSpecifier.t
        [@ocaml.doc
          "An entity you can work with and specify with a name or ID. Examples include an Amazon EC2 instance, an Amazon Web Services CloudFormation stack, or an Amazon S3 bucket."]}
    let context_ = "SyncResourceRequest"
    let make ~resourceType =
      fun ~resource -> fun () -> { resourceType; resource }
    let to_value x =
      structure_to_value
        [("resourceType", (Some (ResourceType.to_value x.resourceType)));
        ("resource", (Some (ResourceSpecifier.to_value x.resource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resource =
        ResourceSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceType") in
      make ~resource ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resource =
        field_map_exn json__ "resource" ResourceSpecifier.of_json in
      let resourceType =
        field_map_exn json__ "resourceType" ResourceType.of_json in
      make ~resource ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Syncs the resource with current AppRegistry records. Specifically, the resource\226\128\153s AppRegistry system tags sync with its associated application. We remove the resource's AppRegistry system tags if it does not associate with the application. The caller must have permissions to read and update the resource."]
module PutConfigurationRequest =
  struct
    type nonrec t =
      {
      configuration: AppRegistryConfiguration.t
        [@ocaml.doc "Associates a TagKey configuration to an account."]}
    let context_ = "PutConfigurationRequest"
    let make ~configuration = fun () -> { configuration }
    let to_value x =
      structure_to_value
        [("configuration",
           (Some (AppRegistryConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        AppRegistryConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      make ~configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "configuration" AppRegistryConfiguration.of_json in
      make ~configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Associates a TagKey configuration to an account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option [@ocaml.doc "The tags on the resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f: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 "Lists all of the tags on the resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all of the tags on the resource."]
module ListAttributeGroupsResponse =
  struct
    type nonrec t =
      {
      attributeGroups: AttributeGroupSummaries.t option
        [@ocaml.doc "This list of attribute groups."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroups =
      fun ?nextToken -> fun () -> { attributeGroups; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("attributeGroups",
           (Option.map x.attributeGroups ~f:AttributeGroupSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let attributeGroups =
        (Option.map ~f:AttributeGroupSummaries.of_xml)
          (Xml.child xml_arg0 "attributeGroups") in
      make ?nextToken ?attributeGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let attributeGroups =
        field_map json__ "attributeGroups" AttributeGroupSummaries.of_json in
      make ?nextToken ?attributeGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all attribute groups which you have access to. Results are paginated."]
module ListAttributeGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The upper bound of the number of results to return (cannot exceed 25). If this parameter is omitted, it defaults to 25. This value is optional."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all attribute groups which you have access to. Results are paginated."]
module ListAttributeGroupsForApplicationResponse =
  struct
    type nonrec t =
      {
      attributeGroupsDetails: AttributeGroupDetailsList.t option
        [@ocaml.doc "The details related to a specific attribute group."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroupsDetails =
      fun ?nextToken -> fun () -> { attributeGroupsDetails; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attributeGroupsDetails",
           (Option.map x.attributeGroupsDetails
              ~f:AttributeGroupDetailsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let attributeGroupsDetails =
        (Option.map ~f:AttributeGroupDetailsList.of_xml)
          (Xml.child xml_arg0 "attributeGroupsDetails") in
      make ?nextToken ?attributeGroupsDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let attributeGroupsDetails =
        field_map json__ "attributeGroupsDetails"
          AttributeGroupDetailsList.of_json in
      make ?nextToken ?attributeGroupsDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the details of all attribute groups associated with a specific application. The results display in pages."]
module ListAttributeGroupsForApplicationRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name or ID of the application."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "This token retrieves the next page of results after a previous API call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The upper bound of the number of results to return. The value cannot exceed 25. If you omit this parameter, it defaults to 25. This value is optional."]}
    let context_ = "ListAttributeGroupsForApplicationRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~application -> fun () -> { nextToken; maxResults; application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?maxResults ?nextToken ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?maxResults ?nextToken ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the details of all attribute groups associated with a specific application. The results display in pages."]
module ListAssociatedResourcesResponse =
  struct
    type nonrec t =
      {
      resources: Resources.t option
        [@ocaml.doc "Information about the resources."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resources =
      fun ?nextToken -> fun () -> { resources; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("resources", (Option.map x.resources ~f:Resources.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resources =
        (Option.map ~f:Resources.of_xml) (Xml.child xml_arg0 "resources") in
      make ?nextToken ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let resources = field_map json__ "resources" Resources.of_json in
      make ?nextToken ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the resources that are associated with the specified application. Results are paginated. If you share an application, and a consumer account associates a tag query to the application, all of the users who can access the application can also view the tag values in all accounts that are associated with it using this API."]
module ListAssociatedResourcesRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The upper bound of the number of results to return (cannot exceed 25). If this parameter is omitted, it defaults to 25. This value is optional."]}
    let context_ = "ListAssociatedResourcesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~application -> fun () -> { nextToken; maxResults; application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?maxResults ?nextToken ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?maxResults ?nextToken ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the resources that are associated with the specified application. Results are paginated. If you share an application, and a consumer account associates a tag query to the application, all of the users who can access the application can also view the tag values in all accounts that are associated with it using this API."]
module ListAssociatedAttributeGroupsResponse =
  struct
    type nonrec t =
      {
      attributeGroups: AttributeGroupIds.t option
        [@ocaml.doc "A list of attribute group IDs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroups =
      fun ?nextToken -> fun () -> { attributeGroups; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attributeGroups",
           (Option.map x.attributeGroups ~f:AttributeGroupIds.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let attributeGroups =
        (Option.map ~f:AttributeGroupIds.of_xml)
          (Xml.child xml_arg0 "attributeGroups") in
      make ?nextToken ?attributeGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let attributeGroups =
        field_map json__ "attributeGroups" AttributeGroupIds.of_json in
      make ?nextToken ?attributeGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all attribute groups that are associated with specified application. Results are paginated."]
module ListAssociatedAttributeGroupsRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name or ID of the application."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The upper bound of the number of results to return (cannot exceed 25). If this parameter is omitted, it defaults to 25. This value is optional."]}
    let context_ = "ListAssociatedAttributeGroupsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~application -> fun () -> { nextToken; maxResults; application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?maxResults ?nextToken ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?maxResults ?nextToken ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all attribute groups that are associated with specified application. Results are paginated."]
module ListApplicationsResponse =
  struct
    type nonrec t =
      {
      applications: ApplicationSummaries.t option
        [@ocaml.doc "This list of applications."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applications =
      fun ?nextToken -> fun () -> { applications; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("applications",
           (Option.map x.applications ~f:ApplicationSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let applications =
        (Option.map ~f:ApplicationSummaries.of_xml)
          (Xml.child xml_arg0 "applications") in
      make ?nextToken ?applications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let applications =
        field_map json__ "applications" ApplicationSummaries.of_json in
      make ?nextToken ?applications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all of your applications. Results are paginated."]
module ListApplicationsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next page of results after a previous API call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The upper bound of the number of results to return (cannot exceed 25). If this parameter is omitted, it defaults to 25. This value is optional."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all of your applications. Results are paginated."]
module GetConfigurationResponse =
  struct
    type nonrec t =
      {
      configuration: AppRegistryConfiguration.t option
        [@ocaml.doc "Retrieves TagKey configuration from an account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configuration = fun () -> { configuration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("configuration",
           (Option.map x.configuration ~f:AppRegistryConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:AppRegistryConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      make ?configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration" AppRegistryConfiguration.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a TagKey configuration from an account."]
module GetAttributeGroupResponse =
  struct
    type nonrec t =
      {
      id: AttributeGroupId.t option
        [@ocaml.doc "The identifier of the attribute group."];
      arn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the attribute group across services."];
      name: Name.t option [@ocaml.doc "The name of the attribute group."];
      description: Description.t option
        [@ocaml.doc
          "The description of the attribute group that the user provides."];
      attributes: Attributes.t option
        [@ocaml.doc
          "A JSON string in the form of nested key-value pairs that represent the attributes in the group and describes an application and its components."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment the attribute group was last updated. This time is the same as the creationTime for a newly created attribute group."];
      tags: Tags.t option
        [@ocaml.doc "Key-value pairs associated with the attribute group."];
      createdBy: CreatedBy.t option
        [@ocaml.doc
          "The service principal that created the attribute group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?attributes ->
              fun ?creationTime ->
                fun ?lastUpdateTime ->
                  fun ?tags ->
                    fun ?createdBy ->
                      fun () ->
                        {
                          id;
                          arn;
                          name;
                          description;
                          attributes;
                          creationTime;
                          lastUpdateTime;
                          tags;
                          createdBy
                        }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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))]
      | `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
        [("id", (Option.map x.id ~f:AttributeGroupId.to_value));
        ("arn", (Option.map x.arn ~f:AttributeGroupArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("attributes", (Option.map x.attributes ~f:Attributes.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let attributes =
        (Option.map ~f:Attributes.of_xml) (Xml.child xml_arg0 "attributes") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:AttributeGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AttributeGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?createdBy ?tags ?lastUpdateTime ?creationTime ?attributes
        ?description ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let attributes = field_map json__ "attributes" Attributes.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" AttributeGroupArn.of_json in
      let id = field_map json__ "id" AttributeGroupId.of_json in
      make ?createdBy ?tags ?lastUpdateTime ?creationTime ?attributes
        ?description ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an attribute group by its ARN, ID, or name. The attribute group can be specified by its ARN, ID, or name."]
module GetAttributeGroupRequest =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroupSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the attribute group that holds the attributes to describe the application."]}
    let context_ = "GetAttributeGroupRequest"
    let make ~attributeGroup = fun () -> { attributeGroup }
    let to_value x =
      structure_to_value
        [("attributeGroup",
           (Some (AttributeGroupSpecifier.to_value x.attributeGroup)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        AttributeGroupSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributeGroup") in
      make ~attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map_exn json__ "attributeGroup" AttributeGroupSpecifier.of_json in
      make ~attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an attribute group by its ARN, ID, or name. The attribute group can be specified by its ARN, ID, or name."]
module GetAssociatedResourceResponse =
  struct
    type nonrec t =
      {
      resource: Resource.t option
        [@ocaml.doc "The resource associated with the application."];
      options: Options.t option
        [@ocaml.doc
          "Determines whether an application tag is applied or skipped."];
      applicationTagResult: ApplicationTagResult.t option
        [@ocaml.doc
          "The result of the application that's tag applied to a resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resource =
      fun ?options ->
        fun ?applicationTagResult ->
          fun () -> { resource; options; applicationTagResult }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("resource", (Option.map x.resource ~f:Resource.to_value));
        ("options", (Option.map x.options ~f:Options.to_value));
        ("applicationTagResult",
          (Option.map x.applicationTagResult ~f:ApplicationTagResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTagResult =
        (Option.map ~f:ApplicationTagResult.of_xml)
          (Xml.child xml_arg0 "applicationTagResult") in
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "options") in
      let resource =
        (Option.map ~f:Resource.of_xml) (Xml.child xml_arg0 "resource") in
      make ?applicationTagResult ?options ?resource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTagResult =
        field_map json__ "applicationTagResult" ApplicationTagResult.of_json in
      let options = field_map json__ "options" Options.of_json in
      let resource = field_map json__ "resource" Resource.of_json in
      make ?applicationTagResult ?options ?resource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the resource associated with the application."]
module GetAssociatedResourceRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."];
      resourceType: ResourceType.t
        [@ocaml.doc "The type of resource associated with the application."];
      resource: ResourceSpecifier.t
        [@ocaml.doc
          "The name or ID of the resource associated with the application."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A unique pagination token for each page of results. Make the call again with the returned token to retrieve the next page of results."];
      resourceTagStatus: GetAssociatedResourceFilter.t option
        [@ocaml.doc
          "States whether an application tag is applied, not applied, in the process of being applied, or skipped."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return. If the parameter is omitted, it defaults to 25. The value is optional."]}
    let context_ = "GetAssociatedResourceRequest"
    let make ?nextToken =
      fun ?resourceTagStatus ->
        fun ?maxResults ->
          fun ~application ->
            fun ~resourceType ->
              fun ~resource ->
                fun () ->
                  {
                    nextToken;
                    resourceTagStatus;
                    maxResults;
                    application;
                    resourceType;
                    resource
                  }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("resourceType", (Some (ResourceType.to_value x.resourceType)));
        ("resource", (Some (ResourceSpecifier.to_value x.resource)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("resourceTagStatus",
          (Option.map x.resourceTagStatus
             ~f:GetAssociatedResourceFilter.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let resourceTagStatus =
        (Option.map ~f:GetAssociatedResourceFilter.of_xml)
          (Xml.child xml_arg0 "resourceTagStatus") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resource =
        ResourceSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceType") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?maxResults ?resourceTagStatus ?nextToken ~resource ~resourceType
        ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let resourceTagStatus =
        field_map json__ "resourceTagStatus"
          GetAssociatedResourceFilter.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let resource =
        field_map_exn json__ "resource" ResourceSpecifier.of_json in
      let resourceType =
        field_map_exn json__ "resourceType" ResourceType.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?maxResults ?resourceTagStatus ?nextToken ~resource ~resourceType
        ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the resource associated with the application."]
module GetApplicationResponse =
  struct
    type nonrec t =
      {
      id: ApplicationId.t option
        [@ocaml.doc "The identifier of the application."];
      arn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application across services."];
      name: Name.t option
        [@ocaml.doc
          "The name of the application. The name must be unique in the region in which you are creating the application."];
      description: Description.t option
        [@ocaml.doc "The description of the application."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was created."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The ISO-8601 formatted timestamp of the moment when the application was last updated."];
      associatedResourceCount: AssociationCount.t option
        [@ocaml.doc
          "The number of top-level resources that were registered as part of this application."];
      tags: Tags.t option
        [@ocaml.doc "Key-value pairs associated with the application."];
      integrations: Integrations.t option
        [@ocaml.doc
          "The information about the integration of the application with other services, such as Resource Groups."];
      applicationTag: ApplicationTagDefinition.t option
        [@ocaml.doc
          "A key-value pair that identifies an associated resource."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?creationTime ->
              fun ?lastUpdateTime ->
                fun ?associatedResourceCount ->
                  fun ?tags ->
                    fun ?integrations ->
                      fun ?applicationTag ->
                        fun () ->
                          {
                            id;
                            arn;
                            name;
                            description;
                            creationTime;
                            lastUpdateTime;
                            associatedResourceCount;
                            tags;
                            integrations;
                            applicationTag
                          }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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))]
      | `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
        [("id", (Option.map x.id ~f:ApplicationId.to_value));
        ("arn", (Option.map x.arn ~f:ApplicationArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("associatedResourceCount",
          (Option.map x.associatedResourceCount ~f:AssociationCount.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("integrations",
          (Option.map x.integrations ~f:Integrations.to_value));
        ("applicationTag",
          (Option.map x.applicationTag ~f:ApplicationTagDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTag =
        (Option.map ~f:ApplicationTagDefinition.of_xml)
          (Xml.child xml_arg0 "applicationTag") in
      let integrations =
        (Option.map ~f:Integrations.of_xml)
          (Xml.child xml_arg0 "integrations") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let associatedResourceCount =
        (Option.map ~f:AssociationCount.of_xml)
          (Xml.child xml_arg0 "associatedResourceCount") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ApplicationArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ApplicationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?applicationTag ?integrations ?tags ?associatedResourceCount
        ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTag =
        field_map json__ "applicationTag" ApplicationTagDefinition.of_json in
      let integrations = field_map json__ "integrations" Integrations.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let associatedResourceCount =
        field_map json__ "associatedResourceCount" AssociationCount.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let arn = field_map json__ "arn" ApplicationArn.of_json in
      let id = field_map json__ "id" ApplicationId.of_json in
      make ?applicationTag ?integrations ?tags ?associatedResourceCount
        ?lastUpdateTime ?creationTime ?description ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves metadata information about one of your applications. The application can be specified by its ARN, ID, or name (which is unique within one account in one region at a given point in time). Specify by ARN or ID in automated workflows if you want to make sure that the exact same application is returned or a ResourceNotFoundException is thrown, avoiding the ABA addressing problem."]
module GetApplicationRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."]}
    let context_ = "GetApplicationRequest"
    let make ~application = fun () -> { application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves metadata information about one of your applications. The application can be specified by its ARN, ID, or name (which is unique within one account in one region at a given point in time). Specify by ARN or ID in automated workflows if you want to make sure that the exact same application is returned or a ResourceNotFoundException is thrown, avoiding the ABA addressing problem."]
module DisassociateResourceResponse =
  struct
    type nonrec t =
      {
      applicationArn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application."];
      resourceArn: Arn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."]}
    type nonrec error =
      [ `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 ?applicationArn =
      fun ?resourceArn -> fun () -> { applicationArn; resourceArn }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("applicationArn",
           (Option.map x.applicationArn ~f:ApplicationArn.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let applicationArn =
        (Option.map ~f:ApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      make ?resourceArn ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map json__ "resourceArn" Arn.of_json in
      let applicationArn =
        field_map json__ "applicationArn" ApplicationArn.of_json in
      make ?resourceArn ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a resource from application. Both the resource and the application can be specified either by ID or name. Minimum permissions You must have the following permissions to remove a resource that's been associated with an application using the APPLY_APPLICATION_TAG option for AssociateResource. tag:GetResources tag:UntagResources You must also have the following permissions if you don't use the AWSServiceCatalogAppRegistryFullAccess policy. For more information, see AWSServiceCatalogAppRegistryFullAccess in the AppRegistry Administrator Guide. resource-groups:DisassociateResource cloudformation:UpdateStack cloudformation:DescribeStacks In addition, you must have the tagging permission defined by the Amazon Web Services service that creates the resource. For more information, see UntagResources in the Resource Groups Tagging API Reference."]
module DisassociateResourceRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name or ID of the application."];
      resourceType: ResourceType.t
        [@ocaml.doc "The type of the resource that is being disassociated."];
      resource: ResourceSpecifier.t
        [@ocaml.doc "The name or ID of the resource."]}
    let context_ = "DisassociateResourceRequest"
    let make ~application =
      fun ~resourceType ->
        fun ~resource -> fun () -> { application; resourceType; resource }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("resourceType", (Some (ResourceType.to_value x.resourceType)));
        ("resource", (Some (ResourceSpecifier.to_value x.resource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resource =
        ResourceSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceType") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ~resource ~resourceType ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resource =
        field_map_exn json__ "resource" ResourceSpecifier.of_json in
      let resourceType =
        field_map_exn json__ "resourceType" ResourceType.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ~resource ~resourceType ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a resource from application. Both the resource and the application can be specified either by ID or name. Minimum permissions You must have the following permissions to remove a resource that's been associated with an application using the APPLY_APPLICATION_TAG option for AssociateResource. tag:GetResources tag:UntagResources You must also have the following permissions if you don't use the AWSServiceCatalogAppRegistryFullAccess policy. For more information, see AWSServiceCatalogAppRegistryFullAccess in the AppRegistry Administrator Guide. resource-groups:DisassociateResource cloudformation:UpdateStack cloudformation:DescribeStacks In addition, you must have the tagging permission defined by the Amazon Web Services service that creates the resource. For more information, see UntagResources in the Resource Groups Tagging API Reference."]
module DisassociateAttributeGroupResponse =
  struct
    type nonrec t =
      {
      applicationArn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the application."];
      attributeGroupArn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the attribute group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationArn =
      fun ?attributeGroupArn ->
        fun () -> { applicationArn; attributeGroupArn }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("applicationArn",
           (Option.map x.applicationArn ~f:ApplicationArn.to_value));
        ("attributeGroupArn",
          (Option.map x.attributeGroupArn ~f:AttributeGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroupArn =
        (Option.map ~f:AttributeGroupArn.of_xml)
          (Xml.child xml_arg0 "attributeGroupArn") in
      let applicationArn =
        (Option.map ~f:ApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      make ?attributeGroupArn ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroupArn =
        field_map json__ "attributeGroupArn" AttributeGroupArn.of_json in
      let applicationArn =
        field_map json__ "applicationArn" ApplicationArn.of_json in
      make ?attributeGroupArn ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an attribute group from an application to remove the extra attributes contained in the attribute group from the application's metadata. This operation reverts AssociateAttributeGroup."]
module DisassociateAttributeGroupRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."];
      attributeGroup: AttributeGroupSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the attribute group that holds the attributes to describe the application."]}
    let context_ = "DisassociateAttributeGroupRequest"
    let make ~application =
      fun ~attributeGroup -> fun () -> { application; attributeGroup }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("attributeGroup",
          (Some (AttributeGroupSpecifier.to_value x.attributeGroup)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        AttributeGroupSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributeGroup") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ~attributeGroup ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map_exn json__ "attributeGroup" AttributeGroupSpecifier.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ~attributeGroup ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an attribute group from an application to remove the extra attributes contained in the attribute group from the application's metadata. This operation reverts AssociateAttributeGroup."]
module DeleteAttributeGroupResponse =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroupSummary.t option
        [@ocaml.doc "Information about the deleted attribute group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroup = fun () -> { attributeGroup }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attributeGroup",
           (Option.map x.attributeGroup ~f:AttributeGroupSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        (Option.map ~f:AttributeGroupSummary.of_xml)
          (Xml.child xml_arg0 "attributeGroup") in
      make ?attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map json__ "attributeGroup" AttributeGroupSummary.of_json in
      make ?attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an attribute group, specified either by its attribute group ID, name, or ARN."]
module DeleteAttributeGroupRequest =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroupSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the attribute group that holds the attributes to describe the application."]}
    let context_ = "DeleteAttributeGroupRequest"
    let make ~attributeGroup = fun () -> { attributeGroup }
    let to_value x =
      structure_to_value
        [("attributeGroup",
           (Some (AttributeGroupSpecifier.to_value x.attributeGroup)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        AttributeGroupSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributeGroup") in
      make ~attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map_exn json__ "attributeGroup" AttributeGroupSpecifier.of_json in
      make ~attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an attribute group, specified either by its attribute group ID, name, or ARN."]
module DeleteApplicationResponse =
  struct
    type nonrec t =
      {
      application: ApplicationSummary.t option
        [@ocaml.doc "Information about the deleted application."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?application = fun () -> { application }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("application",
           (Option.map x.application ~f:ApplicationSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let application =
        (Option.map ~f:ApplicationSummary.of_xml)
          (Xml.child xml_arg0 "application") in
      make ?application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let application =
        field_map json__ "application" ApplicationSummary.of_json in
      make ?application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an application that is specified either by its application ID, name, or ARN. All associated attribute groups and resources must be disassociated from it before deleting an application."]
module DeleteApplicationRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."]}
    let context_ = "DeleteApplicationRequest"
    let make ~application = fun () -> { application }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an application that is specified either by its application ID, name, or ARN. All associated attribute groups and resources must be disassociated from it before deleting an application."]
module CreateAttributeGroupResponse =
  struct
    type nonrec t =
      {
      attributeGroup: AttributeGroup.t option
        [@ocaml.doc "Information about the attribute group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributeGroup = fun () -> { attributeGroup }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("attributeGroup",
           (Option.map x.attributeGroup ~f:AttributeGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        (Option.map ~f:AttributeGroup.of_xml)
          (Xml.child xml_arg0 "attributeGroup") in
      make ?attributeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map json__ "attributeGroup" AttributeGroup.of_json in
      make ?attributeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new attribute group as a container for user-defined attributes. This feature enables users to have full control over their cloud application's metadata in a rich machine-readable format to facilitate integration with automated workflows and third-party tools."]
module CreateAttributeGroupRequest =
  struct
    type nonrec t =
      {
      name: Name.t [@ocaml.doc "The name of the attribute group."];
      description: Description.t option
        [@ocaml.doc
          "The description of the attribute group that the user provides."];
      attributes: Attributes.t
        [@ocaml.doc
          "A JSON string in the form of nested key-value pairs that represent the attributes in the group and describes an application and its components."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs you can use to associate with the attribute group."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique identifier that you provide to ensure idempotency. If you retry a request that completed successfully using the same client token and the same parameters, the retry succeeds without performing any further actions. If you retry a successful request using the same client token, but one or more of the parameters are different, the retry fails."]}
    let context_ = "CreateAttributeGroupRequest"
    let make ?description =
      fun ?tags ->
        fun ~name ->
          fun ~attributes ->
            fun ~clientToken ->
              fun () -> { description; tags; name; attributes; clientToken }
    let to_value x =
      structure_to_value
        [("name", (Some (Name.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("attributes", (Some (Attributes.to_value x.attributes)));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let attributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributes") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~clientToken ?tags ~attributes ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let attributes = field_map_exn json__ "attributes" Attributes.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Name.of_json in
      make ~clientToken ?tags ~attributes ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new attribute group as a container for user-defined attributes. This feature enables users to have full control over their cloud application's metadata in a rich machine-readable format to facilitate integration with automated workflows and third-party tools."]
module CreateApplicationResponse =
  struct
    type nonrec t =
      {
      application: Application.t option
        [@ocaml.doc "Information about the application."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?application = fun () -> { application }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("application", (Option.map x.application ~f:Application.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let application =
        (Option.map ~f:Application.of_xml) (Xml.child xml_arg0 "application") in
      make ?application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let application = field_map json__ "application" Application.of_json in
      make ?application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new application that is the top-level node in a hierarchy of related cloud resource abstractions."]
module CreateApplicationRequest =
  struct
    type nonrec t =
      {
      name: Name.t
        [@ocaml.doc
          "The name of the application. The name must be unique in the region in which you are creating the application."];
      description: Description.t option
        [@ocaml.doc "The description of the application."];
      tags: Tags.t option
        [@ocaml.doc
          "Key-value pairs you can use to associate with the application."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique identifier that you provide to ensure idempotency. If you retry a request that completed successfully using the same client token and the same parameters, the retry succeeds without performing any further actions. If you retry a successful request using the same client token, but one or more of the parameters are different, the retry fails."]}
    let context_ = "CreateApplicationRequest"
    let make ?description =
      fun ?tags ->
        fun ~name ->
          fun ~clientToken ->
            fun () -> { description; tags; name; clientToken }
    let to_value x =
      structure_to_value
        [("name", (Some (Name.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~clientToken ?tags ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Name.of_json in
      make ~clientToken ?tags ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new application that is the top-level node in a hierarchy of related cloud resource abstractions."]
module AssociateResourceResponse =
  struct
    type nonrec t =
      {
      applicationArn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the application that was augmented with attributes."];
      resourceArn: Arn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) that specifies the resource."];
      options: Options.t option
        [@ocaml.doc
          "Determines whether an application tag is applied or skipped."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationArn =
      fun ?resourceArn ->
        fun ?options -> fun () -> { applicationArn; resourceArn; options }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("applicationArn",
           (Option.map x.applicationArn ~f:ApplicationArn.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:Arn.to_value));
        ("options", (Option.map x.options ~f:Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "options") in
      let resourceArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let applicationArn =
        (Option.map ~f:ApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      make ?options ?resourceArn ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "options" Options.of_json in
      let resourceArn = field_map json__ "resourceArn" Arn.of_json in
      let applicationArn =
        field_map json__ "applicationArn" ApplicationArn.of_json in
      make ?options ?resourceArn ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a resource with an application. The resource can be specified by its ARN or name. The application can be specified by ARN, ID, or name. Minimum permissions You must have the following permissions to associate a resource using the OPTIONS parameter set to APPLY_APPLICATION_TAG. tag:GetResources tag:TagResources You must also have these additional permissions if you don't use the AWSServiceCatalogAppRegistryFullAccess policy. For more information, see AWSServiceCatalogAppRegistryFullAccess in the AppRegistry Administrator Guide. resource-groups:AssociateResource cloudformation:UpdateStack cloudformation:DescribeStacks In addition, you must have the tagging permission defined by the Amazon Web Services service that creates the resource. For more information, see TagResources in the Resource Groups Tagging API Reference."]
module AssociateResourceRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."];
      resourceType: ResourceType.t
        [@ocaml.doc
          "The type of resource of which the application will be associated."];
      resource: ResourceSpecifier.t
        [@ocaml.doc
          "The name or ID of the resource of which the application will be associated."];
      options: Options.t option
        [@ocaml.doc
          "Determines whether an application tag is applied or skipped."]}
    let context_ = "AssociateResourceRequest"
    let make ?options =
      fun ~application ->
        fun ~resourceType ->
          fun ~resource ->
            fun () -> { options; application; resourceType; resource }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("resourceType", (Some (ResourceType.to_value x.resourceType)));
        ("resource", (Some (ResourceSpecifier.to_value x.resource)));
        ("options", (Option.map x.options ~f:Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "options") in
      let resource =
        ResourceSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource") in
      let resourceType =
        ResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceType") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ?options ~resource ~resourceType ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "options" Options.of_json in
      let resource =
        field_map_exn json__ "resource" ResourceSpecifier.of_json in
      let resourceType =
        field_map_exn json__ "resourceType" ResourceType.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ?options ~resource ~resourceType ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a resource with an application. The resource can be specified by its ARN or name. The application can be specified by ARN, ID, or name. Minimum permissions You must have the following permissions to associate a resource using the OPTIONS parameter set to APPLY_APPLICATION_TAG. tag:GetResources tag:TagResources You must also have these additional permissions if you don't use the AWSServiceCatalogAppRegistryFullAccess policy. For more information, see AWSServiceCatalogAppRegistryFullAccess in the AppRegistry Administrator Guide. resource-groups:AssociateResource cloudformation:UpdateStack cloudformation:DescribeStacks In addition, you must have the tagging permission defined by the Amazon Web Services service that creates the resource. For more information, see TagResources in the Resource Groups Tagging API Reference."]
module AssociateAttributeGroupResponse =
  struct
    type nonrec t =
      {
      applicationArn: ApplicationArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the application that was augmented with attributes."];
      attributeGroupArn: AttributeGroupArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the attribute group that contains the application's new attributes."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationArn =
      fun ?attributeGroupArn ->
        fun () -> { applicationArn; attributeGroupArn }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `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
        [("applicationArn",
           (Option.map x.applicationArn ~f:ApplicationArn.to_value));
        ("attributeGroupArn",
          (Option.map x.attributeGroupArn ~f:AttributeGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroupArn =
        (Option.map ~f:AttributeGroupArn.of_xml)
          (Xml.child xml_arg0 "attributeGroupArn") in
      let applicationArn =
        (Option.map ~f:ApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      make ?attributeGroupArn ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroupArn =
        field_map json__ "attributeGroupArn" AttributeGroupArn.of_json in
      let applicationArn =
        field_map json__ "applicationArn" ApplicationArn.of_json in
      make ?attributeGroupArn ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an attribute group with an application to augment the application's metadata with the group's attributes. This feature enables applications to be described with user-defined details that are machine-readable, such as third-party integrations."]
module AssociateAttributeGroupRequest =
  struct
    type nonrec t =
      {
      application: ApplicationSpecifier.t
        [@ocaml.doc "The name, ID, or ARN of the application."];
      attributeGroup: AttributeGroupSpecifier.t
        [@ocaml.doc
          "The name, ID, or ARN of the attribute group that holds the attributes to describe the application."]}
    let context_ = "AssociateAttributeGroupRequest"
    let make ~application =
      fun ~attributeGroup -> fun () -> { application; attributeGroup }
    let to_value x =
      structure_to_value
        [("application",
           (Some (ApplicationSpecifier.to_value x.application)));
        ("attributeGroup",
          (Some (AttributeGroupSpecifier.to_value x.attributeGroup)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeGroup =
        AttributeGroupSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attributeGroup") in
      let application =
        ApplicationSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "application") in
      make ~attributeGroup ~application ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeGroup =
        field_map_exn json__ "attributeGroup" AttributeGroupSpecifier.of_json in
      let application =
        field_map_exn json__ "application" ApplicationSpecifier.of_json in
      make ~attributeGroup ~application ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an attribute group with an application to augment the application's metadata with the group's attributes. This feature enables applications to be described with user-defined details that are machine-readable, such as third-party integrations."]