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.route53profiles
let apiVersion = "2018-05-10"
let endpointPrefix = "route53profiles"
let serviceFullName = "Route 53 Profiles"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" 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:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?!^[0-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:"Name" j
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ShareStatus =
  struct
    type nonrec t =
      | NOT_SHARED 
      | SHARED_WITH_ME 
      | SHARED_BY_ME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_SHARED -> "NOT_SHARED"
      | SHARED_WITH_ME -> "SHARED_WITH_ME"
      | SHARED_BY_ME -> "SHARED_BY_ME"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_SHARED" -> NOT_SHARED
      | "SHARED_WITH_ME" -> SHARED_WITH_ME
      | "SHARED_BY_ME" -> SHARED_BY_ME
      | 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 ShareStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min: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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module ProfileStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | DELETING 
      | UPDATING 
      | CREATING 
      | DELETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | CREATING -> "CREATING"
      | DELETED -> "DELETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | "CREATING" -> CREATING
      | "DELETED" -> DELETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ProfileStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProfileStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceProperties =
  struct
    type nonrec t = string
    let context_ = "ResourceProperties"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceProperties" j
    let to_json = simple_to_json to_value
  end
module Rfc3339Timestamp =
  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 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 TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module ProfileSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Profile."];
      id: ResourceId.t option [@ocaml.doc "ID of the Profile."];
      name: Name.t option [@ocaml.doc "Name of the Profile."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc "Share status of the Profile."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?shareStatus -> fun () -> { arn; id; name; shareStatus }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?shareStatus ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      make ?shareStatus ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a Route 53 Profile."]
module ProfileResourceAssociation =
  struct
    type nonrec t =
      {
      creationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile resource association was created, in Unix time format and Coordinated Universal Time (UTC)."];
      id: ResourceId.t option
        [@ocaml.doc "ID of the Profile resource association."];
      modificationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile resource association was modified, in Unix time format and Coordinated Universal Time (UTC)."];
      name: Name.t option
        [@ocaml.doc "Name of the Profile resource association."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "Amazon Web Services account ID of the Profile resource association owner."];
      profileId: ResourceId.t option
        [@ocaml.doc
          "Profile ID of the Profile that the resources are associated with."];
      resourceArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource association."];
      resourceProperties: ResourceProperties.t option
        [@ocaml.doc
          "If the DNS resource is a DNS Firewall rule group, this indicates the priority."];
      resourceType: String_.t option
        [@ocaml.doc
          "Resource type, such as a private hosted zone, or DNS Firewall rule group."];
      status: ProfileStatus.t option
        [@ocaml.doc "Status of the Profile resource association."];
      statusMessage: String_.t option
        [@ocaml.doc
          "Additional information about the Profile resource association."]}
    let make ?creationTime =
      fun ?id ->
        fun ?modificationTime ->
          fun ?name ->
            fun ?ownerId ->
              fun ?profileId ->
                fun ?resourceArn ->
                  fun ?resourceProperties ->
                    fun ?resourceType ->
                      fun ?status ->
                        fun ?statusMessage ->
                          fun () ->
                            {
                              creationTime;
                              id;
                              modificationTime;
                              name;
                              ownerId;
                              profileId;
                              resourceArn;
                              resourceProperties;
                              resourceType;
                              status;
                              statusMessage
                            }
    let to_value x =
      structure_to_value
        [("CreationTime",
           (Option.map x.creationTime ~f:Rfc3339Timestamp.to_value));
        ("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339Timestamp.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("ProfileId", (Option.map x.profileId ~f:ResourceId.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:Arn.to_value));
        ("ResourceProperties",
          (Option.map x.resourceProperties ~f:ResourceProperties.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:ProfileStatus.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ProfileStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceProperties =
        (Option.map ~f:ResourceProperties.of_xml)
          (Xml.child xml_arg0 "ResourceProperties") in
      let resourceArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let profileId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ProfileId") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let modificationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      let creationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?statusMessage ?status ?resourceType ?resourceProperties
        ?resourceArn ?profileId ?ownerId ?name ?modificationTime ?id
        ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" ProfileStatus.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceProperties =
        field_map json__ "ResourceProperties" ResourceProperties.of_json in
      let resourceArn = field_map json__ "ResourceArn" Arn.of_json in
      let profileId = field_map json__ "ProfileId" ResourceId.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339Timestamp.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339Timestamp.of_json in
      make ?statusMessage ?status ?resourceType ?resourceProperties
        ?resourceArn ?profileId ?ownerId ?name ?modificationTime ?id
        ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The association between a Route 53 Profile and resources."]
module ProfileAssociation =
  struct
    type nonrec t =
      {
      creationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile association was created, in Unix time format and Coordinated Universal Time (UTC)."];
      id: ResourceId.t option [@ocaml.doc "ID of the Profile association."];
      modificationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile association was modified, in Unix time format and Coordinated Universal Time (UTC)."];
      name: Name.t option [@ocaml.doc "Name of the Profile association."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "Amazon Web Services account ID of the Profile association owner."];
      profileId: ResourceId.t option [@ocaml.doc "ID of the Profile."];
      resourceId: ResourceId.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the VPC."];
      status: ProfileStatus.t option
        [@ocaml.doc "Status of the Profile association."];
      statusMessage: String_.t option
        [@ocaml.doc "Additional information about the Profile association."]}
    let make ?creationTime =
      fun ?id ->
        fun ?modificationTime ->
          fun ?name ->
            fun ?ownerId ->
              fun ?profileId ->
                fun ?resourceId ->
                  fun ?status ->
                    fun ?statusMessage ->
                      fun () ->
                        {
                          creationTime;
                          id;
                          modificationTime;
                          name;
                          ownerId;
                          profileId;
                          resourceId;
                          status;
                          statusMessage
                        }
    let to_value x =
      structure_to_value
        [("CreationTime",
           (Option.map x.creationTime ~f:Rfc3339Timestamp.to_value));
        ("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339Timestamp.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("ProfileId", (Option.map x.profileId ~f:ResourceId.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("Status", (Option.map x.status ~f:ProfileStatus.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ProfileStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let profileId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ProfileId") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let modificationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      let creationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?statusMessage ?status ?resourceId ?profileId ?ownerId ?name
        ?modificationTime ?id ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" ProfileStatus.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let profileId = field_map json__ "ProfileId" ResourceId.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339Timestamp.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339Timestamp.of_json in
      make ?statusMessage ?status ?resourceId ?profileId ?ownerId ?name
        ?modificationTime ?id ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An association between a Route 53 Profile and a VPC."]
module CreatorRequestId =
  struct
    type nonrec t = string
    let context_ = "CreatorRequestId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CreatorRequestId" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "Key associated with the Tag."];
      value: TagValue.t [@ocaml.doc "Value for the Tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tag for the Profile."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The current account doesn't have the IAM permissions required to perform the specified operation."]
module ConflictException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request you submitted conflicts with an existing request."]
module InternalServiceErrorException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal server error occured. Retry your request."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      fieldName: String_.t option
        [@ocaml.doc
          "The parameter field name for the invalid parameter exception."];
      message: ExceptionMessage.t option }
    let make ?fieldName = fun ?message -> fun () -> { fieldName; message }
    let to_value x =
      structure_to_value
        [("FieldName", (Option.map x.fieldName ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let fieldName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FieldName") in
      make ?message ?fieldName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      let fieldName = field_map json__ "FieldName" String_.of_json in
      make ?message ?fieldName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameters in this request are not valid."]
module LimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "The resource type that caused the limits to be exceeded."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request caused one or more limits to be exceeded."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "The resource type that caused the resource not found exception."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource you are associating is not found."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was throttled. Try again in a few minutes."]
module ValidationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You have provided an invalid command."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidNextTokenException =
  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 NextToken you provided isn;t valid."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ProfileSummaryList =
  struct
    type nonrec t = ProfileSummary.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:ProfileSummary.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:ProfileSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileSummaryList" ~of_json:ProfileSummary.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 ProfileResourceAssociations =
  struct
    type nonrec t = ProfileResourceAssociation.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:ProfileResourceAssociation.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:ProfileResourceAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileResourceAssociations"
        ~of_json:ProfileResourceAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProfileAssociations =
  struct
    type nonrec t = ProfileAssociation.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:ProfileAssociation.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:ProfileAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileAssociations"
        ~of_json:ProfileAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Profile =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Profile."];
      clientToken: CreatorRequestId.t option
        [@ocaml.doc
          "The ClientToken value that was assigned when the Profile was created."];
      creationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile was created, in Unix time format and Coordinated Universal Time (UTC)."];
      id: ResourceId.t option [@ocaml.doc "ID of the Profile."];
      modificationTime: Rfc3339Timestamp.t option
        [@ocaml.doc
          "The date and time that the Profile was modified, in Unix time format and Coordinated Universal Time (UTC)."];
      name: Name.t option [@ocaml.doc "Name of the Profile."];
      ownerId: AccountId.t option
        [@ocaml.doc "Amazon Web Services account ID of the Profile owner."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc "Sharing status for the Profile."];
      status: ProfileStatus.t option
        [@ocaml.doc "The status for the Profile."];
      statusMessage: String_.t option
        [@ocaml.doc
          "Status message that includes additiona information about the Profile."]}
    let make ?arn =
      fun ?clientToken ->
        fun ?creationTime ->
          fun ?id ->
            fun ?modificationTime ->
              fun ?name ->
                fun ?ownerId ->
                  fun ?shareStatus ->
                    fun ?status ->
                      fun ?statusMessage ->
                        fun () ->
                          {
                            arn;
                            clientToken;
                            creationTime;
                            id;
                            modificationTime;
                            name;
                            ownerId;
                            shareStatus;
                            status;
                            statusMessage
                          }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("ClientToken",
          (Option.map x.clientToken ~f:CreatorRequestId.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339Timestamp.to_value));
        ("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339Timestamp.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("Status", (Option.map x.status ~f:ProfileStatus.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ProfileStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let modificationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      let creationTime =
        (Option.map ~f:Rfc3339Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let clientToken =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?statusMessage ?status ?shareStatus ?ownerId ?name
        ?modificationTime ?id ?creationTime ?clientToken ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" ProfileStatus.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339Timestamp.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339Timestamp.of_json in
      let clientToken =
        field_map json__ "ClientToken" CreatorRequestId.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      make ?statusMessage ?status ?shareStatus ?ownerId ?name
        ?modificationTime ?id ?creationTime ?clientToken ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that includes settings for a Route 53 Profile."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceExistsException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "The resource type that caused the resource exists exception."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The resource you are trying to associate, has already been associated."]
module UpdateProfileResourceAssociationResponse =
  struct
    type nonrec t =
      {
      profileResourceAssociation: ProfileResourceAssociation.t option
        [@ocaml.doc
          "Information about the UpdateProfileResourceAssociation request, including a status message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileResourceAssociation =
      fun () -> { profileResourceAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ProfileResourceAssociation",
           (Option.map x.profileResourceAssociation
              ~f:ProfileResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociation =
        (Option.map ~f:ProfileResourceAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileResourceAssociation") in
      make ?profileResourceAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociation =
        field_map json__ "ProfileResourceAssociation"
          ProfileResourceAssociation.of_json in
      make ?profileResourceAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified Route 53 Profile resourse association."]
module UpdateProfileResourceAssociationRequest =
  struct
    type nonrec t =
      {
      name: Name.t option [@ocaml.doc "Name of the resource association."];
      profileResourceAssociationId: ResourceId.t
        [@ocaml.doc "ID of the resource association."];
      resourceProperties: ResourceProperties.t option
        [@ocaml.doc
          "If you are adding a DNS Firewall rule group, include also a priority. The priority indicates the processing order for the rule groups, starting with the priority assinged the lowest value. The allowed values for priority are between 100 and 9900."]}
    let context_ = "UpdateProfileResourceAssociationRequest"
    let make ?name =
      fun ?resourceProperties ->
        fun ~profileResourceAssociationId ->
          fun () ->
            { name; resourceProperties; profileResourceAssociationId }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:Name.to_value));
        ("ProfileResourceAssociationId",
          (Some (ResourceId.to_value x.profileResourceAssociationId)));
        ("ResourceProperties",
          (Option.map x.resourceProperties ~f:ResourceProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceProperties =
        (Option.map ~f:ResourceProperties.of_xml)
          (Xml.child xml_arg0 "ResourceProperties") in
      let profileResourceAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProfileResourceAssociationId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      make ?resourceProperties ~profileResourceAssociationId ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceProperties =
        field_map json__ "ResourceProperties" ResourceProperties.of_json in
      let profileResourceAssociationId =
        field_map_exn json__ "ProfileResourceAssociationId"
          ResourceId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      make ?resourceProperties ~profileResourceAssociationId ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified Route 53 Profile resourse association."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `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 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 one or more tags from a specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to remove tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags that you want to remove to 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 (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.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" TagKeyList.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 one or more tags from a specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds one or more tags to a specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to add tags to."];
      tags: TagMap.t
        [@ocaml.doc
          "The tags that you want to add to the specified 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 (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds one or more tags to a specified resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The tags that are associated with the resource that you specified in the ListTagsForResource request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that you associated with the specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to list the tags for."]}
    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 the tags that you associated with the specified resource."]
module ListProfilesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults resource associations match the specified criteria, you can submit another ListProfiles request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      profileSummaries: ProfileSummaryList.t option
        [@ocaml.doc "Summary information about the Profiles."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?profileSummaries -> fun () -> { nextToken; profileSummaries }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ProfileSummaries",
          (Option.map x.profileSummaries ~f:ProfileSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileSummaries =
        (Option.map ~f:ProfileSummaryList.of_xml)
          (Xml.child xml_arg0 "ProfileSummaries") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?profileSummaries ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileSummaries =
        field_map json__ "ProfileSummaries" ProfileSummaryList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?profileSummaries ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Route 53 Profiles associated with your Amazon Web Services account."]
module ListProfilesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want to return for this request. If more objects are available, in the response, a NextToken value, which you can use in a subsequent call to get the next batch of objects, is provided. If you don't specify a value for MaxResults, up to 100 objects are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, at most the number of objects specified by MaxResults is returned. If more objects are available for retrieval, a NextToken value is returned in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Route 53 Profiles associated with your Amazon Web Services account."]
module ListProfileResourceAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults resource associations match the specified criteria, you can submit another ListProfileResourceAssociations request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      profileResourceAssociations: ProfileResourceAssociations.t option
        [@ocaml.doc
          "Information about the profile resource association that you specified in a GetProfileResourceAssociation request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?profileResourceAssociations ->
        fun () -> { nextToken; profileResourceAssociations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ProfileResourceAssociations",
          (Option.map x.profileResourceAssociations
             ~f:ProfileResourceAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociations =
        (Option.map ~f:ProfileResourceAssociations.of_xml)
          (Xml.child xml_arg0 "ProfileResourceAssociations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?profileResourceAssociations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociations =
        field_map json__ "ProfileResourceAssociations"
          ProfileResourceAssociations.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?profileResourceAssociations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the resource associations for the specified Route 53 Profile."]
module ListProfileResourceAssociationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want to return for this request. If more objects are available, in the response, a NextToken value, which you can use in a subsequent call to get the next batch of objects, is provided. If you don't specify a value for MaxResults, up to 100 objects are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, at most the number of objects specified by MaxResults is returned. If more objects are available for retrieval, a NextToken value is returned in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."];
      profileId: ResourceId.t [@ocaml.doc "The ID of the Profile."];
      resourceType: String_.t option
        [@ocaml.doc
          "ID of a resource if you want information on only one type."]}
    let context_ = "ListProfileResourceAssociationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?resourceType ->
          fun ~profileId ->
            fun () -> { maxResults; nextToken; resourceType; profileId }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ProfileId", (Some (ResourceId.to_value x.profileId)));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?resourceType ~profileId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?resourceType ~profileId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the resource associations for the specified Route 53 Profile."]
module ListProfileAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults profile associations match the specified criteria, you can submit another ListProfileAssociations request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      profileAssociations: ProfileAssociations.t option
        [@ocaml.doc
          "A complex type that containts settings information about the profile's VPC associations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?profileAssociations ->
        fun () -> { nextToken; profileAssociations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ProfileAssociations",
          (Option.map x.profileAssociations ~f:ProfileAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileAssociations =
        (Option.map ~f:ProfileAssociations.of_xml)
          (Xml.child xml_arg0 "ProfileAssociations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?profileAssociations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileAssociations =
        field_map json__ "ProfileAssociations" ProfileAssociations.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?profileAssociations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the VPCs that the specified Route 53 Profile is associated with."]
module ListProfileAssociationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want to return for this request. If more objects are available, in the response, a NextToken value, which you can use in a subsequent call to get the next batch of objects, is provided. If you don't specify a value for MaxResults, up to 100 objects are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, at most the number of objects specified by MaxResults is returned. If more objects are available for retrieval, a NextToken value is returned in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."];
      profileId: ResourceId.t option [@ocaml.doc "ID of the Profile."];
      resourceId: ResourceId.t option [@ocaml.doc "ID of the VPC."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?profileId ->
          fun ?resourceId ->
            fun () -> { maxResults; nextToken; profileId; resourceId }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("profileId", (Option.map x.profileId ~f:ResourceId.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let profileId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "profileId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?resourceId ?profileId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let profileId = field_map json__ "ProfileId" ResourceId.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?resourceId ?profileId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the VPCs that the specified Route 53 Profile is associated with."]
module GetProfileResponse =
  struct
    type nonrec t =
      {
      profile: Profile.t option
        [@ocaml.doc
          "Information about the Profile, including the status of the Profile."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profile = fun () -> { profile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("Profile", (Option.map x.profile ~f:Profile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profile =
        (Option.map ~f:Profile.of_xml) (Xml.child xml_arg0 "Profile") in
      make ?profile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profile = field_map json__ "Profile" Profile.of_json in
      make ?profile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified Route 53 Profile, such as whether whether the Profile is shared, and the current status of the Profile."]
module GetProfileResourceAssociationResponse =
  struct
    type nonrec t =
      {
      profileResourceAssociation: ProfileResourceAssociation.t option
        [@ocaml.doc
          "Information about the Profile resource association that you specified in a GetProfileResourceAssociation request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileResourceAssociation =
      fun () -> { profileResourceAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("ProfileResourceAssociation",
           (Option.map x.profileResourceAssociation
              ~f:ProfileResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociation =
        (Option.map ~f:ProfileResourceAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileResourceAssociation") in
      make ?profileResourceAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociation =
        field_map json__ "ProfileResourceAssociation"
          ProfileResourceAssociation.of_json in
      make ?profileResourceAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified Route 53 Profile resource association."]
module GetProfileResourceAssociationRequest =
  struct
    type nonrec t =
      {
      profileResourceAssociationId: ResourceId.t
        [@ocaml.doc
          "The ID of the profile resource association that you want to get information about."]}
    let context_ = "GetProfileResourceAssociationRequest"
    let make ~profileResourceAssociationId =
      fun () -> { profileResourceAssociationId }
    let to_value x =
      structure_to_value
        [("ProfileResourceAssociationId",
           (Some (ResourceId.to_value x.profileResourceAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProfileResourceAssociationId") in
      make ~profileResourceAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociationId =
        field_map_exn json__ "ProfileResourceAssociationId"
          ResourceId.of_json in
      make ~profileResourceAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified Route 53 Profile resource association."]
module GetProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ResourceId.t [@ocaml.doc "ID of the Profile."]}
    let context_ = "GetProfileRequest"
    let make ~profileId = fun () -> { profileId }
    let to_value x =
      structure_to_value
        [("ProfileId", (Some (ResourceId.to_value x.profileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      make ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      make ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified Route 53 Profile, such as whether whether the Profile is shared, and the current status of the Profile."]
module GetProfileAssociationResponse =
  struct
    type nonrec t =
      {
      profileAssociation: ProfileAssociation.t option
        [@ocaml.doc
          "Information about the Profile association that you specified in a GetProfileAssociation request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileAssociation = fun () -> { profileAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("ProfileAssociation",
           (Option.map x.profileAssociation ~f:ProfileAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileAssociation =
        (Option.map ~f:ProfileAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileAssociation") in
      make ?profileAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileAssociation =
        field_map json__ "ProfileAssociation" ProfileAssociation.of_json in
      make ?profileAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a Route 53 Profile association for a VPC. A VPC can have only one Profile association, but a Profile can be associated with up to 5000 VPCs."]
module GetProfileAssociationRequest =
  struct
    type nonrec t =
      {
      profileAssociationId: ResourceId.t
        [@ocaml.doc
          "The identifier of the association you want to get information about."]}
    let context_ = "GetProfileAssociationRequest"
    let make ~profileAssociationId = fun () -> { profileAssociationId }
    let to_value x =
      structure_to_value
        [("ProfileAssociationId",
           (Some (ResourceId.to_value x.profileAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileAssociationId") in
      make ~profileAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileAssociationId =
        field_map_exn json__ "ProfileAssociationId" ResourceId.of_json in
      make ~profileAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a Route 53 Profile association for a VPC. A VPC can have only one Profile association, but a Profile can be associated with up to 5000 VPCs."]
module DisassociateResourceFromProfileResponse =
  struct
    type nonrec t =
      {
      profileResourceAssociation: ProfileResourceAssociation.t option
        [@ocaml.doc
          "Information about the DisassociateResourceFromProfile request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileResourceAssociation =
      fun () -> { profileResourceAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ProfileResourceAssociation",
           (Option.map x.profileResourceAssociation
              ~f:ProfileResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociation =
        (Option.map ~f:ProfileResourceAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileResourceAssociation") in
      make ?profileResourceAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociation =
        field_map json__ "ProfileResourceAssociation"
          ProfileResourceAssociation.of_json in
      make ?profileResourceAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Dissoaciated a specified resource, from the Route 53 Profile."]
module DisassociateResourceFromProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ResourceId.t [@ocaml.doc "The ID of the Profile."];
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "DisassociateResourceFromProfileRequest"
    let make ~profileId =
      fun ~resourceArn -> fun () -> { profileId; resourceArn }
    let to_value x =
      structure_to_value
        [("ProfileId", (Some (ResourceId.to_value x.profileId)));
        ("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
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      make ~resourceArn ~profileId ()
    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
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      make ~resourceArn ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Dissoaciated a specified resource, from the Route 53 Profile."]
module DisassociateProfileResponse =
  struct
    type nonrec t =
      {
      profileAssociation: ProfileAssociation.t option
        [@ocaml.doc "Information about the DisassociateProfile request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileAssociation = fun () -> { profileAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ProfileAssociation",
           (Option.map x.profileAssociation ~f:ProfileAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileAssociation =
        (Option.map ~f:ProfileAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileAssociation") in
      make ?profileAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileAssociation =
        field_map json__ "ProfileAssociation" ProfileAssociation.of_json in
      make ?profileAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Dissociates a specified Route 53 Profile from the specified VPC."]
module DisassociateProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ResourceId.t [@ocaml.doc "ID of the Profile."];
      resourceId: ResourceId.t [@ocaml.doc "The ID of the VPC."]}
    let context_ = "DisassociateProfileRequest"
    let make ~profileId =
      fun ~resourceId -> fun () -> { profileId; resourceId }
    let to_value x =
      structure_to_value
        [("ProfileId", (Some (ResourceId.to_value x.profileId)));
        ("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      make ~resourceId ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      make ~resourceId ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Dissociates a specified Route 53 Profile from the specified VPC."]
module DeleteProfileResponse =
  struct
    type nonrec t =
      {
      profile: Profile.t option
        [@ocaml.doc
          "Information about the DeleteProfile request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profile = fun () -> { profile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `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
        [("Profile", (Option.map x.profile ~f:Profile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profile =
        (Option.map ~f:Profile.of_xml) (Xml.child xml_arg0 "Profile") in
      make ?profile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profile = field_map json__ "Profile" Profile.of_json in
      make ?profile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Route 53 Profile. Before you can delete a profile, you must first disassociate it from all VPCs."]
module DeleteProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ResourceId.t
        [@ocaml.doc "The ID of the Profile that you want to delete."]}
    let context_ = "DeleteProfileRequest"
    let make ~profileId = fun () -> { profileId }
    let to_value x =
      structure_to_value
        [("ProfileId", (Some (ResourceId.to_value x.profileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      make ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      make ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Route 53 Profile. Before you can delete a profile, you must first disassociate it from all VPCs."]
module CreateProfileResponse =
  struct
    type nonrec t =
      {
      profile: Profile.t option
        [@ocaml.doc "The Profile that you just created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profile = fun () -> { profile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("Profile", (Option.map x.profile ~f:Profile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profile =
        (Option.map ~f:Profile.of_xml) (Xml.child xml_arg0 "Profile") in
      make ?profile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profile = field_map json__ "Profile" Profile.of_json in
      make ?profile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an empty Route 53 Profile."]
module CreateProfileRequest =
  struct
    type nonrec t =
      {
      clientToken: CreatorRequestId.t
        [@ocaml.doc
          "ClientToken is an idempotency token that ensures a call to CreateProfile completes only once. You choose the value to pass. For example, an issue might prevent you from getting a response from CreateProfile. In this case, safely retry your call to CreateProfile by using the same CreateProfile parameter value."];
      name: Name.t [@ocaml.doc "A name for the Profile."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the Route 53 Profile."]}
    let context_ = "CreateProfileRequest"
    let make ?tags =
      fun ~clientToken -> fun ~name -> fun () -> { tags; clientToken; name }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (CreatorRequestId.to_value x.clientToken)));
        ("Name", (Some (Name.to_value x.name)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let clientToken =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      make ?tags ~name ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" CreatorRequestId.of_json in
      make ?tags ~name ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an empty Route 53 Profile."]
module AssociateResourceToProfileResponse =
  struct
    type nonrec t =
      {
      profileResourceAssociation: ProfileResourceAssociation.t option
        [@ocaml.doc
          "Infromation about the AssociateResourceToProfile, including a status message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileResourceAssociation =
      fun () -> { profileResourceAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ProfileResourceAssociation",
           (Option.map x.profileResourceAssociation
              ~f:ProfileResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileResourceAssociation =
        (Option.map ~f:ProfileResourceAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileResourceAssociation") in
      make ?profileResourceAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileResourceAssociation =
        field_map json__ "ProfileResourceAssociation"
          ProfileResourceAssociation.of_json in
      make ?profileResourceAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a DNS reource configuration to a Route 53 Profile."]
module AssociateResourceToProfileRequest =
  struct
    type nonrec t =
      {
      name: Name.t [@ocaml.doc "Name for the resource association."];
      profileId: ResourceId.t [@ocaml.doc "ID of the Profile."];
      resourceArn: Arn.t
        [@ocaml.doc "Amazon resource number, ARN, of the DNS resource."];
      resourceProperties: ResourceProperties.t option
        [@ocaml.doc
          "If you are adding a DNS Firewall rule group, include also a priority. The priority indicates the processing order for the rule groups, starting with the priority assinged the lowest value. The allowed values for priority are between 100 and 9900."]}
    let context_ = "AssociateResourceToProfileRequest"
    let make ?resourceProperties =
      fun ~name ->
        fun ~profileId ->
          fun ~resourceArn ->
            fun () -> { resourceProperties; name; profileId; resourceArn }
    let to_value x =
      structure_to_value
        [("Name", (Some (Name.to_value x.name)));
        ("ProfileId", (Some (ResourceId.to_value x.profileId)));
        ("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("ResourceProperties",
          (Option.map x.resourceProperties ~f:ResourceProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceProperties =
        (Option.map ~f:ResourceProperties.of_xml)
          (Xml.child xml_arg0 "ResourceProperties") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?resourceProperties ~resourceArn ~profileId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceProperties =
        field_map json__ "ResourceProperties" ResourceProperties.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      make ?resourceProperties ~resourceArn ~profileId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a DNS reource configuration to a Route 53 Profile."]
module AssociateProfileResponse =
  struct
    type nonrec t =
      {
      profileAssociation: ProfileAssociation.t option
        [@ocaml.doc
          "The association that you just created. The association has an ID that you can use to identify it in other requests, like update and delete."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileAssociation = fun () -> { profileAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.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
        [("ProfileAssociation",
           (Option.map x.profileAssociation ~f:ProfileAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileAssociation =
        (Option.map ~f:ProfileAssociation.of_xml)
          (Xml.child xml_arg0 "ProfileAssociation") in
      make ?profileAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileAssociation =
        field_map json__ "ProfileAssociation" ProfileAssociation.of_json in
      make ?profileAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Route 53 Profiles profile with a VPC. A VPC can have only one Profile associated with it, but a Profile can be associated with 1000 of VPCs (and you can request a higher quota). For more information, see https://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html#limits-api-entities."]
module AssociateProfileRequest =
  struct
    type nonrec t =
      {
      name: Name.t [@ocaml.doc "A name for the association."];
      profileId: ResourceId.t [@ocaml.doc "ID of the Profile."];
      resourceId: ResourceId.t [@ocaml.doc "The ID of the VPC."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to identify the Profile association."]}
    let context_ = "AssociateProfileRequest"
    let make ?tags =
      fun ~name ->
        fun ~profileId ->
          fun ~resourceId -> fun () -> { tags; name; profileId; resourceId }
    let to_value x =
      structure_to_value
        [("Name", (Some (Name.to_value x.name)));
        ("ProfileId", (Some (ResourceId.to_value x.profileId)));
        ("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let profileId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProfileId") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~resourceId ~profileId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      let profileId = field_map_exn json__ "ProfileId" ResourceId.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      make ?tags ~resourceId ~profileId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Route 53 Profiles profile with a VPC. A VPC can have only one Profile associated with it, but a Profile can be associated with 1000 of VPCs (and you can request a higher quota). For more information, see https://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html#limits-api-entities."]