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.route53domains
let apiVersion = "2014-05-15"
let endpointPrefix = "route53domains"
let serviceFullName = "Amazon Route 53 Domains"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "Route53Domains_v20140515"
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 GlueIp =
  struct
    type nonrec t = string
    let context_ = "GlueIp"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:45); 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:"GlueIp" j
    let to_json = simple_to_json to_value
  end
module ExtraParamName =
  struct
    type nonrec t =
      | DUNS_NUMBER 
      | BRAND_NUMBER 
      | BIRTH_DEPARTMENT 
      | BIRTH_DATE_IN_YYYY_MM_DD 
      | BIRTH_COUNTRY 
      | BIRTH_CITY 
      | DOCUMENT_NUMBER 
      | AU_ID_NUMBER 
      | AU_ID_TYPE 
      | CA_LEGAL_TYPE 
      | CA_BUSINESS_ENTITY_TYPE 
      | CA_LEGAL_REPRESENTATIVE 
      | CA_LEGAL_REPRESENTATIVE_CAPACITY 
      | ES_IDENTIFICATION 
      | ES_IDENTIFICATION_TYPE 
      | ES_LEGAL_FORM 
      | FI_BUSINESS_NUMBER 
      | FI_ID_NUMBER 
      | FI_NATIONALITY 
      | FI_ORGANIZATION_TYPE 
      | IT_NATIONALITY 
      | IT_PIN 
      | IT_REGISTRANT_ENTITY_TYPE 
      | RU_PASSPORT_DATA 
      | SE_ID_NUMBER 
      | SG_ID_NUMBER 
      | VAT_NUMBER 
      | UK_CONTACT_TYPE 
      | UK_COMPANY_NUMBER 
      | EU_COUNTRY_OF_CITIZENSHIP 
      | AU_PRIORITY_TOKEN 
      | AU_ELIGIBILITY_TYPE 
      | AU_POLICY_REASON 
      | AU_REGISTRANT_NAME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DUNS_NUMBER -> "DUNS_NUMBER"
      | BRAND_NUMBER -> "BRAND_NUMBER"
      | BIRTH_DEPARTMENT -> "BIRTH_DEPARTMENT"
      | BIRTH_DATE_IN_YYYY_MM_DD -> "BIRTH_DATE_IN_YYYY_MM_DD"
      | BIRTH_COUNTRY -> "BIRTH_COUNTRY"
      | BIRTH_CITY -> "BIRTH_CITY"
      | DOCUMENT_NUMBER -> "DOCUMENT_NUMBER"
      | AU_ID_NUMBER -> "AU_ID_NUMBER"
      | AU_ID_TYPE -> "AU_ID_TYPE"
      | CA_LEGAL_TYPE -> "CA_LEGAL_TYPE"
      | CA_BUSINESS_ENTITY_TYPE -> "CA_BUSINESS_ENTITY_TYPE"
      | CA_LEGAL_REPRESENTATIVE -> "CA_LEGAL_REPRESENTATIVE"
      | CA_LEGAL_REPRESENTATIVE_CAPACITY ->
          "CA_LEGAL_REPRESENTATIVE_CAPACITY"
      | ES_IDENTIFICATION -> "ES_IDENTIFICATION"
      | ES_IDENTIFICATION_TYPE -> "ES_IDENTIFICATION_TYPE"
      | ES_LEGAL_FORM -> "ES_LEGAL_FORM"
      | FI_BUSINESS_NUMBER -> "FI_BUSINESS_NUMBER"
      | FI_ID_NUMBER -> "FI_ID_NUMBER"
      | FI_NATIONALITY -> "FI_NATIONALITY"
      | FI_ORGANIZATION_TYPE -> "FI_ORGANIZATION_TYPE"
      | IT_NATIONALITY -> "IT_NATIONALITY"
      | IT_PIN -> "IT_PIN"
      | IT_REGISTRANT_ENTITY_TYPE -> "IT_REGISTRANT_ENTITY_TYPE"
      | RU_PASSPORT_DATA -> "RU_PASSPORT_DATA"
      | SE_ID_NUMBER -> "SE_ID_NUMBER"
      | SG_ID_NUMBER -> "SG_ID_NUMBER"
      | VAT_NUMBER -> "VAT_NUMBER"
      | UK_CONTACT_TYPE -> "UK_CONTACT_TYPE"
      | UK_COMPANY_NUMBER -> "UK_COMPANY_NUMBER"
      | EU_COUNTRY_OF_CITIZENSHIP -> "EU_COUNTRY_OF_CITIZENSHIP"
      | AU_PRIORITY_TOKEN -> "AU_PRIORITY_TOKEN"
      | AU_ELIGIBILITY_TYPE -> "AU_ELIGIBILITY_TYPE"
      | AU_POLICY_REASON -> "AU_POLICY_REASON"
      | AU_REGISTRANT_NAME -> "AU_REGISTRANT_NAME"
      | Non_static_id s -> s
    let of_string =
      function
      | "DUNS_NUMBER" -> DUNS_NUMBER
      | "BRAND_NUMBER" -> BRAND_NUMBER
      | "BIRTH_DEPARTMENT" -> BIRTH_DEPARTMENT
      | "BIRTH_DATE_IN_YYYY_MM_DD" -> BIRTH_DATE_IN_YYYY_MM_DD
      | "BIRTH_COUNTRY" -> BIRTH_COUNTRY
      | "BIRTH_CITY" -> BIRTH_CITY
      | "DOCUMENT_NUMBER" -> DOCUMENT_NUMBER
      | "AU_ID_NUMBER" -> AU_ID_NUMBER
      | "AU_ID_TYPE" -> AU_ID_TYPE
      | "CA_LEGAL_TYPE" -> CA_LEGAL_TYPE
      | "CA_BUSINESS_ENTITY_TYPE" -> CA_BUSINESS_ENTITY_TYPE
      | "CA_LEGAL_REPRESENTATIVE" -> CA_LEGAL_REPRESENTATIVE
      | "CA_LEGAL_REPRESENTATIVE_CAPACITY" ->
          CA_LEGAL_REPRESENTATIVE_CAPACITY
      | "ES_IDENTIFICATION" -> ES_IDENTIFICATION
      | "ES_IDENTIFICATION_TYPE" -> ES_IDENTIFICATION_TYPE
      | "ES_LEGAL_FORM" -> ES_LEGAL_FORM
      | "FI_BUSINESS_NUMBER" -> FI_BUSINESS_NUMBER
      | "FI_ID_NUMBER" -> FI_ID_NUMBER
      | "FI_NATIONALITY" -> FI_NATIONALITY
      | "FI_ORGANIZATION_TYPE" -> FI_ORGANIZATION_TYPE
      | "IT_NATIONALITY" -> IT_NATIONALITY
      | "IT_PIN" -> IT_PIN
      | "IT_REGISTRANT_ENTITY_TYPE" -> IT_REGISTRANT_ENTITY_TYPE
      | "RU_PASSPORT_DATA" -> RU_PASSPORT_DATA
      | "SE_ID_NUMBER" -> SE_ID_NUMBER
      | "SG_ID_NUMBER" -> SG_ID_NUMBER
      | "VAT_NUMBER" -> VAT_NUMBER
      | "UK_CONTACT_TYPE" -> UK_CONTACT_TYPE
      | "UK_COMPANY_NUMBER" -> UK_COMPANY_NUMBER
      | "EU_COUNTRY_OF_CITIZENSHIP" -> EU_COUNTRY_OF_CITIZENSHIP
      | "AU_PRIORITY_TOKEN" -> AU_PRIORITY_TOKEN
      | "AU_ELIGIBILITY_TYPE" -> AU_ELIGIBILITY_TYPE
      | "AU_POLICY_REASON" -> AU_POLICY_REASON
      | "AU_REGISTRANT_NAME" -> AU_REGISTRANT_NAME
      | 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 ExtraParamName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExtraParamName" j)
    let to_json = simple_to_json to_value
  end
module ExtraParamValue =
  struct
    type nonrec t = string
    let context_ = "ExtraParamValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2048); 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:"ExtraParamValue" j
    let to_json = simple_to_json to_value
  end
module Currency =
  struct
    type nonrec t = string
    let context_ = "Currency"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Currency" j
    let to_json = simple_to_json to_value
  end
module Price =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:0.); i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Value" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"DomainName" j
    let to_json = simple_to_json to_value
  end
module InvoiceId =
  struct
    type nonrec t = string
    let context_ = "InvoiceId"
    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:"InvoiceId" j
    let to_json = simple_to_json to_value
  end
module OperationType =
  struct
    type nonrec t =
      | REGISTER_DOMAIN 
      | DELETE_DOMAIN 
      | TRANSFER_IN_DOMAIN 
      | UPDATE_DOMAIN_CONTACT 
      | UPDATE_NAMESERVER 
      | CHANGE_PRIVACY_PROTECTION 
      | DOMAIN_LOCK 
      | ENABLE_AUTORENEW 
      | DISABLE_AUTORENEW 
      | ADD_DNSSEC 
      | REMOVE_DNSSEC 
      | EXPIRE_DOMAIN 
      | TRANSFER_OUT_DOMAIN 
      | CHANGE_DOMAIN_OWNER 
      | RENEW_DOMAIN 
      | PUSH_DOMAIN 
      | INTERNAL_TRANSFER_OUT_DOMAIN 
      | INTERNAL_TRANSFER_IN_DOMAIN 
      | RELEASE_TO_GANDI 
      | TRANSFER_ON_RENEW 
      | RESTORE_DOMAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGISTER_DOMAIN -> "REGISTER_DOMAIN"
      | DELETE_DOMAIN -> "DELETE_DOMAIN"
      | TRANSFER_IN_DOMAIN -> "TRANSFER_IN_DOMAIN"
      | UPDATE_DOMAIN_CONTACT -> "UPDATE_DOMAIN_CONTACT"
      | UPDATE_NAMESERVER -> "UPDATE_NAMESERVER"
      | CHANGE_PRIVACY_PROTECTION -> "CHANGE_PRIVACY_PROTECTION"
      | DOMAIN_LOCK -> "DOMAIN_LOCK"
      | ENABLE_AUTORENEW -> "ENABLE_AUTORENEW"
      | DISABLE_AUTORENEW -> "DISABLE_AUTORENEW"
      | ADD_DNSSEC -> "ADD_DNSSEC"
      | REMOVE_DNSSEC -> "REMOVE_DNSSEC"
      | EXPIRE_DOMAIN -> "EXPIRE_DOMAIN"
      | TRANSFER_OUT_DOMAIN -> "TRANSFER_OUT_DOMAIN"
      | CHANGE_DOMAIN_OWNER -> "CHANGE_DOMAIN_OWNER"
      | RENEW_DOMAIN -> "RENEW_DOMAIN"
      | PUSH_DOMAIN -> "PUSH_DOMAIN"
      | INTERNAL_TRANSFER_OUT_DOMAIN -> "INTERNAL_TRANSFER_OUT_DOMAIN"
      | INTERNAL_TRANSFER_IN_DOMAIN -> "INTERNAL_TRANSFER_IN_DOMAIN"
      | RELEASE_TO_GANDI -> "RELEASE_TO_GANDI"
      | TRANSFER_ON_RENEW -> "TRANSFER_ON_RENEW"
      | RESTORE_DOMAIN -> "RESTORE_DOMAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGISTER_DOMAIN" -> REGISTER_DOMAIN
      | "DELETE_DOMAIN" -> DELETE_DOMAIN
      | "TRANSFER_IN_DOMAIN" -> TRANSFER_IN_DOMAIN
      | "UPDATE_DOMAIN_CONTACT" -> UPDATE_DOMAIN_CONTACT
      | "UPDATE_NAMESERVER" -> UPDATE_NAMESERVER
      | "CHANGE_PRIVACY_PROTECTION" -> CHANGE_PRIVACY_PROTECTION
      | "DOMAIN_LOCK" -> DOMAIN_LOCK
      | "ENABLE_AUTORENEW" -> ENABLE_AUTORENEW
      | "DISABLE_AUTORENEW" -> DISABLE_AUTORENEW
      | "ADD_DNSSEC" -> ADD_DNSSEC
      | "REMOVE_DNSSEC" -> REMOVE_DNSSEC
      | "EXPIRE_DOMAIN" -> EXPIRE_DOMAIN
      | "TRANSFER_OUT_DOMAIN" -> TRANSFER_OUT_DOMAIN
      | "CHANGE_DOMAIN_OWNER" -> CHANGE_DOMAIN_OWNER
      | "RENEW_DOMAIN" -> RENEW_DOMAIN
      | "PUSH_DOMAIN" -> PUSH_DOMAIN
      | "INTERNAL_TRANSFER_OUT_DOMAIN" -> INTERNAL_TRANSFER_OUT_DOMAIN
      | "INTERNAL_TRANSFER_IN_DOMAIN" -> INTERNAL_TRANSFER_IN_DOMAIN
      | "RELEASE_TO_GANDI" -> RELEASE_TO_GANDI
      | "TRANSFER_ON_RENEW" -> TRANSFER_ON_RENEW
      | "RESTORE_DOMAIN" -> RESTORE_DOMAIN
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration OperationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationType" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module 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 GlueIpList =
  struct
    type nonrec t = GlueIp.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:GlueIp.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:GlueIp.of_xml)
    let of_json j = list_of_json ~kind:"GlueIpList" ~of_json:GlueIp.of_json j
    let to_json v = composed_to_json to_value v
  end
module HostName =
  struct
    type nonrec t = string
    let context_ = "HostName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_\\-.]*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HostName" j
    let to_json = simple_to_json to_value
  end
module ExtraParam =
  struct
    type nonrec t =
      {
      name: ExtraParamName.t
        [@ocaml.doc
          "The name of an additional parameter that is required by a top-level domain. Here are the top-level domains that require additional parameters and the names of the parameters that they require: .au, .com.au, and .net.au AU_REGISTRANT_NAME AU_ID_NUMBER AU_ID_TYPE Valid values include the following: ABN (Australian business number) ACN (Australian company number) TM (Trademark number) AU_ELIGIBILITY_TYPE Valid values include the following: CHARITABLE_TRUST (Charitable trust) CHARITY (Charity) CHILD_CARE_CENTRE (Child care centre) CLUB (Club) COMMERCIAL_STATUTORY_BODY (Commercial statutory body) COMMONWEALTH_ENTITY (Commonwealth entity) COMPANY (Company) COMPANY_LIMITED_BY_GUARANTEE (Company limited by guarantee) EDUCATIONAL_INSTITUTION (Educational institution) GOVERNMENT_SCHOOL (Government school) HIGHER_EDUCATION_INSTITUTION (Higher education institution) INCORPORATED_ASSOCIATION (Incorporated association) INDIGENOUS_CORPORATION (Indigenous corporation) INDUSTRY_BODY (Industry body) INDUSTRY_ORGANISATION (Industry association) NATIONAL_BODY (National body) NON_DISTRIBUTING_COOPERATIVE (Non-distributing cooperative) NON_GOVERNMENT_SCHOOL (Non-government school) NON_PROFIT_ORGANISATION (Non-profit organisation) NON_TRADING_COOPERATIVE (Non-trading cooperative) NOT_FOR_PROFIT_COMMUNITY_GROUP (Not-for-profit community group) PARTNERSHIP (Partnership) PEAK_STATE_TERRITORY_BODY (Peak state/territory body) PENDING_TM_OWNER (Pending TM owner) POLITICAL_PARTY (Political party) PRESCHOOL (Pre-school) PUBLIC_PRIVATE_ANCILLARY_FUND (Public/private ancillary fund) REGISTERED_BUSINESS (Registered business) REGISTERED_ORGANISATION (Registered organisation) REGISTRABLE_BODY (Registrable body) RESEARCH_ORGANISATION (Research organisation) STATUTORY_BODY (Statutory body) TRADE_UNION (Trade union) TRADEMARK_OWNER (Trademark owner) TRADING_COOPERATIVE (Trading cooperative) TRAINING_ORGANISATION (Training organisation) TRUST (Trust) UNINCORPORATED_ASSOCIATION (Unincorporated association) EDUCATION_AND_CARE_SERVICES_CHILDCARE (Education and care services (child care)) GOVERNMENT_BODY (Government body) PROVIDER_OF_NON_ACCREDITED_TRAINING (Provider of non-accredited training) RELIGIOUS_CHURCH_GROUP (Religious/church group) SOLE_TRADER (Sole trader) AU_POLICY_REASON Valid values include the following: POLICY_REASON_1 POLICY_REASON_2 .ca BRAND_NUMBER CA_BUSINESS_ENTITY_TYPE Valid values include the following: BANK (Bank) COMMERCIAL_COMPANY (Commercial company) COMPANY (Company) COOPERATION (Cooperation) COOPERATIVE (Cooperative) COOPRIX (Cooprix) CORP (Corporation) CREDIT_UNION (Credit union) FOMIA (Federation of mutual insurance associations) INC (Incorporated) LTD (Limited) LTEE (Limit\195\169e) LLC (Limited liability corporation) LLP (Limited liability partnership) LTE (Lte.) MBA (Mutual benefit association) MIC (Mutual insurance company) NFP (Not-for-profit corporation) SA (S.A.) SAVINGS_COMPANY (Savings company) SAVINGS_UNION (Savings union) SARL (Soci\195\169t\195\169 \195\160 responsabilit\195\169 limit\195\169e) TRUST (Trust) ULC (Unlimited liability corporation) CA_LEGAL_TYPE When ContactType is PERSON, valid values include the following: ABO (Aboriginal Peoples indigenous to Canada) CCT (Canadian citizen) LGR (Legal Representative of a Canadian Citizen or Permanent Resident) RES (Permanent resident of Canada) When ContactType is a value other than PERSON, valid values include the following: ASS (Canadian unincorporated association) CCO (Canadian corporation) EDU (Canadian educational institution) GOV (Government or government entity in Canada) HOP (Canadian Hospital) INB (Indian Band recognized by the Indian Act of Canada) LAM (Canadian Library, Archive, or Museum) MAJ (Her/His Majesty the Queen/King) OMK (Official mark registered in Canada) PLT (Canadian Political Party) PRT (Partnership Registered in Canada) TDM (Trademark registered in Canada) TRD (Canadian Trade Union) TRS (Trust established in Canada) .es ES_IDENTIFICATION The value of ES_IDENTIFICATION depends on the following values: The value of ES_LEGAL_FORM The value of ES_IDENTIFICATION_TYPE If ES_LEGAL_FORM is any value other than INDIVIDUAL: Specify 1 letter + 8 numbers (CIF \\[Certificado de Identificaci\195\179n Fiscal\\]) Example: B12345678 If ES_LEGAL_FORM is INDIVIDUAL, the value that you specify for ES_IDENTIFICATION depends on the value of ES_IDENTIFICATION_TYPE: If ES_IDENTIFICATION_TYPE is DNI_AND_NIF (for Spanish contacts): Specify 8 numbers + 1 letter (DNI \\[Documento Nacional de Identidad\\], NIF \\[N\195\186mero de Identificaci\195\179n Fiscal\\]) Example: 12345678M If ES_IDENTIFICATION_TYPE is NIE (for foreigners with legal residence): Specify 1 letter + 7 numbers + 1 letter ( NIE \\[N\195\186mero de Identidad de Extranjero\\]) Example: Y1234567X If ES_IDENTIFICATION_TYPE is OTHER (for contacts outside of Spain): Specify a passport number, drivers license number, or national identity card number ES_IDENTIFICATION_TYPE Valid values include the following: DNI_AND_NIF (For Spanish contacts) NIE (For foreigners with legal residence) OTHER (For contacts outside of Spain) ES_LEGAL_FORM Valid values include the following: ASSOCIATION CENTRAL_GOVERNMENT_BODY CIVIL_SOCIETY COMMUNITY_OF_OWNERS COMMUNITY_PROPERTY CONSULATE COOPERATIVE DESIGNATION_OF_ORIGIN_SUPERVISORY_COUNCIL ECONOMIC_INTEREST_GROUP EMBASSY ENTITY_MANAGING_NATURAL_AREAS FARM_PARTNERSHIP FOUNDATION GENERAL_AND_LIMITED_PARTNERSHIP GENERAL_PARTNERSHIP INDIVIDUAL LIMITED_COMPANY LOCAL_AUTHORITY LOCAL_PUBLIC_ENTITY MUTUAL_INSURANCE_COMPANY NATIONAL_PUBLIC_ENTITY ORDER_OR_RELIGIOUS_INSTITUTION OTHERS (Only for contacts outside of Spain) POLITICAL_PARTY PROFESSIONAL_ASSOCIATION PUBLIC_LAW_ASSOCIATION PUBLIC_LIMITED_COMPANY REGIONAL_GOVERNMENT_BODY REGIONAL_PUBLIC_ENTITY SAVINGS_BANK SPANISH_OFFICE SPORTS_ASSOCIATION SPORTS_FEDERATION SPORTS_LIMITED_COMPANY TEMPORARY_ALLIANCE_OF_ENTERPRISES TRADE_UNION WORKER_OWNED_COMPANY WORKER_OWNED_LIMITED_COMPANY .eu EU_COUNTRY_OF_CITIZENSHIP .fi BIRTH_DATE_IN_YYYY_MM_DD FI_BUSINESS_NUMBER FI_ID_NUMBER FI_NATIONALITY Valid values include the following: FINNISH NOT_FINNISH FI_ORGANIZATION_TYPE Valid values include the following: COMPANY CORPORATION GOVERNMENT INSTITUTION POLITICAL_PARTY PUBLIC_COMMUNITY TOWNSHIP .it IT_NATIONALITY IT_PIN IT_REGISTRANT_ENTITY_TYPE Valid values include the following: FOREIGNERS FREELANCE_WORKERS (Freelance workers and professionals) ITALIAN_COMPANIES (Italian companies and one-person companies) NON_PROFIT_ORGANIZATIONS OTHER_SUBJECTS PUBLIC_ORGANIZATIONS .ru BIRTH_DATE_IN_YYYY_MM_DD RU_PASSPORT_DATA .se BIRTH_COUNTRY SE_ID_NUMBER .sg SG_ID_NUMBER .uk, .co.uk, .me.uk, and .org.uk UK_CONTACT_TYPE Valid values include the following: CRC (UK Corporation by Royal Charter) FCORP (Non-UK Corporation) FIND (Non-UK Individual, representing self) FOTHER (Non-UK Entity that does not fit into any other category) GOV (UK Government Body) IND (UK Individual (representing self)) IP (UK Industrial/Provident Registered Company) LLP (UK Limited Liability Partnership) LTD (UK Limited Company) OTHER (UK Entity that does not fit into any other category) PLC (UK Public Limited Company) PTNR (UK Partnership) RCHAR (UK Registered Charity) SCH (UK School) STAT (UK Statutory Body) STRA (UK Sole Trader) UK_COMPANY_NUMBER In addition, many TLDs require a VAT_NUMBER."];
      value: ExtraParamValue.t
        [@ocaml.doc
          "The value that corresponds with the name of an extra parameter."]}
    let context_ = "ExtraParam"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (ExtraParamName.to_value x.name)));
        ("Value", (Some (ExtraParamValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        ExtraParamValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        ExtraParamName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" ExtraParamValue.of_json in
      let name = field_map_exn json__ "Name" ExtraParamName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ExtraParam includes the following elements."]
module DomainPriceName =
  struct
    type nonrec t = string
    let context_ = "DomainPriceName"
    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:"DomainPriceName" j
    let to_json = simple_to_json to_value
  end
module PriceWithCurrency =
  struct
    type nonrec t =
      {
      price: Price.t option
        [@ocaml.doc "The price of a domain, in a specific currency."];
      currency: Currency.t option [@ocaml.doc "The currency specifier."]}
    let make ?price = fun ?currency -> fun () -> { price; currency }
    let to_value x =
      structure_to_value
        [("Price", (Option.map x.price ~f:Price.to_value));
        ("Currency", (Option.map x.currency ~f:Currency.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currency =
        (Option.map ~f:Currency.of_xml) (Xml.child xml_arg0 "Currency") in
      let price = (Option.map ~f:Price.of_xml) (Xml.child xml_arg0 "Price") in
      make ?currency ?price ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currency = field_map json__ "Currency" Currency.of_json in
      let price = field_map json__ "Price" Price.of_json in
      make ?currency ?price ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Currency-specific price information."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module OperationId =
  struct
    type nonrec t = string
    let context_ = "OperationId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OperationId" j
    let to_json = simple_to_json to_value
  end
module OperationStatus =
  struct
    type nonrec t =
      | SUBMITTED 
      | IN_PROGRESS 
      | ERROR 
      | SUCCESSFUL 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUBMITTED -> "SUBMITTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | ERROR -> "ERROR"
      | SUCCESSFUL -> "SUCCESSFUL"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUBMITTED" -> SUBMITTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "ERROR" -> ERROR
      | "SUCCESSFUL" -> SUCCESSFUL
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration OperationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationStatus" j)
    let to_json = simple_to_json to_value
  end
module StatusFlag =
  struct
    type nonrec t =
      | PENDING_ACCEPTANCE 
      | PENDING_CUSTOMER_ACTION 
      | PENDING_AUTHORIZATION 
      | PENDING_PAYMENT_VERIFICATION 
      | PENDING_SUPPORT_CASE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_ACCEPTANCE -> "PENDING_ACCEPTANCE"
      | PENDING_CUSTOMER_ACTION -> "PENDING_CUSTOMER_ACTION"
      | PENDING_AUTHORIZATION -> "PENDING_AUTHORIZATION"
      | PENDING_PAYMENT_VERIFICATION -> "PENDING_PAYMENT_VERIFICATION"
      | PENDING_SUPPORT_CASE -> "PENDING_SUPPORT_CASE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_ACCEPTANCE" -> PENDING_ACCEPTANCE
      | "PENDING_CUSTOMER_ACTION" -> PENDING_CUSTOMER_ACTION
      | "PENDING_AUTHORIZATION" -> PENDING_AUTHORIZATION
      | "PENDING_PAYMENT_VERIFICATION" -> PENDING_PAYMENT_VERIFICATION
      | "PENDING_SUPPORT_CASE" -> PENDING_SUPPORT_CASE
      | 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 StatusFlag" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatusFlag" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ListDomainsAttributeName =
  struct
    type nonrec t =
      | DomainName 
      | Expiry 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DomainName -> "DomainName"
      | Expiry -> "Expiry"
      | Non_static_id s -> s
    let of_string =
      function
      | "DomainName" -> DomainName
      | "Expiry" -> Expiry
      | 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 ListDomainsAttributeName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListDomainsAttributeName" j)
    let to_json = simple_to_json to_value
  end
module Operator =
  struct
    type nonrec t =
      | LE 
      | GE 
      | BEGINS_WITH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LE -> "LE"
      | GE -> "GE"
      | BEGINS_WITH -> "BEGINS_WITH"
      | Non_static_id s -> s
    let of_string =
      function
      | "LE" -> LE
      | "GE" -> GE
      | "BEGINS_WITH" -> BEGINS_WITH
      | 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 Operator" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Operator" j)
    let to_json = simple_to_json to_value
  end
module Values =
  struct
    type nonrec t = Value.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Value.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:Value.of_xml)
    let of_json j = list_of_json ~kind:"Values" ~of_json:Value.of_json j
    let to_json v = composed_to_json to_value v
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module DnssecPublicKey =
  struct
    type nonrec t = string
    let context_ = "DnssecPublicKey"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:32768); 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:"DnssecPublicKey" j
    let to_json = simple_to_json to_value
  end
module NullableInteger =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NullableInteger" 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 BillingRecord =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The name of the domain that the billing record applies to. If the domain name contains characters other than a-z, 0-9, and - (hyphen), such as an internationalized domain name, then this value is in Punycode. For more information, see DNS Domain Name Format in the Amazon Route 53 Developer Guide."];
      operation: OperationType.t option
        [@ocaml.doc "The operation that you were charged for."];
      invoiceId: InvoiceId.t option
        [@ocaml.doc
          "Deprecated property. This field is retained in report structure for backwards compatibility, but will appear blank."];
      billDate: Timestamp.t option
        [@ocaml.doc
          "The date that the operation was billed, in Unix format."];
      price: Price.t option
        [@ocaml.doc
          "The price that you were charged for the operation, in US dollars. Example value: 12.0"]}
    let make ?domainName =
      fun ?operation ->
        fun ?invoiceId ->
          fun ?billDate ->
            fun ?price ->
              fun () -> { domainName; operation; invoiceId; billDate; price }
    let to_value x =
      structure_to_value
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Operation", (Option.map x.operation ~f:OperationType.to_value));
        ("InvoiceId", (Option.map x.invoiceId ~f:InvoiceId.to_value));
        ("BillDate", (Option.map x.billDate ~f:Timestamp.to_value));
        ("Price", (Option.map x.price ~f:Price.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let price = (Option.map ~f:Price.of_xml) (Xml.child xml_arg0 "Price") in
      let billDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "BillDate") in
      let invoiceId =
        (Option.map ~f:InvoiceId.of_xml) (Xml.child xml_arg0 "InvoiceId") in
      let operation =
        (Option.map ~f:OperationType.of_xml) (Xml.child xml_arg0 "Operation") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?price ?billDate ?invoiceId ?operation ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let price = field_map json__ "Price" Price.of_json in
      let billDate = field_map json__ "BillDate" Timestamp.of_json in
      let invoiceId = field_map json__ "InvoiceId" InvoiceId.of_json in
      let operation = field_map json__ "Operation" OperationType.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?price ?billDate ?invoiceId ?operation ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information for one billing record."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option
        [@ocaml.doc
          "The key (name) of a tag. Valid values: A-Z, a-z, 0-9, space, \".:/=+\\-\\@\" Constraints: Each key can be 1-128 characters long."];
      value: TagValue.t option
        [@ocaml.doc
          "The value of a tag. Valid values: A-Z, a-z, 0-9, space, \".:/=+\\-\\@\" Constraints: Each value can be 0-256 characters long."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Each tag includes the following elements."]
module RequestId =
  struct
    type nonrec t = string
    let context_ = "RequestId"
    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:"RequestId" j
    let to_json = simple_to_json to_value
  end
module Nameserver =
  struct
    type nonrec t =
      {
      name: HostName.t
        [@ocaml.doc
          "The fully qualified host name of the name server. Constraint: Maximum 255 characters"];
      glueIps: GlueIpList.t option
        [@ocaml.doc
          "Glue IP address of a name server entry. Glue IP addresses are required only when the name of the name server is a subdomain of the domain. For example, if your domain is example.com and the name server for the domain is ns.example.com, you need to specify the IP address for ns.example.com. Constraints: The list can contain only one IPv4 and one IPv6 address."]}
    let context_ = "Nameserver"
    let make ?glueIps = fun ~name -> fun () -> { glueIps; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (HostName.to_value x.name)));
        ("GlueIps", (Option.map x.glueIps ~f:GlueIpList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let glueIps =
        (Option.map ~f:GlueIpList.of_xml) (Xml.child xml_arg0 "GlueIps") in
      let name =
        HostName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?glueIps ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let glueIps = field_map json__ "GlueIps" GlueIpList.of_json in
      let name = field_map_exn json__ "Name" HostName.of_json in
      make ?glueIps ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Name server includes the following elements."]
module AddressLine =
  struct
    type nonrec t = string
    let context_ = "AddressLine"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"AddressLine" j
    let to_json = simple_to_json to_value
  end
module City =
  struct
    type nonrec t = string
    let context_ = "City"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"City" j
    let to_json = simple_to_json to_value
  end
module ContactName =
  struct
    type nonrec t = string
    let context_ = "ContactName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"ContactName" j
    let to_json = simple_to_json to_value
  end
module ContactNumber =
  struct
    type nonrec t = string
    let context_ = "ContactNumber"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:30); 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:"ContactNumber" j
    let to_json = simple_to_json to_value
  end
module ContactType =
  struct
    type nonrec t =
      | PERSON 
      | COMPANY 
      | ASSOCIATION 
      | PUBLIC_BODY 
      | RESELLER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PERSON -> "PERSON"
      | COMPANY -> "COMPANY"
      | ASSOCIATION -> "ASSOCIATION"
      | PUBLIC_BODY -> "PUBLIC_BODY"
      | RESELLER -> "RESELLER"
      | Non_static_id s -> s
    let of_string =
      function
      | "PERSON" -> PERSON
      | "COMPANY" -> COMPANY
      | "ASSOCIATION" -> ASSOCIATION
      | "PUBLIC_BODY" -> PUBLIC_BODY
      | "RESELLER" -> RESELLER
      | 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 ContactType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContactType" j)
    let to_json = simple_to_json to_value
  end
module CountryCode =
  struct
    type nonrec t =
      | AC 
      | AD 
      | AE 
      | AF 
      | AG 
      | AI 
      | AL 
      | AM 
      | AN 
      | AO 
      | AQ 
      | AR 
      | AS 
      | AT 
      | AU 
      | AW 
      | AX 
      | AZ 
      | BA 
      | BB 
      | BD 
      | BE 
      | BF 
      | BG 
      | BH 
      | BI 
      | BJ 
      | BL 
      | BM 
      | BN 
      | BO 
      | BQ 
      | BR 
      | BS 
      | BT 
      | BV 
      | BW 
      | BY 
      | BZ 
      | CA 
      | CC 
      | CD 
      | CF 
      | CG 
      | CH 
      | CI 
      | CK 
      | CL 
      | CM 
      | CN 
      | CO 
      | CR 
      | CU 
      | CV 
      | CW 
      | CX 
      | CY 
      | CZ 
      | DE 
      | DJ 
      | DK 
      | DM 
      | DO 
      | DZ 
      | EC 
      | EE 
      | EG 
      | EH 
      | ER 
      | ES 
      | ET 
      | FI 
      | FJ 
      | FK 
      | FM 
      | FO 
      | FR 
      | GA 
      | GB 
      | GD 
      | GE 
      | GF 
      | GG 
      | GH 
      | GI 
      | GL 
      | GM 
      | GN 
      | GP 
      | GQ 
      | GR 
      | GS 
      | GT 
      | GU 
      | GW 
      | GY 
      | HK 
      | HM 
      | HN 
      | HR 
      | HT 
      | HU 
      | ID 
      | IE 
      | IL 
      | IM 
      | IN 
      | IO 
      | IQ 
      | IR 
      | IS 
      | IT 
      | JE 
      | JM 
      | JO 
      | JP 
      | KE 
      | KG 
      | KH 
      | KI 
      | KM 
      | KN 
      | KP 
      | KR 
      | KW 
      | KY 
      | KZ 
      | LA 
      | LB 
      | LC 
      | LI 
      | LK 
      | LR 
      | LS 
      | LT 
      | LU 
      | LV 
      | LY 
      | MA 
      | MC 
      | MD 
      | ME 
      | MF 
      | MG 
      | MH 
      | MK 
      | ML 
      | MM 
      | MN 
      | MO 
      | MP 
      | MQ 
      | MR 
      | MS 
      | MT 
      | MU 
      | MV 
      | MW 
      | MX 
      | MY 
      | MZ 
      | NA 
      | NC 
      | NE 
      | NF 
      | NG 
      | NI 
      | NL 
      | NO 
      | NP 
      | NR 
      | NU 
      | NZ 
      | OM 
      | PA 
      | PE 
      | PF 
      | PG 
      | PH 
      | PK 
      | PL 
      | PM 
      | PN 
      | PR 
      | PS 
      | PT 
      | PW 
      | PY 
      | QA 
      | RE 
      | RO 
      | RS 
      | RU 
      | RW 
      | SA 
      | SB 
      | SC 
      | SD 
      | SE 
      | SG 
      | SH 
      | SI 
      | SJ 
      | SK 
      | SL 
      | SM 
      | SN 
      | SO 
      | SR 
      | SS 
      | ST 
      | SV 
      | SX 
      | SY 
      | SZ 
      | TC 
      | TD 
      | TF 
      | TG 
      | TH 
      | TJ 
      | TK 
      | TL 
      | TM 
      | TN 
      | TO 
      | TP 
      | TR 
      | TT 
      | TV 
      | TW 
      | TZ 
      | UA 
      | UG 
      | US 
      | UY 
      | UZ 
      | VA 
      | VC 
      | VE 
      | VG 
      | VI 
      | VN 
      | VU 
      | WF 
      | WS 
      | YE 
      | YT 
      | ZA 
      | ZM 
      | ZW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AC -> "AC"
      | AD -> "AD"
      | AE -> "AE"
      | AF -> "AF"
      | AG -> "AG"
      | AI -> "AI"
      | AL -> "AL"
      | AM -> "AM"
      | AN -> "AN"
      | AO -> "AO"
      | AQ -> "AQ"
      | AR -> "AR"
      | AS -> "AS"
      | AT -> "AT"
      | AU -> "AU"
      | AW -> "AW"
      | AX -> "AX"
      | AZ -> "AZ"
      | BA -> "BA"
      | BB -> "BB"
      | BD -> "BD"
      | BE -> "BE"
      | BF -> "BF"
      | BG -> "BG"
      | BH -> "BH"
      | BI -> "BI"
      | BJ -> "BJ"
      | BL -> "BL"
      | BM -> "BM"
      | BN -> "BN"
      | BO -> "BO"
      | BQ -> "BQ"
      | BR -> "BR"
      | BS -> "BS"
      | BT -> "BT"
      | BV -> "BV"
      | BW -> "BW"
      | BY -> "BY"
      | BZ -> "BZ"
      | CA -> "CA"
      | CC -> "CC"
      | CD -> "CD"
      | CF -> "CF"
      | CG -> "CG"
      | CH -> "CH"
      | CI -> "CI"
      | CK -> "CK"
      | CL -> "CL"
      | CM -> "CM"
      | CN -> "CN"
      | CO -> "CO"
      | CR -> "CR"
      | CU -> "CU"
      | CV -> "CV"
      | CW -> "CW"
      | CX -> "CX"
      | CY -> "CY"
      | CZ -> "CZ"
      | DE -> "DE"
      | DJ -> "DJ"
      | DK -> "DK"
      | DM -> "DM"
      | DO -> "DO"
      | DZ -> "DZ"
      | EC -> "EC"
      | EE -> "EE"
      | EG -> "EG"
      | EH -> "EH"
      | ER -> "ER"
      | ES -> "ES"
      | ET -> "ET"
      | FI -> "FI"
      | FJ -> "FJ"
      | FK -> "FK"
      | FM -> "FM"
      | FO -> "FO"
      | FR -> "FR"
      | GA -> "GA"
      | GB -> "GB"
      | GD -> "GD"
      | GE -> "GE"
      | GF -> "GF"
      | GG -> "GG"
      | GH -> "GH"
      | GI -> "GI"
      | GL -> "GL"
      | GM -> "GM"
      | GN -> "GN"
      | GP -> "GP"
      | GQ -> "GQ"
      | GR -> "GR"
      | GS -> "GS"
      | GT -> "GT"
      | GU -> "GU"
      | GW -> "GW"
      | GY -> "GY"
      | HK -> "HK"
      | HM -> "HM"
      | HN -> "HN"
      | HR -> "HR"
      | HT -> "HT"
      | HU -> "HU"
      | ID -> "ID"
      | IE -> "IE"
      | IL -> "IL"
      | IM -> "IM"
      | IN -> "IN"
      | IO -> "IO"
      | IQ -> "IQ"
      | IR -> "IR"
      | IS -> "IS"
      | IT -> "IT"
      | JE -> "JE"
      | JM -> "JM"
      | JO -> "JO"
      | JP -> "JP"
      | KE -> "KE"
      | KG -> "KG"
      | KH -> "KH"
      | KI -> "KI"
      | KM -> "KM"
      | KN -> "KN"
      | KP -> "KP"
      | KR -> "KR"
      | KW -> "KW"
      | KY -> "KY"
      | KZ -> "KZ"
      | LA -> "LA"
      | LB -> "LB"
      | LC -> "LC"
      | LI -> "LI"
      | LK -> "LK"
      | LR -> "LR"
      | LS -> "LS"
      | LT -> "LT"
      | LU -> "LU"
      | LV -> "LV"
      | LY -> "LY"
      | MA -> "MA"
      | MC -> "MC"
      | MD -> "MD"
      | ME -> "ME"
      | MF -> "MF"
      | MG -> "MG"
      | MH -> "MH"
      | MK -> "MK"
      | ML -> "ML"
      | MM -> "MM"
      | MN -> "MN"
      | MO -> "MO"
      | MP -> "MP"
      | MQ -> "MQ"
      | MR -> "MR"
      | MS -> "MS"
      | MT -> "MT"
      | MU -> "MU"
      | MV -> "MV"
      | MW -> "MW"
      | MX -> "MX"
      | MY -> "MY"
      | MZ -> "MZ"
      | NA -> "NA"
      | NC -> "NC"
      | NE -> "NE"
      | NF -> "NF"
      | NG -> "NG"
      | NI -> "NI"
      | NL -> "NL"
      | NO -> "NO"
      | NP -> "NP"
      | NR -> "NR"
      | NU -> "NU"
      | NZ -> "NZ"
      | OM -> "OM"
      | PA -> "PA"
      | PE -> "PE"
      | PF -> "PF"
      | PG -> "PG"
      | PH -> "PH"
      | PK -> "PK"
      | PL -> "PL"
      | PM -> "PM"
      | PN -> "PN"
      | PR -> "PR"
      | PS -> "PS"
      | PT -> "PT"
      | PW -> "PW"
      | PY -> "PY"
      | QA -> "QA"
      | RE -> "RE"
      | RO -> "RO"
      | RS -> "RS"
      | RU -> "RU"
      | RW -> "RW"
      | SA -> "SA"
      | SB -> "SB"
      | SC -> "SC"
      | SD -> "SD"
      | SE -> "SE"
      | SG -> "SG"
      | SH -> "SH"
      | SI -> "SI"
      | SJ -> "SJ"
      | SK -> "SK"
      | SL -> "SL"
      | SM -> "SM"
      | SN -> "SN"
      | SO -> "SO"
      | SR -> "SR"
      | SS -> "SS"
      | ST -> "ST"
      | SV -> "SV"
      | SX -> "SX"
      | SY -> "SY"
      | SZ -> "SZ"
      | TC -> "TC"
      | TD -> "TD"
      | TF -> "TF"
      | TG -> "TG"
      | TH -> "TH"
      | TJ -> "TJ"
      | TK -> "TK"
      | TL -> "TL"
      | TM -> "TM"
      | TN -> "TN"
      | TO -> "TO"
      | TP -> "TP"
      | TR -> "TR"
      | TT -> "TT"
      | TV -> "TV"
      | TW -> "TW"
      | TZ -> "TZ"
      | UA -> "UA"
      | UG -> "UG"
      | US -> "US"
      | UY -> "UY"
      | UZ -> "UZ"
      | VA -> "VA"
      | VC -> "VC"
      | VE -> "VE"
      | VG -> "VG"
      | VI -> "VI"
      | VN -> "VN"
      | VU -> "VU"
      | WF -> "WF"
      | WS -> "WS"
      | YE -> "YE"
      | YT -> "YT"
      | ZA -> "ZA"
      | ZM -> "ZM"
      | ZW -> "ZW"
      | Non_static_id s -> s
    let of_string =
      function
      | "AC" -> AC
      | "AD" -> AD
      | "AE" -> AE
      | "AF" -> AF
      | "AG" -> AG
      | "AI" -> AI
      | "AL" -> AL
      | "AM" -> AM
      | "AN" -> AN
      | "AO" -> AO
      | "AQ" -> AQ
      | "AR" -> AR
      | "AS" -> AS
      | "AT" -> AT
      | "AU" -> AU
      | "AW" -> AW
      | "AX" -> AX
      | "AZ" -> AZ
      | "BA" -> BA
      | "BB" -> BB
      | "BD" -> BD
      | "BE" -> BE
      | "BF" -> BF
      | "BG" -> BG
      | "BH" -> BH
      | "BI" -> BI
      | "BJ" -> BJ
      | "BL" -> BL
      | "BM" -> BM
      | "BN" -> BN
      | "BO" -> BO
      | "BQ" -> BQ
      | "BR" -> BR
      | "BS" -> BS
      | "BT" -> BT
      | "BV" -> BV
      | "BW" -> BW
      | "BY" -> BY
      | "BZ" -> BZ
      | "CA" -> CA
      | "CC" -> CC
      | "CD" -> CD
      | "CF" -> CF
      | "CG" -> CG
      | "CH" -> CH
      | "CI" -> CI
      | "CK" -> CK
      | "CL" -> CL
      | "CM" -> CM
      | "CN" -> CN
      | "CO" -> CO
      | "CR" -> CR
      | "CU" -> CU
      | "CV" -> CV
      | "CW" -> CW
      | "CX" -> CX
      | "CY" -> CY
      | "CZ" -> CZ
      | "DE" -> DE
      | "DJ" -> DJ
      | "DK" -> DK
      | "DM" -> DM
      | "DO" -> DO
      | "DZ" -> DZ
      | "EC" -> EC
      | "EE" -> EE
      | "EG" -> EG
      | "EH" -> EH
      | "ER" -> ER
      | "ES" -> ES
      | "ET" -> ET
      | "FI" -> FI
      | "FJ" -> FJ
      | "FK" -> FK
      | "FM" -> FM
      | "FO" -> FO
      | "FR" -> FR
      | "GA" -> GA
      | "GB" -> GB
      | "GD" -> GD
      | "GE" -> GE
      | "GF" -> GF
      | "GG" -> GG
      | "GH" -> GH
      | "GI" -> GI
      | "GL" -> GL
      | "GM" -> GM
      | "GN" -> GN
      | "GP" -> GP
      | "GQ" -> GQ
      | "GR" -> GR
      | "GS" -> GS
      | "GT" -> GT
      | "GU" -> GU
      | "GW" -> GW
      | "GY" -> GY
      | "HK" -> HK
      | "HM" -> HM
      | "HN" -> HN
      | "HR" -> HR
      | "HT" -> HT
      | "HU" -> HU
      | "ID" -> ID
      | "IE" -> IE
      | "IL" -> IL
      | "IM" -> IM
      | "IN" -> IN
      | "IO" -> IO
      | "IQ" -> IQ
      | "IR" -> IR
      | "IS" -> IS
      | "IT" -> IT
      | "JE" -> JE
      | "JM" -> JM
      | "JO" -> JO
      | "JP" -> JP
      | "KE" -> KE
      | "KG" -> KG
      | "KH" -> KH
      | "KI" -> KI
      | "KM" -> KM
      | "KN" -> KN
      | "KP" -> KP
      | "KR" -> KR
      | "KW" -> KW
      | "KY" -> KY
      | "KZ" -> KZ
      | "LA" -> LA
      | "LB" -> LB
      | "LC" -> LC
      | "LI" -> LI
      | "LK" -> LK
      | "LR" -> LR
      | "LS" -> LS
      | "LT" -> LT
      | "LU" -> LU
      | "LV" -> LV
      | "LY" -> LY
      | "MA" -> MA
      | "MC" -> MC
      | "MD" -> MD
      | "ME" -> ME
      | "MF" -> MF
      | "MG" -> MG
      | "MH" -> MH
      | "MK" -> MK
      | "ML" -> ML
      | "MM" -> MM
      | "MN" -> MN
      | "MO" -> MO
      | "MP" -> MP
      | "MQ" -> MQ
      | "MR" -> MR
      | "MS" -> MS
      | "MT" -> MT
      | "MU" -> MU
      | "MV" -> MV
      | "MW" -> MW
      | "MX" -> MX
      | "MY" -> MY
      | "MZ" -> MZ
      | "NA" -> NA
      | "NC" -> NC
      | "NE" -> NE
      | "NF" -> NF
      | "NG" -> NG
      | "NI" -> NI
      | "NL" -> NL
      | "NO" -> NO
      | "NP" -> NP
      | "NR" -> NR
      | "NU" -> NU
      | "NZ" -> NZ
      | "OM" -> OM
      | "PA" -> PA
      | "PE" -> PE
      | "PF" -> PF
      | "PG" -> PG
      | "PH" -> PH
      | "PK" -> PK
      | "PL" -> PL
      | "PM" -> PM
      | "PN" -> PN
      | "PR" -> PR
      | "PS" -> PS
      | "PT" -> PT
      | "PW" -> PW
      | "PY" -> PY
      | "QA" -> QA
      | "RE" -> RE
      | "RO" -> RO
      | "RS" -> RS
      | "RU" -> RU
      | "RW" -> RW
      | "SA" -> SA
      | "SB" -> SB
      | "SC" -> SC
      | "SD" -> SD
      | "SE" -> SE
      | "SG" -> SG
      | "SH" -> SH
      | "SI" -> SI
      | "SJ" -> SJ
      | "SK" -> SK
      | "SL" -> SL
      | "SM" -> SM
      | "SN" -> SN
      | "SO" -> SO
      | "SR" -> SR
      | "SS" -> SS
      | "ST" -> ST
      | "SV" -> SV
      | "SX" -> SX
      | "SY" -> SY
      | "SZ" -> SZ
      | "TC" -> TC
      | "TD" -> TD
      | "TF" -> TF
      | "TG" -> TG
      | "TH" -> TH
      | "TJ" -> TJ
      | "TK" -> TK
      | "TL" -> TL
      | "TM" -> TM
      | "TN" -> TN
      | "TO" -> TO
      | "TP" -> TP
      | "TR" -> TR
      | "TT" -> TT
      | "TV" -> TV
      | "TW" -> TW
      | "TZ" -> TZ
      | "UA" -> UA
      | "UG" -> UG
      | "US" -> US
      | "UY" -> UY
      | "UZ" -> UZ
      | "VA" -> VA
      | "VC" -> VC
      | "VE" -> VE
      | "VG" -> VG
      | "VI" -> VI
      | "VN" -> VN
      | "VU" -> VU
      | "WF" -> WF
      | "WS" -> WS
      | "YE" -> YE
      | "YT" -> YT
      | "ZA" -> ZA
      | "ZM" -> ZM
      | "ZW" -> ZW
      | 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 CountryCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CountryCode" j)
    let to_json = simple_to_json to_value
  end
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:254); 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:"Email" j
    let to_json = simple_to_json to_value
  end
module ExtraParamList =
  struct
    type nonrec t = ExtraParam.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:ExtraParam.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:ExtraParam.of_xml)
    let of_json j =
      list_of_json ~kind:"ExtraParamList" ~of_json:ExtraParam.of_json j
    let to_json v = composed_to_json to_value v
  end
module State =
  struct
    type nonrec t = string
    let context_ = "State"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"State" j
    let to_json = simple_to_json to_value
  end
module ZipCode =
  struct
    type nonrec t = string
    let context_ = "ZipCode"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"ZipCode" j
    let to_json = simple_to_json to_value
  end
module TldName =
  struct
    type nonrec t = string
    let context_ = "TldName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TldName" j
    let to_json = simple_to_json to_value
  end
module DomainPrice =
  struct
    type nonrec t =
      {
      name: DomainPriceName.t option
        [@ocaml.doc "The name of the TLD for which the prices apply."];
      registrationPrice: PriceWithCurrency.t option
        [@ocaml.doc
          "The price for domain registration with Route\194\16053."];
      transferPrice: PriceWithCurrency.t option
        [@ocaml.doc
          "The price for transferring the domain registration to Route\194\16053."];
      renewalPrice: PriceWithCurrency.t option
        [@ocaml.doc
          "The price for renewing domain registration with Route\194\16053."];
      changeOwnershipPrice: PriceWithCurrency.t option
        [@ocaml.doc "The price for changing domain ownership."];
      restorationPrice: PriceWithCurrency.t option
        [@ocaml.doc
          "The price for restoring the domain with Route\194\16053."]}
    let make ?name =
      fun ?registrationPrice ->
        fun ?transferPrice ->
          fun ?renewalPrice ->
            fun ?changeOwnershipPrice ->
              fun ?restorationPrice ->
                fun () ->
                  {
                    name;
                    registrationPrice;
                    transferPrice;
                    renewalPrice;
                    changeOwnershipPrice;
                    restorationPrice
                  }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:DomainPriceName.to_value));
        ("RegistrationPrice",
          (Option.map x.registrationPrice ~f:PriceWithCurrency.to_value));
        ("TransferPrice",
          (Option.map x.transferPrice ~f:PriceWithCurrency.to_value));
        ("RenewalPrice",
          (Option.map x.renewalPrice ~f:PriceWithCurrency.to_value));
        ("ChangeOwnershipPrice",
          (Option.map x.changeOwnershipPrice ~f:PriceWithCurrency.to_value));
        ("RestorationPrice",
          (Option.map x.restorationPrice ~f:PriceWithCurrency.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let restorationPrice =
        (Option.map ~f:PriceWithCurrency.of_xml)
          (Xml.child xml_arg0 "RestorationPrice") in
      let changeOwnershipPrice =
        (Option.map ~f:PriceWithCurrency.of_xml)
          (Xml.child xml_arg0 "ChangeOwnershipPrice") in
      let renewalPrice =
        (Option.map ~f:PriceWithCurrency.of_xml)
          (Xml.child xml_arg0 "RenewalPrice") in
      let transferPrice =
        (Option.map ~f:PriceWithCurrency.of_xml)
          (Xml.child xml_arg0 "TransferPrice") in
      let registrationPrice =
        (Option.map ~f:PriceWithCurrency.of_xml)
          (Xml.child xml_arg0 "RegistrationPrice") in
      let name =
        (Option.map ~f:DomainPriceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?restorationPrice ?changeOwnershipPrice ?renewalPrice
        ?transferPrice ?registrationPrice ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let restorationPrice =
        field_map json__ "RestorationPrice" PriceWithCurrency.of_json in
      let changeOwnershipPrice =
        field_map json__ "ChangeOwnershipPrice" PriceWithCurrency.of_json in
      let renewalPrice =
        field_map json__ "RenewalPrice" PriceWithCurrency.of_json in
      let transferPrice =
        field_map json__ "TransferPrice" PriceWithCurrency.of_json in
      let registrationPrice =
        field_map json__ "RegistrationPrice" PriceWithCurrency.of_json in
      let name = field_map json__ "Name" DomainPriceName.of_json in
      make ?restorationPrice ?changeOwnershipPrice ?renewalPrice
        ?transferPrice ?registrationPrice ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the domain price associated with a TLD."]
module OperationSummary =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc "Identifier returned to track the requested action."];
      status: OperationStatus.t option
        [@ocaml.doc
          "The current status of the requested operation in the system."];
      type_: OperationType.t option
        [@ocaml.doc "Type of the action requested."];
      submittedDate: Timestamp.t option
        [@ocaml.doc "The date when the request was submitted."];
      domainName: DomainName.t option [@ocaml.doc "Name of the domain."];
      message: ErrorMessage.t option
        [@ocaml.doc "Message about the operation."];
      statusFlag: StatusFlag.t option
        [@ocaml.doc
          "Automatically checks whether there are no outstanding operations on domains that need customer attention. Valid values are: PENDING_ACCEPTANCE: The operation is waiting for acceptance from the account that is receiving the domain. PENDING_CUSTOMER_ACTION: The operation is waiting for customer action, for example, returning an email. PENDING_AUTHORIZATION: The operation is waiting for the form of authorization. For more information, see ResendOperationAuthorization. PENDING_PAYMENT_VERIFICATION: The operation is waiting for the payment method to validate. PENDING_SUPPORT_CASE: The operation includes a support case and is waiting for its resolution."];
      lastUpdatedDate: Timestamp.t option
        [@ocaml.doc
          "The date when the last change was made in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?operationId =
      fun ?status ->
        fun ?type_ ->
          fun ?submittedDate ->
            fun ?domainName ->
              fun ?message ->
                fun ?statusFlag ->
                  fun ?lastUpdatedDate ->
                    fun () ->
                      {
                        operationId;
                        status;
                        type_;
                        submittedDate;
                        domainName;
                        message;
                        statusFlag;
                        lastUpdatedDate
                      }
    let to_value x =
      structure_to_value
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("Status", (Option.map x.status ~f:OperationStatus.to_value));
        ("Type", (Option.map x.type_ ~f:OperationType.to_value));
        ("SubmittedDate", (Option.map x.submittedDate ~f:Timestamp.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("StatusFlag", (Option.map x.statusFlag ~f:StatusFlag.to_value));
        ("LastUpdatedDate",
          (Option.map x.lastUpdatedDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDate") in
      let statusFlag =
        (Option.map ~f:StatusFlag.of_xml) (Xml.child xml_arg0 "StatusFlag") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let submittedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "SubmittedDate") in
      let type_ =
        (Option.map ~f:OperationType.of_xml) (Xml.child xml_arg0 "Type") in
      let status =
        (Option.map ~f:OperationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?lastUpdatedDate ?statusFlag ?message ?domainName ?submittedDate
        ?type_ ?status ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDate =
        field_map json__ "LastUpdatedDate" Timestamp.of_json in
      let statusFlag = field_map json__ "StatusFlag" StatusFlag.of_json in
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let submittedDate = field_map json__ "SubmittedDate" Timestamp.of_json in
      let type_ = field_map json__ "Type" OperationType.of_json in
      let status = field_map json__ "Status" OperationStatus.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?lastUpdatedDate ?statusFlag ?message ?domainName ?submittedDate
        ?type_ ?status ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OperationSummary includes the following elements."]
module DomainSummary =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The name of the domain that the summary information applies to."];
      autoRenew: Boolean.t option
        [@ocaml.doc
          "Indicates whether the domain is automatically renewed upon expiration."];
      transferLock: Boolean.t option
        [@ocaml.doc
          "Indicates whether a domain is locked from unauthorized transfer to another party."];
      expiry: Timestamp.t option
        [@ocaml.doc
          "Expiration date of the domain in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?domainName =
      fun ?autoRenew ->
        fun ?transferLock ->
          fun ?expiry ->
            fun () -> { domainName; autoRenew; transferLock; expiry }
    let to_value x =
      structure_to_value
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("AutoRenew", (Option.map x.autoRenew ~f:Boolean.to_value));
        ("TransferLock", (Option.map x.transferLock ~f:Boolean.to_value));
        ("Expiry", (Option.map x.expiry ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiry =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Expiry") in
      let transferLock =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TransferLock") in
      let autoRenew =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoRenew") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?expiry ?transferLock ?autoRenew ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiry = field_map json__ "Expiry" Timestamp.of_json in
      let transferLock = field_map json__ "TransferLock" Boolean.of_json in
      let autoRenew = field_map json__ "AutoRenew" Boolean.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?expiry ?transferLock ?autoRenew ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about one domain."]
module FilterCondition =
  struct
    type nonrec t =
      {
      name: ListDomainsAttributeName.t
        [@ocaml.doc
          "Name of the field which should be used for filtering the list of domains."];
      operator: Operator.t
        [@ocaml.doc
          "The operator values for filtering domain names. The values can be: LE: Less than, or equal to GE: Greater than, or equal to BEGINS_WITH: Begins with"];
      values: Values.t
        [@ocaml.doc
          "An array of strings presenting values to compare. Only 1 item in the list is currently supported."]}
    let context_ = "FilterCondition"
    let make ~name =
      fun ~operator -> fun ~values -> fun () -> { name; operator; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (ListDomainsAttributeName.to_value x.name)));
        ("Operator", (Some (Operator.to_value x.operator)));
        ("Values", (Some (Values.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        Values.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let operator =
        Operator.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Operator") in
      let name =
        ListDomainsAttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~operator ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" Values.of_json in
      let operator = field_map_exn json__ "Operator" Operator.of_json in
      let name = field_map_exn json__ "Name" ListDomainsAttributeName.of_json in
      make ~values ~operator ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information for the filtering of a list of domains returned by ListDomains."]
module SortOrder =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module DomainSuggestion =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option [@ocaml.doc "A suggested domain name."];
      availability: String_.t option
        [@ocaml.doc
          "Whether the domain name is available for registering. You can register only the domains that are designated as AVAILABLE. Valid values: AVAILABLE The domain name is available. AVAILABLE_RESERVED The domain name is reserved under specific conditions. AVAILABLE_PREORDER The domain name is available and can be preordered. DONT_KNOW The TLD registry didn't reply with a definitive answer about whether the domain name is available. Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later. PENDING The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately. RESERVED The domain name has been reserved for another person or organization. UNAVAILABLE The domain name is not available. UNAVAILABLE_PREMIUM The domain name is not available. UNAVAILABLE_RESTRICTED The domain name is forbidden."]}
    let make ?domainName =
      fun ?availability -> fun () -> { domainName; availability }
    let to_value x =
      structure_to_value
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Availability", (Option.map x.availability ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availability =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Availability") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?availability ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availability = field_map json__ "Availability" String_.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?availability ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about one suggested domain name."]
module DnssecKey =
  struct
    type nonrec t =
      {
      algorithm: NullableInteger.t option
        [@ocaml.doc
          "The number of the public key\226\128\153s cryptographic algorithm according to an IANA assignment. If Route\194\16053 is your DNS service, set this to 13. For more information about enabling DNSSEC signing, see Enabling DNSSEC signing and establishing a chain of trust."];
      flags: NullableInteger.t option
        [@ocaml.doc
          "Defines the type of key. It can be either a KSK (key-signing-key, value 257) or ZSK (zone-signing-key, value 256). Using KSK is always encouraged. Only use ZSK if your DNS provider isn't Route\194\16053 and you don\226\128\153t have KSK available. If you have KSK and ZSK keys, always use KSK to create a delegations signer (DS) record. If you have ZSK keys only \226\128\147 use ZSK to create a DS record."];
      publicKey: DnssecPublicKey.t option
        [@ocaml.doc
          "The base64-encoded public key part of the key pair that is passed to the registry ."];
      digestType: NullableInteger.t option
        [@ocaml.doc
          "The number of the DS digest algorithm according to an IANA assignment. For more information, see IANA for DNSSEC Delegation Signer (DS) Resource Record (RR) Type Digest Algorithms."];
      digest: String_.t option
        [@ocaml.doc
          "The delegation signer digest. Digest is calculated from the public key provided using specified digest algorithm and this digest is the actual value returned from the registry nameservers as the value of DS records."];
      keyTag: NullableInteger.t option
        [@ocaml.doc
          "A numeric identification of the DNSKEY record referred to by this DS record."];
      id: String_.t option
        [@ocaml.doc
          "An ID assigned to each DS record created by AssociateDelegationSignerToDomain."]}
    let make ?algorithm =
      fun ?flags ->
        fun ?publicKey ->
          fun ?digestType ->
            fun ?digest ->
              fun ?keyTag ->
                fun ?id ->
                  fun () ->
                    {
                      algorithm;
                      flags;
                      publicKey;
                      digestType;
                      digest;
                      keyTag;
                      id
                    }
    let to_value x =
      structure_to_value
        [("Algorithm", (Option.map x.algorithm ~f:NullableInteger.to_value));
        ("Flags", (Option.map x.flags ~f:NullableInteger.to_value));
        ("PublicKey", (Option.map x.publicKey ~f:DnssecPublicKey.to_value));
        ("DigestType", (Option.map x.digestType ~f:NullableInteger.to_value));
        ("Digest", (Option.map x.digest ~f:String_.to_value));
        ("KeyTag", (Option.map x.keyTag ~f:NullableInteger.to_value));
        ("Id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      let keyTag =
        (Option.map ~f:NullableInteger.of_xml) (Xml.child xml_arg0 "KeyTag") in
      let digest =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Digest") in
      let digestType =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "DigestType") in
      let publicKey =
        (Option.map ~f:DnssecPublicKey.of_xml)
          (Xml.child xml_arg0 "PublicKey") in
      let flags =
        (Option.map ~f:NullableInteger.of_xml) (Xml.child xml_arg0 "Flags") in
      let algorithm =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "Algorithm") in
      make ?id ?keyTag ?digest ?digestType ?publicKey ?flags ?algorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "Id" String_.of_json in
      let keyTag = field_map json__ "KeyTag" NullableInteger.of_json in
      let digest = field_map json__ "Digest" String_.of_json in
      let digestType = field_map json__ "DigestType" NullableInteger.of_json in
      let publicKey = field_map json__ "PublicKey" DnssecPublicKey.of_json in
      let flags = field_map json__ "Flags" NullableInteger.of_json in
      let algorithm = field_map json__ "Algorithm" NullableInteger.of_json in
      make ?id ?keyTag ?digest ?digestType ?publicKey ?flags ?algorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the DNSSEC key. You get this from your DNS provider and then give it to Route\194\16053 (by using AssociateDelegationSignerToDomain) to pass it to the registry to establish the chain of trust."]
module DomainStatus =
  struct
    type nonrec t = string
    let context_ = "DomainStatus"
    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:"DomainStatus" j
    let to_json = simple_to_json to_value
  end
module Transferable =
  struct
    type nonrec t =
      | TRANSFERABLE 
      | UNTRANSFERABLE 
      | DONT_KNOW 
      | DOMAIN_IN_OWN_ACCOUNT 
      | DOMAIN_IN_ANOTHER_ACCOUNT 
      | PREMIUM_DOMAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TRANSFERABLE -> "TRANSFERABLE"
      | UNTRANSFERABLE -> "UNTRANSFERABLE"
      | DONT_KNOW -> "DONT_KNOW"
      | DOMAIN_IN_OWN_ACCOUNT -> "DOMAIN_IN_OWN_ACCOUNT"
      | DOMAIN_IN_ANOTHER_ACCOUNT -> "DOMAIN_IN_ANOTHER_ACCOUNT"
      | PREMIUM_DOMAIN -> "PREMIUM_DOMAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "TRANSFERABLE" -> TRANSFERABLE
      | "UNTRANSFERABLE" -> UNTRANSFERABLE
      | "DONT_KNOW" -> DONT_KNOW
      | "DOMAIN_IN_OWN_ACCOUNT" -> DOMAIN_IN_OWN_ACCOUNT
      | "DOMAIN_IN_ANOTHER_ACCOUNT" -> DOMAIN_IN_ANOTHER_ACCOUNT
      | "PREMIUM_DOMAIN" -> PREMIUM_DOMAIN
      | 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 Transferable" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Transferable" j)
    let to_json = simple_to_json to_value
  end
module BillingRecords =
  struct
    type nonrec t = BillingRecord.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:BillingRecord.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:BillingRecord.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingRecords" ~of_json:BillingRecord.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidInput =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The requested item is not acceptable. For example, for an OperationId it might refer to the ID of an operation that is already completed. For a domain name, it might not be a valid domain name or belong to the requester account."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested item is not acceptable. For example, for APIs that accept a domain name, the request might specify a domain name that doesn't belong to the account that submitted the request. For AcceptDomainTransferFromAnotherAwsAccount, the password might be invalid."]
module PageMarker =
  struct
    type nonrec t = string
    let context_ = "PageMarker"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:4096); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PageMarker" j
    let to_json = simple_to_json to_value
  end
module PageMaxItems =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_max i ~max:100); 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 PageMaxItems" 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 OperationLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The number of operations or jobs running exceeded the allowed threshold for the account."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of operations or jobs running exceeded the allowed threshold for the account."]
module UnsupportedTLD =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "Amazon Route 53 does not support this top-level domain (TLD)."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Route 53 does not support this top-level domain (TLD)."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module DuplicateRequest =
  struct
    type nonrec t =
      {
      requestId: RequestId.t option
        [@ocaml.doc "ID of the request operation."];
      message: ErrorMessage.t option
        [@ocaml.doc "The request is already in progress for the domain."]}
    let make ?requestId = fun ?message -> fun () -> { requestId; message }
    let to_value x =
      structure_to_value
        [("requestId", (Option.map x.requestId ~f:RequestId.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "requestId") in
      make ?message ?requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let requestId = field_map json__ "requestId" RequestId.of_json in
      make ?message ?requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request is already in progress for the domain."]
module TLDRulesViolation =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc "The top-level domain does not support this operation."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The top-level domain does not support this operation."]
module FIAuthKey =
  struct
    type nonrec t = string
    let context_ = "FIAuthKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"FIAuthKey" j
    let to_json = simple_to_json to_value
  end
module NameserverList =
  struct
    type nonrec t = Nameserver.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:Nameserver.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:Nameserver.of_xml)
    let of_json j =
      list_of_json ~kind:"NameserverList" ~of_json:Nameserver.of_json j
    let to_json v = composed_to_json to_value v
  end
module Consent =
  struct
    type nonrec t =
      {
      maxPrice: Price.t
        [@ocaml.doc "Maximum amount the customer agreed to accept."];
      currency: Currency.t [@ocaml.doc "Currency for the MaxPrice."]}
    let context_ = "Consent"
    let make ~maxPrice = fun ~currency -> fun () -> { maxPrice; currency }
    let to_value x =
      structure_to_value
        [("MaxPrice", (Some (Price.to_value x.maxPrice)));
        ("Currency", (Some (Currency.to_value x.currency)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currency =
        Currency.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Currency") in
      let maxPrice =
        Price.of_xml (Xml.child_exn ~context:context_ xml_arg0 "MaxPrice") in
      make ~currency ~maxPrice ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currency = field_map_exn json__ "Currency" Currency.of_json in
      let maxPrice = field_map_exn json__ "MaxPrice" Price.of_json in
      make ~currency ~maxPrice ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Customer's consent for the owner change request."]
module ContactDetail =
  struct
    type nonrec t =
      {
      firstName: ContactName.t option [@ocaml.doc "First name of contact."];
      lastName: ContactName.t option [@ocaml.doc "Last name of contact."];
      contactType: ContactType.t option
        [@ocaml.doc
          "Indicates whether the contact is a person, company, association, or public organization. Note the following: If you specify a value other than PERSON, you must also specify a value for OrganizationName. For some TLDs, the privacy protection available depends on the value that you specify for Contact Type. For the privacy protection settings for your TLD, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide For .es domains, the value of ContactType must be PERSON for all three contacts."];
      organizationName: ContactName.t option
        [@ocaml.doc
          "Name of the organization for contact types other than PERSON."];
      addressLine1: AddressLine.t option
        [@ocaml.doc "First line of the contact's address."];
      addressLine2: AddressLine.t option
        [@ocaml.doc "Second line of contact's address, if any."];
      city: City.t option [@ocaml.doc "The city of the contact's address."];
      state: State.t option
        [@ocaml.doc "The state or province of the contact's city."];
      countryCode: CountryCode.t option
        [@ocaml.doc "Code for the country of the contact's address."];
      zipCode: ZipCode.t option
        [@ocaml.doc "The zip or postal code of the contact's address."];
      phoneNumber: ContactNumber.t option
        [@ocaml.doc
          "The phone number of the contact. Constraints: Phone number must be specified in the format \"+\\[country dialing code\\].\\[number including any area code>\\]\". For example, a US phone number might appear as \"+1.1234567890\"."];
      email: Email.t option [@ocaml.doc "Email address of the contact."];
      fax: ContactNumber.t option
        [@ocaml.doc
          "Fax number of the contact. Constraints: Phone number must be specified in the format \"+\\[country dialing code\\].\\[number including any area code\\]\". For example, a US phone number might appear as \"+1.1234567890\"."];
      extraParams: ExtraParamList.t option
        [@ocaml.doc
          "A list of name-value pairs for parameters required by certain top-level domains."]}
    let make ?firstName =
      fun ?lastName ->
        fun ?contactType ->
          fun ?organizationName ->
            fun ?addressLine1 ->
              fun ?addressLine2 ->
                fun ?city ->
                  fun ?state ->
                    fun ?countryCode ->
                      fun ?zipCode ->
                        fun ?phoneNumber ->
                          fun ?email ->
                            fun ?fax ->
                              fun ?extraParams ->
                                fun () ->
                                  {
                                    firstName;
                                    lastName;
                                    contactType;
                                    organizationName;
                                    addressLine1;
                                    addressLine2;
                                    city;
                                    state;
                                    countryCode;
                                    zipCode;
                                    phoneNumber;
                                    email;
                                    fax;
                                    extraParams
                                  }
    let to_value x =
      structure_to_value
        [("FirstName", (Option.map x.firstName ~f:ContactName.to_value));
        ("LastName", (Option.map x.lastName ~f:ContactName.to_value));
        ("ContactType", (Option.map x.contactType ~f:ContactType.to_value));
        ("OrganizationName",
          (Option.map x.organizationName ~f:ContactName.to_value));
        ("AddressLine1", (Option.map x.addressLine1 ~f:AddressLine.to_value));
        ("AddressLine2", (Option.map x.addressLine2 ~f:AddressLine.to_value));
        ("City", (Option.map x.city ~f:City.to_value));
        ("State", (Option.map x.state ~f:State.to_value));
        ("CountryCode", (Option.map x.countryCode ~f:CountryCode.to_value));
        ("ZipCode", (Option.map x.zipCode ~f:ZipCode.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:ContactNumber.to_value));
        ("Email", (Option.map x.email ~f:Email.to_value));
        ("Fax", (Option.map x.fax ~f:ContactNumber.to_value));
        ("ExtraParams",
          (Option.map x.extraParams ~f:ExtraParamList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let extraParams =
        (Option.map ~f:ExtraParamList.of_xml)
          (Xml.child xml_arg0 "ExtraParams") in
      let fax =
        (Option.map ~f:ContactNumber.of_xml) (Xml.child xml_arg0 "Fax") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "Email") in
      let phoneNumber =
        (Option.map ~f:ContactNumber.of_xml)
          (Xml.child xml_arg0 "PhoneNumber") in
      let zipCode =
        (Option.map ~f:ZipCode.of_xml) (Xml.child xml_arg0 "ZipCode") in
      let countryCode =
        (Option.map ~f:CountryCode.of_xml) (Xml.child xml_arg0 "CountryCode") in
      let state = (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "State") in
      let city = (Option.map ~f:City.of_xml) (Xml.child xml_arg0 "City") in
      let addressLine2 =
        (Option.map ~f:AddressLine.of_xml)
          (Xml.child xml_arg0 "AddressLine2") in
      let addressLine1 =
        (Option.map ~f:AddressLine.of_xml)
          (Xml.child xml_arg0 "AddressLine1") in
      let organizationName =
        (Option.map ~f:ContactName.of_xml)
          (Xml.child xml_arg0 "OrganizationName") in
      let contactType =
        (Option.map ~f:ContactType.of_xml) (Xml.child xml_arg0 "ContactType") in
      let lastName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "LastName") in
      let firstName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "FirstName") in
      make ?extraParams ?fax ?email ?phoneNumber ?zipCode ?countryCode ?state
        ?city ?addressLine2 ?addressLine1 ?organizationName ?contactType
        ?lastName ?firstName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let extraParams = field_map json__ "ExtraParams" ExtraParamList.of_json in
      let fax = field_map json__ "Fax" ContactNumber.of_json in
      let email = field_map json__ "Email" Email.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" ContactNumber.of_json in
      let zipCode = field_map json__ "ZipCode" ZipCode.of_json in
      let countryCode = field_map json__ "CountryCode" CountryCode.of_json in
      let state = field_map json__ "State" State.of_json in
      let city = field_map json__ "City" City.of_json in
      let addressLine2 = field_map json__ "AddressLine2" AddressLine.of_json in
      let addressLine1 = field_map json__ "AddressLine1" AddressLine.of_json in
      let organizationName =
        field_map json__ "OrganizationName" ContactName.of_json in
      let contactType = field_map json__ "ContactType" ContactType.of_json in
      let lastName = field_map json__ "LastName" ContactName.of_json in
      let firstName = field_map json__ "FirstName" ContactName.of_json in
      make ?extraParams ?fax ?email ?phoneNumber ?zipCode ?countryCode ?state
        ?city ?addressLine2 ?addressLine1 ?organizationName ?contactType
        ?lastName ?firstName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ContactDetail includes the following elements."]
module Password =
  struct
    type nonrec t = string
    let context_ = "Password"
    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:"Password" 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_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^(\\d{12})$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module DomainLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The number of domains has exceeded the allowed threshold for the account."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of domains has exceeded the allowed threshold for the account."]
module DomainAuthCode =
  struct
    type nonrec t = string
    let context_ = "DomainAuthCode"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainAuthCode" j
    let to_json = simple_to_json to_value
  end
module DurationInYears =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 DurationInYears" 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 LangCode =
  struct
    type nonrec t = string
    let context_ = "LangCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"|[A-Za-z]{2,3}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LangCode" j
    let to_json = simple_to_json to_value
  end
module TLDInMaintenance =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The top-level domain is currently undergoing maintenance and the request cannot be processed. Try again later."];
      tld: TldName.t option
        [@ocaml.doc
          "The top-level domain that is currently undergoing maintenance."]}
    let make ?message = fun ?tld -> fun () -> { message; tld }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("tld", (Option.map x.tld ~f:TldName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tld = (Option.map ~f:TldName.of_xml) (Xml.child xml_arg0 "tld") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?tld ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tld = field_map json__ "tld" TldName.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?tld ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The top-level domain is currently undergoing maintenance and the request cannot be processed. Try again later."]
module CurrentExpiryYear =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for CurrentExpiryYear" 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 Label =
  struct
    type nonrec t = string
    let context_ = "Label"
    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:"Label" j
    let to_json = simple_to_json to_value
  end
module DomainPriceList =
  struct
    type nonrec t = DomainPrice.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:DomainPrice.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:DomainPrice.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainPriceList" ~of_json:DomainPrice.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListPricesPageMaxItems =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_max i ~max:1000); 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 ListPricesPageMaxItems" 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 OperationSummaryList =
  struct
    type nonrec t = OperationSummary.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:OperationSummary.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:OperationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"OperationSummaryList"
        ~of_json:OperationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOperationsSortAttributeName =
  struct
    type nonrec t =
      | SubmittedDate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SubmittedDate -> "SubmittedDate" | Non_static_id s -> s
    let of_string =
      function | "SubmittedDate" -> SubmittedDate | 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 ListOperationsSortAttributeName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListOperationsSortAttributeName" j)
    let to_json = simple_to_json to_value
  end
module OperationStatusList =
  struct
    type nonrec t = OperationStatus.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OperationStatus.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:OperationStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"OperationStatusList"
        ~of_json:OperationStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module OperationTypeList =
  struct
    type nonrec t = OperationType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:21); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OperationType.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:OperationType.of_xml)
    let of_json j =
      list_of_json ~kind:"OperationTypeList" ~of_json:OperationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainSummaryList =
  struct
    type nonrec t = DomainSummary.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:DomainSummary.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:DomainSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainSummaryList" ~of_json:DomainSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterConditions =
  struct
    type nonrec t = FilterCondition.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:FilterCondition.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:FilterCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterConditions" ~of_json:FilterCondition.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SortCondition =
  struct
    type nonrec t =
      {
      name: ListDomainsAttributeName.t
        [@ocaml.doc
          "Field to be used for sorting the list of domains. It can be either the name or the expiration for a domain. Note that if filterCondition is used in the same ListDomains call, the field used for sorting has to be the same as the field used for filtering."];
      sortOrder: SortOrder.t
        [@ocaml.doc
          "The sort order for a list of domains. Either ascending (ASC) or descending (DES)."]}
    let context_ = "SortCondition"
    let make ~name = fun ~sortOrder -> fun () -> { name; sortOrder }
    let to_value x =
      structure_to_value
        [("Name", (Some (ListDomainsAttributeName.to_value x.name)));
        ("SortOrder", (Some (SortOrder.to_value x.sortOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SortOrder") in
      let name =
        ListDomainsAttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~sortOrder ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map_exn json__ "SortOrder" SortOrder.of_json in
      let name = field_map_exn json__ "Name" ListDomainsAttributeName.of_json in
      make ~sortOrder ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information for sorting a list of domains."]
module DomainSuggestionsList =
  struct
    type nonrec t = DomainSuggestion.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:DomainSuggestion.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:DomainSuggestion.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainSuggestionsList"
        ~of_json:DomainSuggestion.of_json j
    let to_json v = composed_to_json to_value v
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module DNSSec =
  struct
    type nonrec t = string
    let context_ = "DNSSec"
    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:"DNSSec" j
    let to_json = simple_to_json to_value
  end
module DnssecKeyList =
  struct
    type nonrec t = DnssecKey.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:DnssecKey.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:DnssecKey.of_xml)
    let of_json j =
      list_of_json ~kind:"DnssecKeyList" ~of_json:DnssecKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainStatusList =
  struct
    type nonrec t = DomainStatus.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:DomainStatus.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:DomainStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainStatusList" ~of_json:DomainStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrarName =
  struct
    type nonrec t = string
    let context_ = "RegistrarName"
    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:"RegistrarName" j
    let to_json = simple_to_json to_value
  end
module RegistrarUrl =
  struct
    type nonrec t = string
    let context_ = "RegistrarUrl"
    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:"RegistrarUrl" j
    let to_json = simple_to_json to_value
  end
module RegistrarWhoIsServer =
  struct
    type nonrec t = string
    let context_ = "RegistrarWhoIsServer"
    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:"RegistrarWhoIsServer" j
    let to_json = simple_to_json to_value
  end
module RegistryDomainId =
  struct
    type nonrec t = string
    let context_ = "RegistryDomainId"
    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:"RegistryDomainId" j
    let to_json = simple_to_json to_value
  end
module Reseller =
  struct
    type nonrec t = string
    let context_ = "Reseller"
    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:"Reseller" j
    let to_json = simple_to_json to_value
  end
module ReachabilityStatus =
  struct
    type nonrec t =
      | PENDING 
      | DONE 
      | EXPIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | DONE -> "DONE"
      | EXPIRED -> "EXPIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "DONE" -> DONE
      | "EXPIRED" -> EXPIRED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ReachabilityStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReachabilityStatus" j)
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainTransferability =
  struct
    type nonrec t = {
      transferable: Transferable.t option }
    let make ?transferable = fun () -> { transferable }
    let to_value x =
      structure_to_value
        [("Transferable",
           (Option.map x.transferable ~f:Transferable.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transferable =
        (Option.map ~f:Transferable.of_xml)
          (Xml.child xml_arg0 "Transferable") in
      make ?transferable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transferable = field_map json__ "Transferable" Transferable.of_json in
      make ?transferable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains information about whether the specified domain can be transferred to Route 53."]
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    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:"Message" j
    let to_json = simple_to_json to_value
  end
module DomainAvailability =
  struct
    type nonrec t =
      | AVAILABLE 
      | AVAILABLE_RESERVED 
      | AVAILABLE_PREORDER 
      | UNAVAILABLE 
      | UNAVAILABLE_PREMIUM 
      | UNAVAILABLE_RESTRICTED 
      | RESERVED 
      | DONT_KNOW 
      | INVALID_NAME_FOR_TLD 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | AVAILABLE_RESERVED -> "AVAILABLE_RESERVED"
      | AVAILABLE_PREORDER -> "AVAILABLE_PREORDER"
      | UNAVAILABLE -> "UNAVAILABLE"
      | UNAVAILABLE_PREMIUM -> "UNAVAILABLE_PREMIUM"
      | UNAVAILABLE_RESTRICTED -> "UNAVAILABLE_RESTRICTED"
      | RESERVED -> "RESERVED"
      | DONT_KNOW -> "DONT_KNOW"
      | INVALID_NAME_FOR_TLD -> "INVALID_NAME_FOR_TLD"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "AVAILABLE_RESERVED" -> AVAILABLE_RESERVED
      | "AVAILABLE_PREORDER" -> AVAILABLE_PREORDER
      | "UNAVAILABLE" -> UNAVAILABLE
      | "UNAVAILABLE_PREMIUM" -> UNAVAILABLE_PREMIUM
      | "UNAVAILABLE_RESTRICTED" -> UNAVAILABLE_RESTRICTED
      | "RESERVED" -> RESERVED
      | "DONT_KNOW" -> DONT_KNOW
      | "INVALID_NAME_FOR_TLD" -> INVALID_NAME_FOR_TLD
      | "PENDING" -> PENDING
      | 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 DomainAvailability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DomainAvailability" j)
    let to_json = simple_to_json to_value
  end
module DnssecLimitExceeded =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This error is returned if you call AssociateDelegationSignerToDomain when the specified domain has reached the maximum number of DS records. You can't add any additional DS records unless you delete an existing one first."]
module DnssecSigningAttributes =
  struct
    type nonrec t =
      {
      algorithm: NullableInteger.t option
        [@ocaml.doc
          "Algorithm which was used to generate the digest from the public key."];
      flags: NullableInteger.t option
        [@ocaml.doc
          "Defines the type of key. It can be either a KSK (key-signing-key, value 257) or ZSK (zone-signing-key, value 256). Using KSK is always encouraged. Only use ZSK if your DNS provider isn't Route 53 and you don\226\128\153t have KSK available. If you have KSK and ZSK keys, always use KSK to create a delegations signer (DS) record. If you have ZSK keys only \226\128\147 use ZSK to create a DS record."];
      publicKey: DnssecPublicKey.t option
        [@ocaml.doc
          "The base64-encoded public key part of the key pair that is passed to the registry."]}
    let make ?algorithm =
      fun ?flags ->
        fun ?publicKey -> fun () -> { algorithm; flags; publicKey }
    let to_value x =
      structure_to_value
        [("Algorithm", (Option.map x.algorithm ~f:NullableInteger.to_value));
        ("Flags", (Option.map x.flags ~f:NullableInteger.to_value));
        ("PublicKey", (Option.map x.publicKey ~f:DnssecPublicKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicKey =
        (Option.map ~f:DnssecPublicKey.of_xml)
          (Xml.child xml_arg0 "PublicKey") in
      let flags =
        (Option.map ~f:NullableInteger.of_xml) (Xml.child xml_arg0 "Flags") in
      let algorithm =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "Algorithm") in
      make ?publicKey ?flags ?algorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicKey = field_map json__ "PublicKey" DnssecPublicKey.of_json in
      let flags = field_map json__ "Flags" NullableInteger.of_json in
      let algorithm = field_map json__ "Algorithm" NullableInteger.of_json in
      make ?publicKey ?flags ?algorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a delegation signer (DS) record that was created in the registry by AssociateDelegationSignerToDomain."]
module ViewBillingResponse =
  struct
    type nonrec t =
      {
      nextPageMarker: PageMarker.t option
        [@ocaml.doc
          "If there are more billing records than you specified for MaxItems in the request, submit another request and include the value of NextPageMarker in the value of Marker."];
      billingRecords: BillingRecords.t option
        [@ocaml.doc "A summary of billing records."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextPageMarker =
      fun ?billingRecords -> fun () -> { nextPageMarker; billingRecords }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.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
        [("NextPageMarker",
           (Option.map x.nextPageMarker ~f:PageMarker.to_value));
        ("BillingRecords",
          (Option.map x.billingRecords ~f:BillingRecords.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingRecords =
        (Option.map ~f:BillingRecords.of_xml)
          (Xml.child xml_arg0 "BillingRecords") in
      let nextPageMarker =
        (Option.map ~f:PageMarker.of_xml)
          (Xml.child xml_arg0 "NextPageMarker") in
      make ?billingRecords ?nextPageMarker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingRecords =
        field_map json__ "BillingRecords" BillingRecords.of_json in
      let nextPageMarker =
        field_map json__ "NextPageMarker" PageMarker.of_json in
      make ?billingRecords ?nextPageMarker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ViewBilling response includes the following elements."]
module ViewBillingRequest =
  struct
    type nonrec t =
      {
      start: Timestamp.t option
        [@ocaml.doc
          "The beginning date and time for the time period for which you want a list of billing records. Specify the date and time in Unix time format and Coordinated Universal time (UTC)."];
      end_: Timestamp.t option
        [@ocaml.doc
          "The end date and time for the time period for which you want a list of billing records. Specify the date and time in Unix time format and Coordinated Universal time (UTC)."];
      marker: PageMarker.t option
        [@ocaml.doc
          "For an initial request for a list of billing records, omit this element. If the number of billing records that are associated with the current Amazon Web Services account during the specified period is greater than the value that you specified for MaxItems, you can use Marker to return additional billing records. Get the value of NextPageMarker from the previous response, and submit another request that includes the value of NextPageMarker in the Marker element. Constraints: The marker must match the value of NextPageMarker that was returned in the previous response."];
      maxItems: PageMaxItems.t option
        [@ocaml.doc
          "The number of billing records to be returned. Default: 20"]}
    let make ?start =
      fun ?end_ ->
        fun ?marker ->
          fun ?maxItems -> fun () -> { start; end_; marker; maxItems }
    let to_value x =
      structure_to_value
        [("Start", (Option.map x.start ~f:Timestamp.to_value));
        ("End", (Option.map x.end_ ~f:Timestamp.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarker.to_value));
        ("MaxItems", (Option.map x.maxItems ~f:PageMaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxItems =
        (Option.map ~f:PageMaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      let marker =
        (Option.map ~f:PageMarker.of_xml) (Xml.child xml_arg0 "Marker") in
      let end_ = (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "End") in
      let start =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Start") in
      make ?maxItems ?marker ?end_ ?start ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxItems = field_map json__ "MaxItems" PageMaxItems.of_json in
      let marker = field_map json__ "Marker" PageMarker.of_json in
      let end_ = field_map json__ "End" Timestamp.of_json in
      let start = field_map json__ "Start" Timestamp.of_json in
      make ?maxItems ?marker ?end_ ?start ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The ViewBilling request includes the following elements."]
module UpdateTagsForDomainResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
       "This operation adds or updates tags for a specified domain. All tag operations are eventually consistent; subsequent operations might not immediately represent all issued operations."]
module UpdateTagsForDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc "The domain for which you want to add or update tags."];
      tagsToUpdate: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to add or update. If you specify a key that already exists, the corresponding value will be replaced."]}
    let context_ = "UpdateTagsForDomainRequest"
    let make ?tagsToUpdate =
      fun ~domainName -> fun () -> { tagsToUpdate; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("TagsToUpdate", (Option.map x.tagsToUpdate ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagsToUpdate =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagsToUpdate") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?tagsToUpdate ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagsToUpdate = field_map json__ "TagsToUpdate" TagList.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?tagsToUpdate ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateTagsForDomainRequest includes the following elements."]
module UpdateDomainNameserversResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateDomainNameservers response includes the following element."]
module UpdateDomainNameserversRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to change name servers for."];
      fIAuthKey: FIAuthKey.t option
        [@ocaml.doc "The authorization key for .fi domains"];
      nameservers: NameserverList.t
        [@ocaml.doc "A list of new name servers for the domain."]}
    let context_ = "UpdateDomainNameserversRequest"
    let make ?fIAuthKey =
      fun ~domainName ->
        fun ~nameservers -> fun () -> { fIAuthKey; domainName; nameservers }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("FIAuthKey", (Option.map x.fIAuthKey ~f:FIAuthKey.to_value));
        ("Nameservers", (Some (NameserverList.to_value x.nameservers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nameservers =
        NameserverList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Nameservers") in
      let fIAuthKey =
        (Option.map ~f:FIAuthKey.of_xml) (Xml.child xml_arg0 "FIAuthKey") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~nameservers ?fIAuthKey ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nameservers =
        field_map_exn json__ "Nameservers" NameserverList.of_json in
      let fIAuthKey = field_map json__ "FIAuthKey" FIAuthKey.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~nameservers ?fIAuthKey ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Replaces the current set of name servers for the domain with the specified set of name servers. If you use Amazon Route 53 as your DNS service, specify the four name servers in the delegation set for the hosted zone for the domain. If successful, this operation returns an operation ID that you can use to track the progress and completion of the action. If the request is not completed successfully, the domain registrant will be notified by email."]
module UpdateDomainContactResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateDomainContact response includes the following element."]
module UpdateDomainContactRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to update contact information for."];
      adminContact: ContactDetail.t option
        [@ocaml.doc "Provides detailed contact information."];
      registrantContact: ContactDetail.t option
        [@ocaml.doc "Provides detailed contact information."];
      techContact: ContactDetail.t option
        [@ocaml.doc "Provides detailed contact information."];
      consent: Consent.t option
        [@ocaml.doc
          "Customer's consent for the owner change request. Required if the domain is not free (consent price is more than $0.00)."];
      billingContact: ContactDetail.t option
        [@ocaml.doc "Provides detailed contact information."]}
    let context_ = "UpdateDomainContactRequest"
    let make ?adminContact =
      fun ?registrantContact ->
        fun ?techContact ->
          fun ?consent ->
            fun ?billingContact ->
              fun ~domainName ->
                fun () ->
                  {
                    adminContact;
                    registrantContact;
                    techContact;
                    consent;
                    billingContact;
                    domainName
                  }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("AdminContact",
          (Option.map x.adminContact ~f:ContactDetail.to_value));
        ("RegistrantContact",
          (Option.map x.registrantContact ~f:ContactDetail.to_value));
        ("TechContact", (Option.map x.techContact ~f:ContactDetail.to_value));
        ("Consent", (Option.map x.consent ~f:Consent.to_value));
        ("BillingContact",
          (Option.map x.billingContact ~f:ContactDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "BillingContact") in
      let consent =
        (Option.map ~f:Consent.of_xml) (Xml.child xml_arg0 "Consent") in
      let techContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "TechContact") in
      let registrantContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "RegistrantContact") in
      let adminContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "AdminContact") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?billingContact ?consent ?techContact ?registrantContact
        ?adminContact ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingContact =
        field_map json__ "BillingContact" ContactDetail.of_json in
      let consent = field_map json__ "Consent" Consent.of_json in
      let techContact = field_map json__ "TechContact" ContactDetail.of_json in
      let registrantContact =
        field_map json__ "RegistrantContact" ContactDetail.of_json in
      let adminContact =
        field_map json__ "AdminContact" ContactDetail.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?billingContact ?consent ?techContact ?registrantContact
        ?adminContact ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateDomainContact request includes the following elements."]
module UpdateDomainContactPrivacyResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateDomainContactPrivacy response includes the following element."]
module UpdateDomainContactPrivacyRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to update the privacy setting for."];
      adminPrivacy: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the admin contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."];
      registrantPrivacy: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the registrant contact (domain owner). You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."];
      techPrivacy: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the technical contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."];
      billingPrivacy: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the billing contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."]}
    let context_ = "UpdateDomainContactPrivacyRequest"
    let make ?adminPrivacy =
      fun ?registrantPrivacy ->
        fun ?techPrivacy ->
          fun ?billingPrivacy ->
            fun ~domainName ->
              fun () ->
                {
                  adminPrivacy;
                  registrantPrivacy;
                  techPrivacy;
                  billingPrivacy;
                  domainName
                }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("AdminPrivacy", (Option.map x.adminPrivacy ~f:Boolean.to_value));
        ("RegistrantPrivacy",
          (Option.map x.registrantPrivacy ~f:Boolean.to_value));
        ("TechPrivacy", (Option.map x.techPrivacy ~f:Boolean.to_value));
        ("BillingPrivacy", (Option.map x.billingPrivacy ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "BillingPrivacy") in
      let techPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TechPrivacy") in
      let registrantPrivacy =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RegistrantPrivacy") in
      let adminPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AdminPrivacy") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?billingPrivacy ?techPrivacy ?registrantPrivacy ?adminPrivacy
        ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPrivacy = field_map json__ "BillingPrivacy" Boolean.of_json in
      let techPrivacy = field_map json__ "TechPrivacy" Boolean.of_json in
      let registrantPrivacy =
        field_map json__ "RegistrantPrivacy" Boolean.of_json in
      let adminPrivacy = field_map json__ "AdminPrivacy" Boolean.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?billingPrivacy ?techPrivacy ?registrantPrivacy ?adminPrivacy
        ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The UpdateDomainContactPrivacy request includes the following elements."]
module TransferDomainToAnotherAwsAccountResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."];
      password: Password.t option
        [@ocaml.doc
          "To finish transferring a domain to another Amazon Web Services account, the account that the domain is being transferred to must submit an AcceptDomainTransferFromAnotherAwsAccount request. The request must include the value of the Password element that was returned in the TransferDomainToAnotherAwsAccount response."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId =
      fun ?password -> fun () -> { operationId; password }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("Password", (Option.map x.password ~f:Password.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        (Option.map ~f:Password.of_xml) (Xml.child xml_arg0 "Password") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?password ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map json__ "Password" Password.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?password ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The TransferDomainToAnotherAwsAccount response includes the following elements."]
module TransferDomainToAnotherAwsAccountRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to transfer from the current Amazon Web Services account to another account."];
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID of the Amazon Web Services account that you want to transfer the domain to, for example, 111122223333."]}
    let context_ = "TransferDomainToAnotherAwsAccountRequest"
    let make ~domainName =
      fun ~accountId -> fun () -> { domainName; accountId }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("AccountId", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountId") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~accountId ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~accountId ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The TransferDomainToAnotherAwsAccount request includes the following elements."]
module TransferDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DomainLimitExceeded of DomainLimitExceeded.t 
      | `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_json json)
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_xml xml)
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DomainLimitExceeded e ->
          `Assoc
            [("error", (`String "DomainLimitExceeded"));
            ("details", (DomainLimitExceeded.to_json e))]
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The TransferDomain response includes the following element."]
module TransferDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to transfer to Route 53. The top-level domain (TLD), such as .com, must be a TLD that Route 53 supports. For a list of supported TLDs, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. The domain name can contain only the following characters: Letters a through z. Domain names are not case sensitive. Numbers 0 through 9. Hyphen (-). You can't specify a hyphen at the beginning or end of a label. Period (.) to separate the labels in the name, such as the . in example.com."];
      idnLangCode: LangCode.t option [@ocaml.doc "Reserved for future use."];
      durationInYears: DurationInYears.t option
        [@ocaml.doc
          "Reserved for future use. Currently, the effect of a domain transfer on the registration period varies by TLD. For information about how transferring a domain affects the expiration date, see the Transfer Term column in the pricing information at Amazon Route 53 Pricing. Default: 1"];
      nameservers: NameserverList.t option
        [@ocaml.doc "Contains details for the host and glue IP addresses."];
      authCode: DomainAuthCode.t option
        [@ocaml.doc
          "The authorization code for the domain. You get this value from the current registrar."];
      autoRenew: Boolean.t option
        [@ocaml.doc
          "Indicates whether the domain will be automatically renewed (true) or not (false). Auto renewal only takes effect after the account is charged. Default: true"];
      adminContact: ContactDetail.t
        [@ocaml.doc "Provides detailed contact information."];
      registrantContact: ContactDetail.t
        [@ocaml.doc "Provides detailed contact information."];
      techContact: ContactDetail.t
        [@ocaml.doc "Provides detailed contact information."];
      privacyProtectAdminContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information for the registrar, the phrase \"REDACTED FOR PRIVACY\", or \"On behalf of <domain name> owner.\". While some domains may allow different privacy settings per contact, we recommend specifying the same privacy setting for all contacts. Default: true"];
      privacyProtectRegistrantContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the registrant contact (domain owner). You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts. Default: true"];
      privacyProtectTechContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the technical contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts. Default: true"];
      billingContact: ContactDetail.t option
        [@ocaml.doc "Provides detailed contact information."];
      privacyProtectBillingContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the billing contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."]}
    let context_ = "TransferDomainRequest"
    let make ?idnLangCode =
      fun ?durationInYears ->
        fun ?nameservers ->
          fun ?authCode ->
            fun ?autoRenew ->
              fun ?privacyProtectAdminContact ->
                fun ?privacyProtectRegistrantContact ->
                  fun ?privacyProtectTechContact ->
                    fun ?billingContact ->
                      fun ?privacyProtectBillingContact ->
                        fun ~domainName ->
                          fun ~adminContact ->
                            fun ~registrantContact ->
                              fun ~techContact ->
                                fun () ->
                                  {
                                    idnLangCode;
                                    durationInYears;
                                    nameservers;
                                    authCode;
                                    autoRenew;
                                    privacyProtectAdminContact;
                                    privacyProtectRegistrantContact;
                                    privacyProtectTechContact;
                                    billingContact;
                                    privacyProtectBillingContact;
                                    domainName;
                                    adminContact;
                                    registrantContact;
                                    techContact
                                  }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("IdnLangCode", (Option.map x.idnLangCode ~f:LangCode.to_value));
        ("DurationInYears",
          (Option.map x.durationInYears ~f:DurationInYears.to_value));
        ("Nameservers",
          (Option.map x.nameservers ~f:NameserverList.to_value));
        ("AuthCode", (Option.map x.authCode ~f:DomainAuthCode.to_value));
        ("AutoRenew", (Option.map x.autoRenew ~f:Boolean.to_value));
        ("AdminContact", (Some (ContactDetail.to_value x.adminContact)));
        ("RegistrantContact",
          (Some (ContactDetail.to_value x.registrantContact)));
        ("TechContact", (Some (ContactDetail.to_value x.techContact)));
        ("PrivacyProtectAdminContact",
          (Option.map x.privacyProtectAdminContact ~f:Boolean.to_value));
        ("PrivacyProtectRegistrantContact",
          (Option.map x.privacyProtectRegistrantContact ~f:Boolean.to_value));
        ("PrivacyProtectTechContact",
          (Option.map x.privacyProtectTechContact ~f:Boolean.to_value));
        ("BillingContact",
          (Option.map x.billingContact ~f:ContactDetail.to_value));
        ("PrivacyProtectBillingContact",
          (Option.map x.privacyProtectBillingContact ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privacyProtectBillingContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectBillingContact") in
      let billingContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "BillingContact") in
      let privacyProtectTechContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectTechContact") in
      let privacyProtectRegistrantContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectRegistrantContact") in
      let privacyProtectAdminContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectAdminContact") in
      let techContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TechContact") in
      let registrantContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrantContact") in
      let adminContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AdminContact") in
      let autoRenew =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoRenew") in
      let authCode =
        (Option.map ~f:DomainAuthCode.of_xml) (Xml.child xml_arg0 "AuthCode") in
      let nameservers =
        (Option.map ~f:NameserverList.of_xml)
          (Xml.child xml_arg0 "Nameservers") in
      let durationInYears =
        (Option.map ~f:DurationInYears.of_xml)
          (Xml.child xml_arg0 "DurationInYears") in
      let idnLangCode =
        (Option.map ~f:LangCode.of_xml) (Xml.child xml_arg0 "IdnLangCode") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?privacyProtectBillingContact ?billingContact
        ?privacyProtectTechContact ?privacyProtectRegistrantContact
        ?privacyProtectAdminContact ~techContact ~registrantContact
        ~adminContact ?autoRenew ?authCode ?nameservers ?durationInYears
        ?idnLangCode ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privacyProtectBillingContact =
        field_map json__ "PrivacyProtectBillingContact" Boolean.of_json in
      let billingContact =
        field_map json__ "BillingContact" ContactDetail.of_json in
      let privacyProtectTechContact =
        field_map json__ "PrivacyProtectTechContact" Boolean.of_json in
      let privacyProtectRegistrantContact =
        field_map json__ "PrivacyProtectRegistrantContact" Boolean.of_json in
      let privacyProtectAdminContact =
        field_map json__ "PrivacyProtectAdminContact" Boolean.of_json in
      let techContact =
        field_map_exn json__ "TechContact" ContactDetail.of_json in
      let registrantContact =
        field_map_exn json__ "RegistrantContact" ContactDetail.of_json in
      let adminContact =
        field_map_exn json__ "AdminContact" ContactDetail.of_json in
      let autoRenew = field_map json__ "AutoRenew" Boolean.of_json in
      let authCode = field_map json__ "AuthCode" DomainAuthCode.of_json in
      let nameservers = field_map json__ "Nameservers" NameserverList.of_json in
      let durationInYears =
        field_map json__ "DurationInYears" DurationInYears.of_json in
      let idnLangCode = field_map json__ "IdnLangCode" LangCode.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?privacyProtectBillingContact ?billingContact
        ?privacyProtectTechContact ?privacyProtectRegistrantContact
        ?privacyProtectAdminContact ~techContact ~registrantContact
        ~adminContact ?autoRenew ?authCode ?nameservers ?durationInYears
        ?idnLangCode ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The TransferDomain request includes the following elements."]
module RetrieveDomainAuthCodeResponse =
  struct
    type nonrec t =
      {
      authCode: DomainAuthCode.t option
        [@ocaml.doc "The authorization code for the domain."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `TLDInMaintenance of TLDInMaintenance.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?authCode = fun () -> { authCode }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDInMaintenance" ->
          `TLDInMaintenance (TLDInMaintenance.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDInMaintenance" -> `TLDInMaintenance (TLDInMaintenance.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDInMaintenance e ->
          `Assoc
            [("error", (`String "TLDInMaintenance"));
            ("details", (TLDInMaintenance.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("AuthCode", (Option.map x.authCode ~f:DomainAuthCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authCode =
        (Option.map ~f:DomainAuthCode.of_xml) (Xml.child xml_arg0 "AuthCode") in
      make ?authCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authCode = field_map json__ "AuthCode" DomainAuthCode.of_json in
      make ?authCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RetrieveDomainAuthCode response includes the following element."]
module RetrieveDomainAuthCodeRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to get an authorization code for."]}
    let context_ = "RetrieveDomainAuthCodeRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request for the authorization code for the specified domain. To transfer a domain to another registrar, you provide this value to the new registrar."]
module ResendOperationAuthorizationRequest =
  struct
    type nonrec t = {
      operationId: OperationId.t [@ocaml.doc "Operation ID."]}
    let context_ = "ResendOperationAuthorizationRequest"
    let make ~operationId = fun () -> { operationId }
    let to_value x =
      structure_to_value
        [("OperationId", (Some (OperationId.to_value x.operationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        OperationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      make ~operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map_exn json__ "OperationId" OperationId.of_json in
      make ~operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resend the form of authorization email for this operation."]
module ResendContactReachabilityEmailResponse =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The domain name for which you requested a confirmation email."];
      emailAddress: Email.t option
        [@ocaml.doc
          "The email address for the registrant contact at the time that we sent the verification email."];
      isAlreadyVerified: Boolean.t option
        [@ocaml.doc
          "True if the email address for the registrant contact has already been verified, and false otherwise. If the email address has already been verified, we don't send another confirmation email."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDInMaintenance of TLDInMaintenance.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainName =
      fun ?emailAddress ->
        fun ?isAlreadyVerified ->
          fun () -> { domainName; emailAddress; isAlreadyVerified }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDInMaintenance" ->
          `TLDInMaintenance (TLDInMaintenance.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDInMaintenance" -> `TLDInMaintenance (TLDInMaintenance.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDInMaintenance e ->
          `Assoc
            [("error", (`String "TLDInMaintenance"));
            ("details", (TLDInMaintenance.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("emailAddress", (Option.map x.emailAddress ~f:Email.to_value));
        ("isAlreadyVerified",
          (Option.map x.isAlreadyVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isAlreadyVerified =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isAlreadyVerified") in
      let emailAddress =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "emailAddress") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?isAlreadyVerified ?emailAddress ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isAlreadyVerified =
        field_map json__ "isAlreadyVerified" Boolean.of_json in
      let emailAddress = field_map json__ "emailAddress" Email.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?isAlreadyVerified ?emailAddress ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For operations that require confirmation that the email address for the registrant contact is valid, such as registering a new domain, this operation resends the confirmation email to the current email address for the registrant contact."]
module ResendContactReachabilityEmailRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The name of the domain for which you want Route 53 to resend a confirmation email to the registrant contact."]}
    let make ?domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For operations that require confirmation that the email address for the registrant contact is valid, such as registering a new domain, this operation resends the confirmation email to the current email address for the registrant contact."]
module RenewDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation renews a domain for the specified number of years. The cost of renewing your domain is billed to your Amazon Web Services account. We recommend that you renew your domain several weeks before the expiration date. Some TLD registries delete domains before the expiration date if you haven't renewed far enough in advance. For more information about renewing domain registration, see Renewing Registration for a Domain in the Amazon Route 53 Developer Guide."]
module RenewDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc "The name of the domain that you want to renew."];
      durationInYears: DurationInYears.t option
        [@ocaml.doc
          "The number of years that you want to renew the domain for. The maximum number of years depends on the top-level domain. For the range of valid values for your domain, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. Default: 1"];
      currentExpiryYear: CurrentExpiryYear.t
        [@ocaml.doc
          "The year when the registration for the domain is set to expire. This value must match the current expiration date for the domain."]}
    let context_ = "RenewDomainRequest"
    let make ?durationInYears =
      fun ~domainName ->
        fun ~currentExpiryYear ->
          fun () -> { durationInYears; domainName; currentExpiryYear }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("DurationInYears",
          (Option.map x.durationInYears ~f:DurationInYears.to_value));
        ("CurrentExpiryYear",
          (Some (CurrentExpiryYear.to_value x.currentExpiryYear)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currentExpiryYear =
        CurrentExpiryYear.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CurrentExpiryYear") in
      let durationInYears =
        (Option.map ~f:DurationInYears.of_xml)
          (Xml.child xml_arg0 "DurationInYears") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~currentExpiryYear ?durationInYears ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currentExpiryYear =
        field_map_exn json__ "CurrentExpiryYear" CurrentExpiryYear.of_json in
      let durationInYears =
        field_map json__ "DurationInYears" DurationInYears.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~currentExpiryYear ?durationInYears ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A RenewDomain request includes the number of years that you want to renew for and the current expiration year."]
module RejectDomainTransferFromAnotherAwsAccountResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "The identifier that TransferDomainToAnotherAwsAccount returned to track the progress of the request. Because the transfer request was rejected, the value is no longer valid, and you can't use GetOperationDetail to query the operation status."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RejectDomainTransferFromAnotherAwsAccount response includes the following element."]
module RejectDomainTransferFromAnotherAwsAccountRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that was specified when another Amazon Web Services account submitted a TransferDomainToAnotherAwsAccount request."]}
    let context_ = "RejectDomainTransferFromAnotherAwsAccountRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RejectDomainTransferFromAnotherAwsAccount request includes the following element."]
module RegisterDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DomainLimitExceeded of DomainLimitExceeded.t 
      | `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_json json)
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_xml xml)
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DomainLimitExceeded e ->
          `Assoc
            [("error", (`String "DomainLimitExceeded"));
            ("details", (DomainLimitExceeded.to_json e))]
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RegisterDomain response includes the following element."]
module RegisterDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The domain name that you want to register. The top-level domain (TLD), such as .com, must be a TLD that Route 53 supports. For a list of supported TLDs, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. The domain name can contain only the following characters: Letters a through z. Domain names are not case sensitive. Numbers 0 through 9. Hyphen (-). You can't specify a hyphen at the beginning or end of a label. Period (.) to separate the labels in the name, such as the . in example.com. Internationalized domain names are not supported for some top-level domains. To determine whether the TLD that you want to use supports internationalized domain names, see Domains that You Can Register with Amazon Route 53. For more information, see Formatting Internationalized Domain Names."];
      idnLangCode: LangCode.t option [@ocaml.doc "Reserved for future use."];
      durationInYears: DurationInYears.t
        [@ocaml.doc
          "The number of years that you want to register the domain for. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. For the range of valid values for your domain, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. Default: 1"];
      autoRenew: Boolean.t option
        [@ocaml.doc
          "Indicates whether the domain will be automatically renewed (true) or not (false). Auto renewal only takes effect after the account is charged. Default: true"];
      adminContact: ContactDetail.t
        [@ocaml.doc
          "Provides detailed contact information. For information about the values that you specify for each element, see ContactDetail."];
      registrantContact: ContactDetail.t
        [@ocaml.doc
          "Provides detailed contact information. For information about the values that you specify for each element, see ContactDetail."];
      techContact: ContactDetail.t
        [@ocaml.doc
          "Provides detailed contact information. For information about the values that you specify for each element, see ContactDetail."];
      privacyProtectAdminContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the admin contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts. Default: true"];
      privacyProtectRegistrantContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the registrant contact (the domain owner). You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts. Default: true"];
      privacyProtectTechContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the technical contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts. Default: true"];
      billingContact: ContactDetail.t option
        [@ocaml.doc
          "Provides detailed contact information. For information about the values that you specify for each element, see ContactDetail."];
      privacyProtectBillingContact: Boolean.t option
        [@ocaml.doc
          "Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If you specify false, WHOIS queries return the information that you entered for the billing contact. You must specify the same privacy setting for the administrative, billing, registrant, and technical contacts."]}
    let context_ = "RegisterDomainRequest"
    let make ?idnLangCode =
      fun ?autoRenew ->
        fun ?privacyProtectAdminContact ->
          fun ?privacyProtectRegistrantContact ->
            fun ?privacyProtectTechContact ->
              fun ?billingContact ->
                fun ?privacyProtectBillingContact ->
                  fun ~domainName ->
                    fun ~durationInYears ->
                      fun ~adminContact ->
                        fun ~registrantContact ->
                          fun ~techContact ->
                            fun () ->
                              {
                                idnLangCode;
                                autoRenew;
                                privacyProtectAdminContact;
                                privacyProtectRegistrantContact;
                                privacyProtectTechContact;
                                billingContact;
                                privacyProtectBillingContact;
                                domainName;
                                durationInYears;
                                adminContact;
                                registrantContact;
                                techContact
                              }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("IdnLangCode", (Option.map x.idnLangCode ~f:LangCode.to_value));
        ("DurationInYears",
          (Some (DurationInYears.to_value x.durationInYears)));
        ("AutoRenew", (Option.map x.autoRenew ~f:Boolean.to_value));
        ("AdminContact", (Some (ContactDetail.to_value x.adminContact)));
        ("RegistrantContact",
          (Some (ContactDetail.to_value x.registrantContact)));
        ("TechContact", (Some (ContactDetail.to_value x.techContact)));
        ("PrivacyProtectAdminContact",
          (Option.map x.privacyProtectAdminContact ~f:Boolean.to_value));
        ("PrivacyProtectRegistrantContact",
          (Option.map x.privacyProtectRegistrantContact ~f:Boolean.to_value));
        ("PrivacyProtectTechContact",
          (Option.map x.privacyProtectTechContact ~f:Boolean.to_value));
        ("BillingContact",
          (Option.map x.billingContact ~f:ContactDetail.to_value));
        ("PrivacyProtectBillingContact",
          (Option.map x.privacyProtectBillingContact ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privacyProtectBillingContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectBillingContact") in
      let billingContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "BillingContact") in
      let privacyProtectTechContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectTechContact") in
      let privacyProtectRegistrantContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectRegistrantContact") in
      let privacyProtectAdminContact =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PrivacyProtectAdminContact") in
      let techContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TechContact") in
      let registrantContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrantContact") in
      let adminContact =
        ContactDetail.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AdminContact") in
      let autoRenew =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoRenew") in
      let durationInYears =
        DurationInYears.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DurationInYears") in
      let idnLangCode =
        (Option.map ~f:LangCode.of_xml) (Xml.child xml_arg0 "IdnLangCode") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?privacyProtectBillingContact ?billingContact
        ?privacyProtectTechContact ?privacyProtectRegistrantContact
        ?privacyProtectAdminContact ~techContact ~registrantContact
        ~adminContact ?autoRenew ~durationInYears ?idnLangCode ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privacyProtectBillingContact =
        field_map json__ "PrivacyProtectBillingContact" Boolean.of_json in
      let billingContact =
        field_map json__ "BillingContact" ContactDetail.of_json in
      let privacyProtectTechContact =
        field_map json__ "PrivacyProtectTechContact" Boolean.of_json in
      let privacyProtectRegistrantContact =
        field_map json__ "PrivacyProtectRegistrantContact" Boolean.of_json in
      let privacyProtectAdminContact =
        field_map json__ "PrivacyProtectAdminContact" Boolean.of_json in
      let techContact =
        field_map_exn json__ "TechContact" ContactDetail.of_json in
      let registrantContact =
        field_map_exn json__ "RegistrantContact" ContactDetail.of_json in
      let adminContact =
        field_map_exn json__ "AdminContact" ContactDetail.of_json in
      let autoRenew = field_map json__ "AutoRenew" Boolean.of_json in
      let durationInYears =
        field_map_exn json__ "DurationInYears" DurationInYears.of_json in
      let idnLangCode = field_map json__ "IdnLangCode" LangCode.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?privacyProtectBillingContact ?billingContact
        ?privacyProtectTechContact ?privacyProtectRegistrantContact
        ?privacyProtectAdminContact ~techContact ~registrantContact
        ~adminContact ?autoRenew ~durationInYears ?idnLangCode ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RegisterDomain request includes the following elements."]
module PushDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t [@ocaml.doc "Name of the domain."];
      target: Label.t [@ocaml.doc "New IPS tag for the domain."]}
    let context_ = "PushDomainRequest"
    let make ~domainName = fun ~target -> fun () -> { domainName; target }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Target", (Some (Label.to_value x.target)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let target =
        Label.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Target") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~target ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let target = field_map_exn json__ "Target" Label.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~target ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves a domain from Amazon Web Services to another registrar. Supported actions: Changes the IPS tags of a .uk domain, and pushes it to transit. Transit means that the domain is ready to be transferred to another registrar."]
module ListTagsForDomainResponse =
  struct
    type nonrec t =
      {
      tagList: TagList.t option
        [@ocaml.doc
          "A list of the tags that are associated with the specified domain."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tagList = fun () -> { tagList }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      make ?tagList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map json__ "TagList" TagList.of_json in
      make ?tagList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListTagsForDomain response includes the following elements."]
module ListTagsForDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc "The domain for which you want to get a list of tags."]}
    let context_ = "ListTagsForDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListTagsForDomainRequest includes the following elements."]
module ListPricesResponse =
  struct
    type nonrec t =
      {
      prices: DomainPriceList.t option
        [@ocaml.doc
          "A complex type that includes all the pricing information. If you specify a TLD, this array contains only the pricing for that TLD."];
      nextPageMarker: PageMarker.t option
        [@ocaml.doc
          "If there are more prices than you specified for MaxItems in the request, submit another request and include the value of NextPageMarker in the value of Marker. Used only for all TLDs. If you specify a TLD, don't specify a NextPageMarker."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?prices =
      fun ?nextPageMarker -> fun () -> { prices; nextPageMarker }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("Prices", (Option.map x.prices ~f:DomainPriceList.to_value));
        ("NextPageMarker",
          (Option.map x.nextPageMarker ~f:PageMarker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextPageMarker =
        (Option.map ~f:PageMarker.of_xml)
          (Xml.child xml_arg0 "NextPageMarker") in
      let prices =
        (Option.map ~f:DomainPriceList.of_xml) (Xml.child xml_arg0 "Prices") in
      make ?nextPageMarker ?prices ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextPageMarker =
        field_map json__ "NextPageMarker" PageMarker.of_json in
      let prices = field_map json__ "Prices" DomainPriceList.of_json in
      make ?nextPageMarker ?prices ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the following prices for either all the TLDs supported by Route\194\16053, or the specified TLD: Registration Transfer Owner change Domain renewal Domain restoration"]
module ListPricesRequest =
  struct
    type nonrec t =
      {
      tld: TldName.t option
        [@ocaml.doc
          "The TLD for which you want to receive the pricing information. For example. .net. If a Tld value is not provided, a list of prices for all TLDs supported by Route\194\16053 is returned."];
      marker: PageMarker.t option
        [@ocaml.doc
          "For an initial request for a list of prices, omit this element. If the number of prices that are not yet complete is greater than the value that you specified for MaxItems, you can use Marker to return additional prices. Get the value of NextPageMarker from the previous response, and submit another request that includes the value of NextPageMarker in the Marker element. Used only for all TLDs. If you specify a TLD, don't specify a Marker."];
      maxItems: ListPricesPageMaxItems.t option
        [@ocaml.doc
          "Number of Prices to be returned. Used only for all TLDs. If you specify a TLD, don't specify a MaxItems."]}
    let make ?tld =
      fun ?marker -> fun ?maxItems -> fun () -> { tld; marker; maxItems }
    let to_value x =
      structure_to_value
        [("Tld", (Option.map x.tld ~f:TldName.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarker.to_value));
        ("MaxItems",
          (Option.map x.maxItems ~f:ListPricesPageMaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxItems =
        (Option.map ~f:ListPricesPageMaxItems.of_xml)
          (Xml.child xml_arg0 "MaxItems") in
      let marker =
        (Option.map ~f:PageMarker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tld = (Option.map ~f:TldName.of_xml) (Xml.child xml_arg0 "Tld") in
      make ?maxItems ?marker ?tld ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxItems =
        field_map json__ "MaxItems" ListPricesPageMaxItems.of_json in
      let marker = field_map json__ "Marker" PageMarker.of_json in
      let tld = field_map json__ "Tld" TldName.of_json in
      make ?maxItems ?marker ?tld ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the following prices for either all the TLDs supported by Route\194\16053, or the specified TLD: Registration Transfer Owner change Domain renewal Domain restoration"]
module ListOperationsResponse =
  struct
    type nonrec t =
      {
      operations: OperationSummaryList.t option
        [@ocaml.doc "Lists summaries of the operations."];
      nextPageMarker: PageMarker.t option
        [@ocaml.doc
          "If there are more operations than you specified for MaxItems in the request, submit another request and include the value of NextPageMarker in the value of Marker."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operations =
      fun ?nextPageMarker -> fun () -> { operations; nextPageMarker }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.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
        [("Operations",
           (Option.map x.operations ~f:OperationSummaryList.to_value));
        ("NextPageMarker",
          (Option.map x.nextPageMarker ~f:PageMarker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextPageMarker =
        (Option.map ~f:PageMarker.of_xml)
          (Xml.child xml_arg0 "NextPageMarker") in
      let operations =
        (Option.map ~f:OperationSummaryList.of_xml)
          (Xml.child xml_arg0 "Operations") in
      make ?nextPageMarker ?operations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextPageMarker =
        field_map json__ "NextPageMarker" PageMarker.of_json in
      let operations =
        field_map json__ "Operations" OperationSummaryList.of_json in
      make ?nextPageMarker ?operations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListOperations response includes the following elements."]
module ListOperationsRequest =
  struct
    type nonrec t =
      {
      submittedSince: Timestamp.t option
        [@ocaml.doc
          "An optional parameter that lets you get information about all the operations that you submitted after a specified date and time. Specify the date and time in Unix time format and Coordinated Universal time (UTC)."];
      marker: PageMarker.t option
        [@ocaml.doc
          "For an initial request for a list of operations, omit this element. If the number of operations that are not yet complete is greater than the value that you specified for MaxItems, you can use Marker to return additional operations. Get the value of NextPageMarker from the previous response, and submit another request that includes the value of NextPageMarker in the Marker element."];
      maxItems: PageMaxItems.t option
        [@ocaml.doc "Number of domains to be returned. Default: 20"];
      status: OperationStatusList.t option
        [@ocaml.doc "The status of the operations."];
      type_: OperationTypeList.t option
        [@ocaml.doc "An arrays of the domains operation types."];
      sortBy: ListOperationsSortAttributeName.t option
        [@ocaml.doc "The sort type for returned values."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "The sort order for returned values, either ascending or descending."]}
    let make ?submittedSince =
      fun ?marker ->
        fun ?maxItems ->
          fun ?status ->
            fun ?type_ ->
              fun ?sortBy ->
                fun ?sortOrder ->
                  fun () ->
                    {
                      submittedSince;
                      marker;
                      maxItems;
                      status;
                      type_;
                      sortBy;
                      sortOrder
                    }
    let to_value x =
      structure_to_value
        [("SubmittedSince",
           (Option.map x.submittedSince ~f:Timestamp.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarker.to_value));
        ("MaxItems", (Option.map x.maxItems ~f:PageMaxItems.to_value));
        ("Status", (Option.map x.status ~f:OperationStatusList.to_value));
        ("Type", (Option.map x.type_ ~f:OperationTypeList.to_value));
        ("SortBy",
          (Option.map x.sortBy ~f:ListOperationsSortAttributeName.to_value));
        ("SortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "SortOrder") in
      let sortBy =
        (Option.map ~f:ListOperationsSortAttributeName.of_xml)
          (Xml.child xml_arg0 "SortBy") in
      let type_ =
        (Option.map ~f:OperationTypeList.of_xml) (Xml.child xml_arg0 "Type") in
      let status =
        (Option.map ~f:OperationStatusList.of_xml)
          (Xml.child xml_arg0 "Status") in
      let maxItems =
        (Option.map ~f:PageMaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      let marker =
        (Option.map ~f:PageMarker.of_xml) (Xml.child xml_arg0 "Marker") in
      let submittedSince =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedSince") in
      make ?sortOrder ?sortBy ?type_ ?status ?maxItems ?marker
        ?submittedSince ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "SortOrder" SortOrder.of_json in
      let sortBy =
        field_map json__ "SortBy" ListOperationsSortAttributeName.of_json in
      let type_ = field_map json__ "Type" OperationTypeList.of_json in
      let status = field_map json__ "Status" OperationStatusList.of_json in
      let maxItems = field_map json__ "MaxItems" PageMaxItems.of_json in
      let marker = field_map json__ "Marker" PageMarker.of_json in
      let submittedSince =
        field_map json__ "SubmittedSince" Timestamp.of_json in
      make ?sortOrder ?sortBy ?type_ ?status ?maxItems ?marker
        ?submittedSince ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListOperations request includes the following elements."]
module ListDomainsResponse =
  struct
    type nonrec t =
      {
      domains: DomainSummaryList.t option [@ocaml.doc "A list of domains."];
      nextPageMarker: PageMarker.t option
        [@ocaml.doc
          "If there are more domains than you specified for MaxItems in the request, submit another request and include the value of NextPageMarker in the value of Marker."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domains =
      fun ?nextPageMarker -> fun () -> { domains; nextPageMarker }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.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
        [("Domains", (Option.map x.domains ~f:DomainSummaryList.to_value));
        ("NextPageMarker",
          (Option.map x.nextPageMarker ~f:PageMarker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextPageMarker =
        (Option.map ~f:PageMarker.of_xml)
          (Xml.child xml_arg0 "NextPageMarker") in
      let domains =
        (Option.map ~f:DomainSummaryList.of_xml)
          (Xml.child xml_arg0 "Domains") in
      make ?nextPageMarker ?domains ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextPageMarker =
        field_map json__ "NextPageMarker" PageMarker.of_json in
      let domains = field_map json__ "Domains" DomainSummaryList.of_json in
      make ?nextPageMarker ?domains ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListDomains response includes the following elements."]
module ListDomainsRequest =
  struct
    type nonrec t =
      {
      filterConditions: FilterConditions.t option
        [@ocaml.doc
          "A complex type that contains information about the filters applied during the ListDomains request. The filter conditions can include domain name and domain expiration."];
      sortCondition: SortCondition.t option
        [@ocaml.doc
          "A complex type that contains information about the requested ordering of domains in the returned list."];
      marker: PageMarker.t option
        [@ocaml.doc
          "For an initial request for a list of domains, omit this element. If the number of domains that are associated with the current Amazon Web Services account is greater than the value that you specified for MaxItems, you can use Marker to return additional domains. Get the value of NextPageMarker from the previous response, and submit another request that includes the value of NextPageMarker in the Marker element. Constraints: The marker must match the value specified in the previous request."];
      maxItems: PageMaxItems.t option
        [@ocaml.doc "Number of domains to be returned. Default: 20"]}
    let make ?filterConditions =
      fun ?sortCondition ->
        fun ?marker ->
          fun ?maxItems ->
            fun () -> { filterConditions; sortCondition; marker; maxItems }
    let to_value x =
      structure_to_value
        [("FilterConditions",
           (Option.map x.filterConditions ~f:FilterConditions.to_value));
        ("SortCondition",
          (Option.map x.sortCondition ~f:SortCondition.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarker.to_value));
        ("MaxItems", (Option.map x.maxItems ~f:PageMaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxItems =
        (Option.map ~f:PageMaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      let marker =
        (Option.map ~f:PageMarker.of_xml) (Xml.child xml_arg0 "Marker") in
      let sortCondition =
        (Option.map ~f:SortCondition.of_xml)
          (Xml.child xml_arg0 "SortCondition") in
      let filterConditions =
        (Option.map ~f:FilterConditions.of_xml)
          (Xml.child xml_arg0 "FilterConditions") in
      make ?maxItems ?marker ?sortCondition ?filterConditions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxItems = field_map json__ "MaxItems" PageMaxItems.of_json in
      let marker = field_map json__ "Marker" PageMarker.of_json in
      let sortCondition =
        field_map json__ "SortCondition" SortCondition.of_json in
      let filterConditions =
        field_map json__ "FilterConditions" FilterConditions.of_json in
      make ?maxItems ?marker ?sortCondition ?filterConditions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The ListDomains request includes the following elements."]
module GetOperationDetailResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc "The identifier for the operation."];
      status: OperationStatus.t option
        [@ocaml.doc
          "The current status of the requested operation in the system."];
      message: ErrorMessage.t option
        [@ocaml.doc
          "Detailed information on the status including possible errors."];
      domainName: DomainName.t option [@ocaml.doc "The name of a domain."];
      type_: OperationType.t option
        [@ocaml.doc "The type of operation that was requested."];
      submittedDate: Timestamp.t option
        [@ocaml.doc "The date when the request was submitted."];
      lastUpdatedDate: Timestamp.t option
        [@ocaml.doc "The date when the operation was last updated."];
      statusFlag: StatusFlag.t option
        [@ocaml.doc
          "Lists any outstanding operations that require customer action. Valid values are: PENDING_ACCEPTANCE: The operation is waiting for acceptance from the account that is receiving the domain. PENDING_CUSTOMER_ACTION: The operation is waiting for customer action, for example, returning an email. PENDING_AUTHORIZATION: The operation is waiting for the form of authorization. For more information, see ResendOperationAuthorization. PENDING_PAYMENT_VERIFICATION: The operation is waiting for the payment method to validate. PENDING_SUPPORT_CASE: The operation includes a support case and is waiting for its resolution."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId =
      fun ?status ->
        fun ?message ->
          fun ?domainName ->
            fun ?type_ ->
              fun ?submittedDate ->
                fun ?lastUpdatedDate ->
                  fun ?statusFlag ->
                    fun () ->
                      {
                        operationId;
                        status;
                        message;
                        domainName;
                        type_;
                        submittedDate;
                        lastUpdatedDate;
                        statusFlag
                      }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value));
        ("Status", (Option.map x.status ~f:OperationStatus.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Type", (Option.map x.type_ ~f:OperationType.to_value));
        ("SubmittedDate", (Option.map x.submittedDate ~f:Timestamp.to_value));
        ("LastUpdatedDate",
          (Option.map x.lastUpdatedDate ~f:Timestamp.to_value));
        ("StatusFlag", (Option.map x.statusFlag ~f:StatusFlag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusFlag =
        (Option.map ~f:StatusFlag.of_xml) (Xml.child xml_arg0 "StatusFlag") in
      let lastUpdatedDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDate") in
      let submittedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "SubmittedDate") in
      let type_ =
        (Option.map ~f:OperationType.of_xml) (Xml.child xml_arg0 "Type") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let status =
        (Option.map ~f:OperationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?statusFlag ?lastUpdatedDate ?submittedDate ?type_ ?domainName
        ?message ?status ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusFlag = field_map json__ "StatusFlag" StatusFlag.of_json in
      let lastUpdatedDate =
        field_map json__ "LastUpdatedDate" Timestamp.of_json in
      let submittedDate = field_map json__ "SubmittedDate" Timestamp.of_json in
      let type_ = field_map json__ "Type" OperationType.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let status = field_map json__ "Status" OperationStatus.of_json in
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?statusFlag ?lastUpdatedDate ?submittedDate ?type_ ?domainName
        ?message ?status ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetOperationDetail response includes the following elements."]
module GetOperationDetailRequest =
  struct
    type nonrec t =
      {
      operationId: OperationId.t
        [@ocaml.doc
          "The identifier for the operation for which you want to get the status. Route 53 returned the identifier in the response to the original request."]}
    let context_ = "GetOperationDetailRequest"
    let make ~operationId = fun () -> { operationId }
    let to_value x =
      structure_to_value
        [("OperationId", (Some (OperationId.to_value x.operationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        OperationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OperationId") in
      make ~operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId =
        field_map_exn json__ "OperationId" OperationId.of_json in
      make ~operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetOperationDetail request includes the following element."]
module GetDomainSuggestionsResponse =
  struct
    type nonrec t =
      {
      suggestionsList: DomainSuggestionsList.t option
        [@ocaml.doc
          "A list of possible domain names. If you specified true for OnlyAvailable in the request, the list contains only domains that are available for registration."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `TLDInMaintenance of TLDInMaintenance.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suggestionsList = fun () -> { suggestionsList }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDInMaintenance" ->
          `TLDInMaintenance (TLDInMaintenance.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDInMaintenance" -> `TLDInMaintenance (TLDInMaintenance.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDInMaintenance e ->
          `Assoc
            [("error", (`String "TLDInMaintenance"));
            ("details", (TLDInMaintenance.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("SuggestionsList",
           (Option.map x.suggestionsList ~f:DomainSuggestionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suggestionsList =
        (Option.map ~f:DomainSuggestionsList.of_xml)
          (Xml.child xml_arg0 "SuggestionsList") in
      make ?suggestionsList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suggestionsList =
        field_map json__ "SuggestionsList" DomainSuggestionsList.of_json in
      make ?suggestionsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetDomainSuggestions operation returns a list of suggested domain names."]
module GetDomainSuggestionsRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "A domain name that you want to use as the basis for a list of possible domain names. The top-level domain (TLD), such as .com, must be a TLD that Route 53 supports. For a list of supported TLDs, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. The domain name can contain only the following characters: Letters a through z. Domain names are not case sensitive. Numbers 0 through 9. Hyphen (-). You can't specify a hyphen at the beginning or end of a label. Period (.) to separate the labels in the name, such as the . in example.com. Internationalized domain names are not supported for some top-level domains. To determine whether the TLD that you want to use supports internationalized domain names, see Domains that You Can Register with Amazon Route 53."];
      suggestionCount: Integer.t
        [@ocaml.doc
          "The number of suggested domain names that you want Route 53 to return. Specify a value between 1 and 50. Note that fewer than the requested number might be returned."];
      onlyAvailable: Boolean.t
        [@ocaml.doc
          "If OnlyAvailable is true, Route 53 returns only domain names that are available. If OnlyAvailable is false, Route 53 returns domain names without checking whether they're available to be registered. To determine whether the domain is available, you can call checkDomainAvailability for each suggestion."]}
    let context_ = "GetDomainSuggestionsRequest"
    let make ~domainName =
      fun ~suggestionCount ->
        fun ~onlyAvailable ->
          fun () -> { domainName; suggestionCount; onlyAvailable }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("SuggestionCount", (Some (Integer.to_value x.suggestionCount)));
        ("OnlyAvailable", (Some (Boolean.to_value x.onlyAvailable)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let onlyAvailable =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OnlyAvailable") in
      let suggestionCount =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SuggestionCount") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~onlyAvailable ~suggestionCount ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let onlyAvailable =
        field_map_exn json__ "OnlyAvailable" Boolean.of_json in
      let suggestionCount =
        field_map_exn json__ "SuggestionCount" Integer.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~onlyAvailable ~suggestionCount ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetDomainSuggestions operation returns a list of suggested domain names."]
module GetDomainDetailResponse =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option [@ocaml.doc "The name of a domain."];
      nameservers: NameserverList.t option
        [@ocaml.doc "The name servers of the domain."];
      autoRenew: Boolean.t option
        [@ocaml.doc
          "Specifies whether the domain registration is set to renew automatically."];
      adminContact: ContactDetail.t option
        [@ocaml.doc
          "Provides details about the domain administrative contact."];
      registrantContact: ContactDetail.t option
        [@ocaml.doc "Provides details about the domain registrant."];
      techContact: ContactDetail.t option
        [@ocaml.doc "Provides details about the domain technical contact."];
      adminPrivacy: Boolean.t option
        [@ocaml.doc
          "Specifies whether contact information is concealed from WHOIS queries. If the value is true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If the value is false, WHOIS queries return the information that you entered for the admin contact."];
      registrantPrivacy: Boolean.t option
        [@ocaml.doc
          "Specifies whether contact information is concealed from WHOIS queries. If the value is true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If the value is false, WHOIS queries return the information that you entered for the registrant contact (domain owner)."];
      techPrivacy: Boolean.t option
        [@ocaml.doc
          "Specifies whether contact information is concealed from WHOIS queries. If the value is true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If the value is false, WHOIS queries return the information that you entered for the technical contact."];
      registrarName: RegistrarName.t option
        [@ocaml.doc
          "Name of the registrar of the domain as identified in the registry."];
      whoIsServer: RegistrarWhoIsServer.t option
        [@ocaml.doc
          "The fully qualified name of the WHOIS server that can answer the WHOIS query for the domain."];
      registrarUrl: RegistrarUrl.t option
        [@ocaml.doc "Web address of the registrar."];
      abuseContactEmail: Email.t option
        [@ocaml.doc
          "Email address to contact to report incorrect contact information for a domain, to report that the domain is being used to send spam, to report that someone is cybersquatting on a domain name, or report some other type of abuse."];
      abuseContactPhone: ContactNumber.t option
        [@ocaml.doc "Phone number for reporting abuse."];
      registryDomainId: RegistryDomainId.t option
        [@ocaml.doc "Reserved for future use."];
      creationDate: Timestamp.t option
        [@ocaml.doc
          "The date when the domain was created as found in the response to a WHOIS query. The date and time is in Unix time format and Coordinated Universal time (UTC)."];
      updatedDate: Timestamp.t option
        [@ocaml.doc
          "The last updated date of the domain as found in the response to a WHOIS query. The date and time is in Unix time format and Coordinated Universal time (UTC)."];
      expirationDate: Timestamp.t option
        [@ocaml.doc
          "The date when the registration for the domain is set to expire. The date and time is in Unix time format and Coordinated Universal time (UTC)."];
      reseller: Reseller.t option [@ocaml.doc "Reserved for future use."];
      dnsSec: DNSSec.t option [@ocaml.doc "Deprecated."];
      statusList: DomainStatusList.t option
        [@ocaml.doc
          "An array of domain name status codes, also known as Extensible Provisioning Protocol (EPP) status codes. ICANN, the organization that maintains a central database of domain names, has developed a set of domain name status codes that tell you the status of a variety of operations on a domain name, for example, registering a domain name, transferring a domain name to another registrar, renewing the registration for a domain name, and so on. All registrars use this same set of status codes. For a current list of domain name status codes and an explanation of what each code means, go to the ICANN website and search for epp status codes. (Search on the ICANN website; web searches sometimes return an old version of the document.)"];
      dnssecKeys: DnssecKeyList.t option
        [@ocaml.doc
          "A complex type that contains information about the DNSSEC configuration."];
      billingContact: ContactDetail.t option
        [@ocaml.doc "Provides details about the domain billing contact."];
      billingPrivacy: Boolean.t option
        [@ocaml.doc
          "Specifies whether contact information is concealed from WHOIS queries. If the value is true, WHOIS (\"who is\") queries return contact information either for Amazon Registrar or for our registrar associate, Gandi. If the value is false, WHOIS queries return the information that you entered for the billing contact."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainName =
      fun ?nameservers ->
        fun ?autoRenew ->
          fun ?adminContact ->
            fun ?registrantContact ->
              fun ?techContact ->
                fun ?adminPrivacy ->
                  fun ?registrantPrivacy ->
                    fun ?techPrivacy ->
                      fun ?registrarName ->
                        fun ?whoIsServer ->
                          fun ?registrarUrl ->
                            fun ?abuseContactEmail ->
                              fun ?abuseContactPhone ->
                                fun ?registryDomainId ->
                                  fun ?creationDate ->
                                    fun ?updatedDate ->
                                      fun ?expirationDate ->
                                        fun ?reseller ->
                                          fun ?dnsSec ->
                                            fun ?statusList ->
                                              fun ?dnssecKeys ->
                                                fun ?billingContact ->
                                                  fun ?billingPrivacy ->
                                                    fun () ->
                                                      {
                                                        domainName;
                                                        nameservers;
                                                        autoRenew;
                                                        adminContact;
                                                        registrantContact;
                                                        techContact;
                                                        adminPrivacy;
                                                        registrantPrivacy;
                                                        techPrivacy;
                                                        registrarName;
                                                        whoIsServer;
                                                        registrarUrl;
                                                        abuseContactEmail;
                                                        abuseContactPhone;
                                                        registryDomainId;
                                                        creationDate;
                                                        updatedDate;
                                                        expirationDate;
                                                        reseller;
                                                        dnsSec;
                                                        statusList;
                                                        dnssecKeys;
                                                        billingContact;
                                                        billingPrivacy
                                                      }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Nameservers",
          (Option.map x.nameservers ~f:NameserverList.to_value));
        ("AutoRenew", (Option.map x.autoRenew ~f:Boolean.to_value));
        ("AdminContact",
          (Option.map x.adminContact ~f:ContactDetail.to_value));
        ("RegistrantContact",
          (Option.map x.registrantContact ~f:ContactDetail.to_value));
        ("TechContact", (Option.map x.techContact ~f:ContactDetail.to_value));
        ("AdminPrivacy", (Option.map x.adminPrivacy ~f:Boolean.to_value));
        ("RegistrantPrivacy",
          (Option.map x.registrantPrivacy ~f:Boolean.to_value));
        ("TechPrivacy", (Option.map x.techPrivacy ~f:Boolean.to_value));
        ("RegistrarName",
          (Option.map x.registrarName ~f:RegistrarName.to_value));
        ("WhoIsServer",
          (Option.map x.whoIsServer ~f:RegistrarWhoIsServer.to_value));
        ("RegistrarUrl",
          (Option.map x.registrarUrl ~f:RegistrarUrl.to_value));
        ("AbuseContactEmail",
          (Option.map x.abuseContactEmail ~f:Email.to_value));
        ("AbuseContactPhone",
          (Option.map x.abuseContactPhone ~f:ContactNumber.to_value));
        ("RegistryDomainId",
          (Option.map x.registryDomainId ~f:RegistryDomainId.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Timestamp.to_value));
        ("UpdatedDate", (Option.map x.updatedDate ~f:Timestamp.to_value));
        ("ExpirationDate",
          (Option.map x.expirationDate ~f:Timestamp.to_value));
        ("Reseller", (Option.map x.reseller ~f:Reseller.to_value));
        ("DnsSec", (Option.map x.dnsSec ~f:DNSSec.to_value));
        ("StatusList",
          (Option.map x.statusList ~f:DomainStatusList.to_value));
        ("DnssecKeys", (Option.map x.dnssecKeys ~f:DnssecKeyList.to_value));
        ("BillingContact",
          (Option.map x.billingContact ~f:ContactDetail.to_value));
        ("BillingPrivacy", (Option.map x.billingPrivacy ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "BillingPrivacy") in
      let billingContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "BillingContact") in
      let dnssecKeys =
        (Option.map ~f:DnssecKeyList.of_xml)
          (Xml.child xml_arg0 "DnssecKeys") in
      let statusList =
        (Option.map ~f:DomainStatusList.of_xml)
          (Xml.child xml_arg0 "StatusList") in
      let dnsSec =
        (Option.map ~f:DNSSec.of_xml) (Xml.child xml_arg0 "DnsSec") in
      let reseller =
        (Option.map ~f:Reseller.of_xml) (Xml.child xml_arg0 "Reseller") in
      let expirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationDate") in
      let updatedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "UpdatedDate") in
      let creationDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let registryDomainId =
        (Option.map ~f:RegistryDomainId.of_xml)
          (Xml.child xml_arg0 "RegistryDomainId") in
      let abuseContactPhone =
        (Option.map ~f:ContactNumber.of_xml)
          (Xml.child xml_arg0 "AbuseContactPhone") in
      let abuseContactEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "AbuseContactEmail") in
      let registrarUrl =
        (Option.map ~f:RegistrarUrl.of_xml)
          (Xml.child xml_arg0 "RegistrarUrl") in
      let whoIsServer =
        (Option.map ~f:RegistrarWhoIsServer.of_xml)
          (Xml.child xml_arg0 "WhoIsServer") in
      let registrarName =
        (Option.map ~f:RegistrarName.of_xml)
          (Xml.child xml_arg0 "RegistrarName") in
      let techPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TechPrivacy") in
      let registrantPrivacy =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RegistrantPrivacy") in
      let adminPrivacy =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AdminPrivacy") in
      let techContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "TechContact") in
      let registrantContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "RegistrantContact") in
      let adminContact =
        (Option.map ~f:ContactDetail.of_xml)
          (Xml.child xml_arg0 "AdminContact") in
      let autoRenew =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoRenew") in
      let nameservers =
        (Option.map ~f:NameserverList.of_xml)
          (Xml.child xml_arg0 "Nameservers") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?billingPrivacy ?billingContact ?dnssecKeys ?statusList ?dnsSec
        ?reseller ?expirationDate ?updatedDate ?creationDate
        ?registryDomainId ?abuseContactPhone ?abuseContactEmail ?registrarUrl
        ?whoIsServer ?registrarName ?techPrivacy ?registrantPrivacy
        ?adminPrivacy ?techContact ?registrantContact ?adminContact
        ?autoRenew ?nameservers ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPrivacy = field_map json__ "BillingPrivacy" Boolean.of_json in
      let billingContact =
        field_map json__ "BillingContact" ContactDetail.of_json in
      let dnssecKeys = field_map json__ "DnssecKeys" DnssecKeyList.of_json in
      let statusList = field_map json__ "StatusList" DomainStatusList.of_json in
      let dnsSec = field_map json__ "DnsSec" DNSSec.of_json in
      let reseller = field_map json__ "Reseller" Reseller.of_json in
      let expirationDate =
        field_map json__ "ExpirationDate" Timestamp.of_json in
      let updatedDate = field_map json__ "UpdatedDate" Timestamp.of_json in
      let creationDate = field_map json__ "CreationDate" Timestamp.of_json in
      let registryDomainId =
        field_map json__ "RegistryDomainId" RegistryDomainId.of_json in
      let abuseContactPhone =
        field_map json__ "AbuseContactPhone" ContactNumber.of_json in
      let abuseContactEmail =
        field_map json__ "AbuseContactEmail" Email.of_json in
      let registrarUrl = field_map json__ "RegistrarUrl" RegistrarUrl.of_json in
      let whoIsServer =
        field_map json__ "WhoIsServer" RegistrarWhoIsServer.of_json in
      let registrarName =
        field_map json__ "RegistrarName" RegistrarName.of_json in
      let techPrivacy = field_map json__ "TechPrivacy" Boolean.of_json in
      let registrantPrivacy =
        field_map json__ "RegistrantPrivacy" Boolean.of_json in
      let adminPrivacy = field_map json__ "AdminPrivacy" Boolean.of_json in
      let techContact = field_map json__ "TechContact" ContactDetail.of_json in
      let registrantContact =
        field_map json__ "RegistrantContact" ContactDetail.of_json in
      let adminContact =
        field_map json__ "AdminContact" ContactDetail.of_json in
      let autoRenew = field_map json__ "AutoRenew" Boolean.of_json in
      let nameservers = field_map json__ "Nameservers" NameserverList.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?billingPrivacy ?billingContact ?dnssecKeys ?statusList ?dnsSec
        ?reseller ?expirationDate ?updatedDate ?creationDate
        ?registryDomainId ?abuseContactPhone ?abuseContactEmail ?registrarUrl
        ?whoIsServer ?registrarName ?techPrivacy ?registrantPrivacy
        ?adminPrivacy ?techContact ?registrantContact ?adminContact
        ?autoRenew ?nameservers ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetDomainDetail response includes the following elements."]
module GetDomainDetailRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to get detailed information about."]}
    let context_ = "GetDomainDetailRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The GetDomainDetail request includes the following element."]
module GetContactReachabilityStatusResponse =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The domain name for which you requested the reachability status."];
      status: ReachabilityStatus.t option
        [@ocaml.doc
          "Whether the registrant contact has responded. Values include the following: PENDING We sent the confirmation email and haven't received a response yet. DONE We sent the email and got confirmation from the registrant contact. EXPIRED The time limit expired before the registrant contact responded."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainName = fun ?status -> fun () -> { domainName; status }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("status", (Option.map x.status ~f:ReachabilityStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ReachabilityStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?status ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ReachabilityStatus.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?status ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For operations that require confirmation that the email address for the registrant contact is valid, such as registering a new domain, this operation returns information about whether the registrant contact has responded. If you want us to resend the email, use the ResendContactReachabilityEmail operation."]
module GetContactReachabilityStatusRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The name of the domain for which you want to know whether the registrant contact has confirmed that the email address is valid."]}
    let make ?domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For operations that require confirmation that the email address for the registrant contact is valid, such as registering a new domain, this operation returns information about whether the registrant contact has responded. If you want us to resend the email, use the ResendContactReachabilityEmail operation."]
module EnableDomainTransferLockResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The EnableDomainTransferLock response includes the following elements."]
module EnableDomainTransferLockRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to set the transfer lock for."]}
    let context_ = "EnableDomainTransferLockRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to set the transfer lock for the specified domain."]
module EnableDomainAutoRenewResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
       "This operation configures Amazon Route 53 to automatically renew the specified domain before the domain registration expires. The cost of renewing your domain registration is billed to your Amazon Web Services account. The period during which you can renew a domain name varies by TLD. For a list of TLDs and their renewal policies, see Domains That You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. Route 53 requires that you renew before the end of the renewal period so we can complete processing before the deadline."]
module EnableDomainAutoRenewRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to enable automatic renewal for."]}
    let context_ = "EnableDomainAutoRenewRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation configures Amazon Route 53 to automatically renew the specified domain before the domain registration expires. The cost of renewing your domain registration is billed to your Amazon Web Services account. The period during which you can renew a domain name varies by TLD. For a list of TLDs and their renewal policies, see Domains That You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. Route 53 requires that you renew before the end of the renewal period so we can complete processing before the deadline."]
module DisassociateDelegationSignerFromDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a delegation signer (DS) record in the registry zone for this domain name."]
module DisassociateDelegationSignerFromDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t [@ocaml.doc "Name of the domain."];
      id: String_.t
        [@ocaml.doc
          "An internal identification number assigned to each DS record after it\226\128\153s created. You can retrieve it as part of DNSSEC information returned by GetDomainDetail."]}
    let context_ = "DisassociateDelegationSignerFromDomainRequest"
    let make ~domainName = fun ~id -> fun () -> { domainName; id }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Id", (Some (String_.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~id ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" String_.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~id ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a delegation signer (DS) record in the registry zone for this domain name."]
module DisableDomainTransferLockResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DisableDomainTransferLock response includes the following element."]
module DisableDomainTransferLockRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to remove the transfer lock for."]}
    let context_ = "DisableDomainTransferLockRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DisableDomainTransferLock request includes the following element."]
module DisableDomainAutoRenewResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
       "This operation disables automatic renewal of domain registration for the specified domain."]
module DisableDomainAutoRenewRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to disable automatic renewal for."]}
    let context_ = "DisableDomainAutoRenewRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation disables automatic renewal of domain registration for the specified domain."]
module DeleteTagsForDomainResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
       "This operation deletes the specified tags for a domain. All tag operations are eventually consistent; subsequent operations might not immediately represent all issued operations."]
module DeleteTagsForDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The domain for which you want to delete one or more tags."];
      tagsToDelete: TagKeyList.t [@ocaml.doc "A list of tag keys to delete."]}
    let context_ = "DeleteTagsForDomainRequest"
    let make ~domainName =
      fun ~tagsToDelete -> fun () -> { domainName; tagsToDelete }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("TagsToDelete", (Some (TagKeyList.to_value x.tagsToDelete)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagsToDelete =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagsToDelete") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~tagsToDelete ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagsToDelete =
        field_map_exn json__ "TagsToDelete" TagKeyList.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~tagsToDelete ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DeleteTagsForDomainRequest includes the following elements."]
module DeleteDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation deletes the specified domain. This action is permanent. For more information, see Deleting a domain name registration. To transfer the domain registration to another registrar, use the transfer process that\226\128\153s provided by the registrar to which you want to transfer the registration. Otherwise, the following apply: You can\226\128\153t get a refund for the cost of a deleted domain registration. The registry for the top-level domain might hold the domain name for a brief time before releasing it for other users to register (varies by registry). When the registration has been deleted, we'll send you a confirmation to the registrant contact. The email will come from noreply\\@domainnameverification.net or noreply\\@emailverification.info or noreply\\@registrar.amazon."]
module DeleteDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc "Name of the domain to be deleted."]}
    let context_ = "DeleteDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation deletes the specified domain. This action is permanent. For more information, see Deleting a domain name registration. To transfer the domain registration to another registrar, use the transfer process that\226\128\153s provided by the registrar to which you want to transfer the registration. Otherwise, the following apply: You can\226\128\153t get a refund for the cost of a deleted domain registration. The registry for the top-level domain might hold the domain name for a brief time before releasing it for other users to register (varies by registry). When the registration has been deleted, we'll send you a confirmation to the registrant contact. The email will come from noreply\\@domainnameverification.net or noreply\\@emailverification.info or noreply\\@registrar.amazon."]
module CheckDomainTransferabilityResponse =
  struct
    type nonrec t =
      {
      transferability: DomainTransferability.t option
        [@ocaml.doc
          "A complex type that contains information about whether the specified domain can be transferred to Route 53."];
      message: Message.t option
        [@ocaml.doc
          "Provides an explanation for when a domain can't be transferred."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `TLDInMaintenance of TLDInMaintenance.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transferability =
      fun ?message -> fun () -> { transferability; message }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDInMaintenance" ->
          `TLDInMaintenance (TLDInMaintenance.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDInMaintenance" -> `TLDInMaintenance (TLDInMaintenance.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDInMaintenance e ->
          `Assoc
            [("error", (`String "TLDInMaintenance"));
            ("details", (TLDInMaintenance.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("Transferability",
           (Option.map x.transferability ~f:DomainTransferability.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let transferability =
        (Option.map ~f:DomainTransferability.of_xml)
          (Xml.child xml_arg0 "Transferability") in
      make ?message ?transferability ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      let transferability =
        field_map json__ "Transferability" DomainTransferability.of_json in
      make ?message ?transferability ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CheckDomainTransferability response includes the following elements."]
module CheckDomainTransferabilityRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to transfer to Route 53. The top-level domain (TLD), such as .com, must be a TLD that Route 53 supports. For a list of supported TLDs, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. The domain name can contain only the following characters: Letters a through z. Domain names are not case sensitive. Numbers 0 through 9. Hyphen (-). You can't specify a hyphen at the beginning or end of a label. Period (.) to separate the labels in the name, such as the . in example.com."];
      authCode: DomainAuthCode.t option
        [@ocaml.doc
          "If the registrar for the top-level domain (TLD) requires an authorization code to transfer the domain, the code that you got from the current registrar for the domain."]}
    let context_ = "CheckDomainTransferabilityRequest"
    let make ?authCode =
      fun ~domainName -> fun () -> { authCode; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("AuthCode", (Option.map x.authCode ~f:DomainAuthCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authCode =
        (Option.map ~f:DomainAuthCode.of_xml) (Xml.child xml_arg0 "AuthCode") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?authCode ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authCode = field_map json__ "AuthCode" DomainAuthCode.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?authCode ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CheckDomainTransferability request contains the following elements."]
module CheckDomainAvailabilityResponse =
  struct
    type nonrec t =
      {
      availability: DomainAvailability.t option
        [@ocaml.doc
          "Whether the domain name is available for registering. You can register only domains designated as AVAILABLE. Valid values: AVAILABLE The domain name is available. AVAILABLE_RESERVED The domain name is reserved under specific conditions. AVAILABLE_PREORDER The domain name is available and can be preordered. DONT_KNOW The TLD registry didn't reply with a definitive answer about whether the domain name is available. Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later. INVALID_NAME_FOR_TLD The TLD isn't valid. For example, it can contain characters that aren't allowed. PENDING The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately. RESERVED The domain name has been reserved for another person or organization. UNAVAILABLE The domain name is not available. UNAVAILABLE_PREMIUM The domain name is not available. UNAVAILABLE_RESTRICTED The domain name is forbidden."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `TLDInMaintenance of TLDInMaintenance.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?availability = fun () -> { availability }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "TLDInMaintenance" ->
          `TLDInMaintenance (TLDInMaintenance.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "TLDInMaintenance" -> `TLDInMaintenance (TLDInMaintenance.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `TLDInMaintenance e ->
          `Assoc
            [("error", (`String "TLDInMaintenance"));
            ("details", (TLDInMaintenance.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("Availability",
           (Option.map x.availability ~f:DomainAvailability.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availability =
        (Option.map ~f:DomainAvailability.of_xml)
          (Xml.child xml_arg0 "Availability") in
      make ?availability ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availability =
        field_map json__ "Availability" DomainAvailability.of_json in
      make ?availability ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CheckDomainAvailability response includes the following elements."]
module CheckDomainAvailabilityRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to get availability for. The top-level domain (TLD), such as .com, must be a TLD that Route 53 supports. For a list of supported TLDs, see Domains that You Can Register with Amazon Route 53 in the Amazon Route 53 Developer Guide. The domain name can contain only the following characters: Letters a through z. Domain names are not case sensitive. Numbers 0 through 9. Hyphen (-). You can't specify a hyphen at the beginning or end of a label. Period (.) to separate the labels in the name, such as the . in example.com. Internationalized domain names are not supported for some top-level domains. To determine whether the TLD that you want to use supports internationalized domain names, see Domains that You Can Register with Amazon Route 53. For more information, see Formatting Internationalized Domain Names."];
      idnLangCode: LangCode.t option [@ocaml.doc "Reserved for future use."]}
    let context_ = "CheckDomainAvailabilityRequest"
    let make ?idnLangCode =
      fun ~domainName -> fun () -> { idnLangCode; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("IdnLangCode", (Option.map x.idnLangCode ~f:LangCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idnLangCode =
        (Option.map ~f:LangCode.of_xml) (Xml.child xml_arg0 "IdnLangCode") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?idnLangCode ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idnLangCode = field_map json__ "IdnLangCode" LangCode.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?idnLangCode ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CheckDomainAvailability request contains the following elements."]
module CancelDomainTransferToAnotherAwsAccountResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "The identifier that TransferDomainToAnotherAwsAccount returned to track the progress of the request. Because the transfer request was canceled, the value is no longer valid, and you can't use GetOperationDetail to query the operation status."]}
    type nonrec error =
      [ `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CancelDomainTransferToAnotherAwsAccount response includes the following element."]
module CancelDomainTransferToAnotherAwsAccountRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain for which you want to cancel the transfer to another Amazon Web Services account."]}
    let context_ = "CancelDomainTransferToAnotherAwsAccountRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CancelDomainTransferToAnotherAwsAccount request includes the following element."]
module AssociateDelegationSignerToDomainResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "The identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DnssecLimitExceeded of DnssecLimitExceeded.t 
      | `DuplicateRequest of DuplicateRequest.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `TLDRulesViolation of TLDRulesViolation.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DnssecLimitExceeded" ->
          `DnssecLimitExceeded (DnssecLimitExceeded.of_json json)
      | "DuplicateRequest" ->
          `DuplicateRequest (DuplicateRequest.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DnssecLimitExceeded" ->
          `DnssecLimitExceeded (DnssecLimitExceeded.of_xml xml)
      | "DuplicateRequest" -> `DuplicateRequest (DuplicateRequest.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "TLDRulesViolation" ->
          `TLDRulesViolation (TLDRulesViolation.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DnssecLimitExceeded e ->
          `Assoc
            [("error", (`String "DnssecLimitExceeded"));
            ("details", (DnssecLimitExceeded.to_json e))]
      | `DuplicateRequest e ->
          `Assoc
            [("error", (`String "DuplicateRequest"));
            ("details", (DuplicateRequest.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `TLDRulesViolation e ->
          `Assoc
            [("error", (`String "TLDRulesViolation"));
            ("details", (TLDRulesViolation.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a delegation signer (DS) record in the registry zone for this domain name. Note that creating DS record at the registry impacts DNSSEC validation of your DNS records. This action may render your domain name unavailable on the internet if the steps are completed in the wrong order, or with incorrect timing. For more information about DNSSEC signing, see Configuring DNSSEC signing in the Route\194\16053 developer guide."]
module AssociateDelegationSignerToDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t [@ocaml.doc "The name of the domain."];
      signingAttributes: DnssecSigningAttributes.t
        [@ocaml.doc
          "The information about a key, including the algorithm, public key-value, and flags."]}
    let context_ = "AssociateDelegationSignerToDomainRequest"
    let make ~domainName =
      fun ~signingAttributes -> fun () -> { domainName; signingAttributes }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("SigningAttributes",
          (Some (DnssecSigningAttributes.to_value x.signingAttributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signingAttributes =
        DnssecSigningAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigningAttributes") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~signingAttributes ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signingAttributes =
        field_map_exn json__ "SigningAttributes"
          DnssecSigningAttributes.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~signingAttributes ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a delegation signer (DS) record in the registry zone for this domain name. Note that creating DS record at the registry impacts DNSSEC validation of your DNS records. This action may render your domain name unavailable on the internet if the steps are completed in the wrong order, or with incorrect timing. For more information about DNSSEC signing, see Configuring DNSSEC signing in the Route\194\16053 developer guide."]
module AcceptDomainTransferFromAnotherAwsAccountResponse =
  struct
    type nonrec t =
      {
      operationId: OperationId.t option
        [@ocaml.doc
          "Identifier for tracking the progress of the request. To query the operation status, use GetOperationDetail."]}
    type nonrec error =
      [ `DomainLimitExceeded of DomainLimitExceeded.t 
      | `InvalidInput of InvalidInput.t 
      | `OperationLimitExceeded of OperationLimitExceeded.t 
      | `UnsupportedTLD of UnsupportedTLD.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?operationId = fun () -> { operationId }
    let error_of_json name json =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_json json)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_json json)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_json json)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DomainLimitExceeded" ->
          `DomainLimitExceeded (DomainLimitExceeded.of_xml xml)
      | "InvalidInput" -> `InvalidInput (InvalidInput.of_xml xml)
      | "OperationLimitExceeded" ->
          `OperationLimitExceeded (OperationLimitExceeded.of_xml xml)
      | "UnsupportedTLD" -> `UnsupportedTLD (UnsupportedTLD.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DomainLimitExceeded e ->
          `Assoc
            [("error", (`String "DomainLimitExceeded"));
            ("details", (DomainLimitExceeded.to_json e))]
      | `InvalidInput e ->
          `Assoc
            [("error", (`String "InvalidInput"));
            ("details", (InvalidInput.to_json e))]
      | `OperationLimitExceeded e ->
          `Assoc
            [("error", (`String "OperationLimitExceeded"));
            ("details", (OperationLimitExceeded.to_json e))]
      | `UnsupportedTLD e ->
          `Assoc
            [("error", (`String "UnsupportedTLD"));
            ("details", (UnsupportedTLD.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
        [("OperationId", (Option.map x.operationId ~f:OperationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationId =
        (Option.map ~f:OperationId.of_xml) (Xml.child xml_arg0 "OperationId") in
      make ?operationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationId = field_map json__ "OperationId" OperationId.of_json in
      make ?operationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The AcceptDomainTransferFromAnotherAwsAccount response includes the following element."]
module AcceptDomainTransferFromAnotherAwsAccountRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that was specified when another Amazon Web Services account submitted a TransferDomainToAnotherAwsAccount request."];
      password: Password.t
        [@ocaml.doc
          "The password that was returned by the TransferDomainToAnotherAwsAccount request."]}
    let context_ = "AcceptDomainTransferFromAnotherAwsAccountRequest"
    let make ~domainName =
      fun ~password -> fun () -> { domainName; password }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Password", (Some (Password.to_value x.password)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        Password.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~password ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map_exn json__ "Password" Password.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~password ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The AcceptDomainTransferFromAnotherAwsAccount request includes the following elements."]