diff --git a/amazonka-route53-domains.cabal b/amazonka-route53-domains.cabal --- a/amazonka-route53-domains.cabal +++ b/amazonka-route53-domains.cabal @@ -1,5 +1,5 @@ name: amazonka-route53-domains -version: 0.1.3 +version: 0.1.4 synopsis: Amazon Route 53 Domains SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -53,5 +53,5 @@ other-modules: build-depends: - amazonka-core == 0.1.3.* + amazonka-core == 0.1.4.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/Route53Domains/Types.hs b/gen/Network/AWS/Route53Domains/Types.hs --- a/gen/Network/AWS/Route53Domains/Types.hs +++ b/gen/Network/AWS/Route53Domains/Types.hs @@ -235,24 +235,24 @@ instance Hashable ExtraParamName instance FromText ExtraParamName where - parser = takeText >>= \case - "AU_ID_NUMBER" -> pure AuIdNumber - "AU_ID_TYPE" -> pure AuIdType - "BIRTH_CITY" -> pure BirthCity - "BIRTH_COUNTRY" -> pure BirthCountry - "BIRTH_DATE_IN_YYYY_MM_DD" -> pure BirthDateInYyyyMmDd - "BIRTH_DEPARTMENT" -> pure BirthDepartment - "BRAND_NUMBER" -> pure BrandNumber - "CA_LEGAL_TYPE" -> pure CaLegalType - "DOCUMENT_NUMBER" -> pure DocumentNumber - "DUNS_NUMBER" -> pure DunsNumber - "FI_BUSINESS_NUMBER" -> pure FiBusinessNumber - "FI_ID_NUMBER" -> pure FiIdNumber - "IT_PIN" -> pure ItPin - "RU_PASSPORT_DATA" -> pure RuPassportData - "SE_ID_NUMBER" -> pure SeIdNumber - "SG_ID_NUMBER" -> pure SgIdNumber - "VAT_NUMBER" -> pure VatNumber + parser = takeLowerText >>= \case + "au_id_number" -> pure AuIdNumber + "au_id_type" -> pure AuIdType + "birth_city" -> pure BirthCity + "birth_country" -> pure BirthCountry + "birth_date_in_yyyy_mm_dd" -> pure BirthDateInYyyyMmDd + "birth_department" -> pure BirthDepartment + "brand_number" -> pure BrandNumber + "ca_legal_type" -> pure CaLegalType + "document_number" -> pure DocumentNumber + "duns_number" -> pure DunsNumber + "fi_business_number" -> pure FiBusinessNumber + "fi_id_number" -> pure FiIdNumber + "it_pin" -> pure ItPin + "ru_passport_data" -> pure RuPassportData + "se_id_number" -> pure SeIdNumber + "sg_id_number" -> pure SgIdNumber + "vat_number" -> pure VatNumber e -> fail $ "Failure parsing ExtraParamName from " ++ show e @@ -351,12 +351,12 @@ instance Hashable OperationStatus instance FromText OperationStatus where - parser = takeText >>= \case - "ERROR" -> pure Error - "FAILED" -> pure Failed - "IN_PROGRESS" -> pure InProgress - "SUBMITTED" -> pure Submitted - "SUCCESSFUL" -> pure Successful + parser = takeLowerText >>= \case + "error" -> pure Error + "failed" -> pure Failed + "in_progress" -> pure InProgress + "submitted" -> pure Submitted + "successful" -> pure Successful e -> fail $ "Failure parsing OperationStatus from " ++ show e @@ -391,14 +391,14 @@ instance Hashable DomainAvailability instance FromText DomainAvailability where - parser = takeText >>= \case - "AVAILABLE" -> pure Available - "AVAILABLE_PREORDER" -> pure AvailablePreorder - "AVAILABLE_RESERVED" -> pure AvailableReserved - "RESERVED" -> pure Reserved - "UNAVAILABLE" -> pure Unavailable - "UNAVAILABLE_PREMIUM" -> pure UnavailablePremium - "UNAVAILABLE_RESTRICTED" -> pure UnavailableRestricted + parser = takeLowerText >>= \case + "available" -> pure Available + "available_preorder" -> pure AvailablePreorder + "available_reserved" -> pure AvailableReserved + "reserved" -> pure Reserved + "unavailable" -> pure Unavailable + "unavailable_premium" -> pure UnavailablePremium + "unavailable_restricted" -> pure UnavailableRestricted e -> fail $ "Failure parsing DomainAvailability from " ++ show e @@ -435,14 +435,14 @@ instance Hashable OperationType instance FromText OperationType where - parser = takeText >>= \case - "CHANGE_PRIVACY_PROTECTION" -> pure OTChangePrivacyProtection - "DELETE_DOMAIN" -> pure OTDeleteDomain - "DOMAIN_LOCK" -> pure OTDomainLock - "REGISTER_DOMAIN" -> pure OTRegisterDomain - "TRANSFER_IN_DOMAIN" -> pure OTTransferInDomain - "UPDATE_DOMAIN_CONTACT" -> pure OTUpdateDomainContact - "UPDATE_NAMESERVER" -> pure OTUpdateNameserver + parser = takeLowerText >>= \case + "change_privacy_protection" -> pure OTChangePrivacyProtection + "delete_domain" -> pure OTDeleteDomain + "domain_lock" -> pure OTDomainLock + "register_domain" -> pure OTRegisterDomain + "transfer_in_domain" -> pure OTTransferInDomain + "update_domain_contact" -> pure OTUpdateDomainContact + "update_nameserver" -> pure OTUpdateNameserver e -> fail $ "Failure parsing OperationType from " ++ show e @@ -701,236 +701,236 @@ instance Hashable CountryCode instance FromText CountryCode where - parser = takeText >>= \case - "AD" -> pure Ad - "AE" -> pure Ae - "AF" -> pure Af - "AG" -> pure Ag - "AI" -> pure Ai - "AL" -> pure Al - "AM" -> pure Am - "AN" -> pure An - "AO" -> pure Ao - "AQ" -> pure Aq - "AR" -> pure Ar - "AS" -> pure As - "AT" -> pure At - "AU" -> pure Au - "AW" -> pure Aw - "AZ" -> pure Az - "BA" -> pure Ba - "BB" -> pure Bb - "BD" -> pure Bd - "BE" -> pure Be - "BF" -> pure Bf - "BG" -> pure Bg - "BH" -> pure Bh - "BI" -> pure Bi - "BJ" -> pure Bj - "BL" -> pure Bl - "BM" -> pure Bm - "BN" -> pure Bn - "BO" -> pure Bo - "BR" -> pure Br - "BS" -> pure Bs - "BT" -> pure Bt - "BW" -> pure Bw - "BY" -> pure By - "BZ" -> pure Bz - "CA" -> pure Ca - "CC" -> pure Cc - "CD" -> pure Cd - "CF" -> pure Cf - "CG" -> pure Cg - "CH" -> pure Ch - "CI" -> pure Ci - "CK" -> pure Ck - "CL" -> pure Cl - "CM" -> pure Cm - "CN" -> pure Cn - "CO" -> pure Co - "CR" -> pure Cr - "CU" -> pure Cu - "CV" -> pure Cv - "CX" -> pure Cx - "CY" -> pure Cy - "CZ" -> pure Cz - "DE" -> pure De - "DJ" -> pure Dj - "DK" -> pure Dk - "DM" -> pure Dm - "DO" -> pure Do' - "DZ" -> pure Dz - "EC" -> pure Ec - "EE" -> pure Ee - "EG" -> pure Eg - "ER" -> pure Er - "ES" -> pure Es - "ET" -> pure Et - "FI" -> pure Fi - "FJ" -> pure Fj - "FK" -> pure Fk - "FM" -> pure Fm - "FO" -> pure Fo - "FR" -> pure Fr - "GA" -> pure Ga - "GB" -> pure Gb - "GD" -> pure Gd - "GE" -> pure Ge - "GH" -> pure Gh - "GI" -> pure Gi - "GL" -> pure Gl - "GM" -> pure Gm - "GN" -> pure Gn - "GQ" -> pure Gq - "GR" -> pure Gr - "GT" -> pure Gt - "GU" -> pure Gu - "GW" -> pure Gw - "GY" -> pure Gy - "HK" -> pure Hk - "HN" -> pure Hn - "HR" -> pure Hr - "HT" -> pure Ht - "HU" -> pure Hu - "ID" -> pure Id - "IE" -> pure Ie - "IL" -> pure Il - "IM" -> pure Im - "IN" -> pure In' - "IQ" -> pure Iq - "IR" -> pure Ir - "IS" -> pure Is - "IT" -> pure It - "JM" -> pure Jm - "JO" -> pure Jo - "JP" -> pure Jp - "KE" -> pure Ke - "KG" -> pure Kg - "KH" -> pure Kh - "KI" -> pure Ki - "KM" -> pure Km - "KN" -> pure Kn - "KP" -> pure Kp - "KR" -> pure Kr - "KW" -> pure Kw - "KY" -> pure Ky - "KZ" -> pure Kz - "LA" -> pure La - "LB" -> pure Lb - "LC" -> pure Lc - "LI" -> pure Li - "LK" -> pure Lk - "LR" -> pure Lr - "LS" -> pure Ls - "LT" -> pure Lt - "LU" -> pure Lu - "LV" -> pure Lv - "LY" -> pure Ly - "MA" -> pure Ma - "MC" -> pure Mc - "MD" -> pure Md - "ME" -> pure Me - "MF" -> pure Mf - "MG" -> pure Mg - "MH" -> pure Mh - "MK" -> pure Mk - "ML" -> pure Ml - "MM" -> pure Mm - "MN" -> pure Mn - "MO" -> pure Mo - "MP" -> pure Mp - "MR" -> pure Mr - "MS" -> pure Ms - "MT" -> pure Mt - "MU" -> pure Mu - "MV" -> pure Mv - "MW" -> pure Mw - "MX" -> pure Mx - "MY" -> pure My - "MZ" -> pure Mz - "NA" -> pure Na - "NC" -> pure Nc - "NE" -> pure Ne - "NG" -> pure Ng - "NI" -> pure Ni - "NL" -> pure Nl - "NO" -> pure No - "NP" -> pure Np - "NR" -> pure Nr - "NU" -> pure Nu - "NZ" -> pure Nz - "OM" -> pure Om - "PA" -> pure Pa - "PE" -> pure Pe - "PF" -> pure Pf - "PG" -> pure Pg - "PH" -> pure Ph - "PK" -> pure Pk - "PL" -> pure Pl - "PM" -> pure Pm - "PN" -> pure Pn - "PR" -> pure Pr - "PT" -> pure Pt - "PW" -> pure Pw - "PY" -> pure Py - "QA" -> pure Qa - "RO" -> pure Ro - "RS" -> pure Rs - "RU" -> pure Ru - "RW" -> pure Rw - "SA" -> pure Sa - "SB" -> pure Sb - "SC" -> pure Sc - "SD" -> pure Sd - "SE" -> pure Se - "SG" -> pure Sg - "SH" -> pure Sh - "SI" -> pure Si - "SK" -> pure Sk - "SL" -> pure Sl - "SM" -> pure Sm - "SN" -> pure Sn - "SO" -> pure So - "SR" -> pure Sr - "ST" -> pure St - "SV" -> pure Sv - "SY" -> pure Sy - "SZ" -> pure Sz - "TC" -> pure Tc - "TD" -> pure Td - "TG" -> pure Tg - "TH" -> pure Th - "TJ" -> pure Tj - "TK" -> pure Tk - "TL" -> pure Tl - "TM" -> pure Tm - "TN" -> pure Tn - "TO" -> pure To - "TR" -> pure Tr - "TT" -> pure Tt - "TV" -> pure Tv - "TW" -> pure Tw - "TZ" -> pure Tz - "UA" -> pure Ua - "UG" -> pure Ug - "US" -> pure Us - "UY" -> pure Uy - "UZ" -> pure Uz - "VA" -> pure Va - "VC" -> pure Vc - "VE" -> pure Ve - "VG" -> pure Vg - "VI" -> pure Vi - "VN" -> pure Vn - "VU" -> pure Vu - "WF" -> pure Wf - "WS" -> pure Ws - "YE" -> pure Ye - "YT" -> pure Yt - "ZA" -> pure Za - "ZM" -> pure Zm - "ZW" -> pure Zw + parser = takeLowerText >>= \case + "ad" -> pure Ad + "ae" -> pure Ae + "af" -> pure Af + "ag" -> pure Ag + "ai" -> pure Ai + "al" -> pure Al + "am" -> pure Am + "an" -> pure An + "ao" -> pure Ao + "aq" -> pure Aq + "ar" -> pure Ar + "as" -> pure As + "at" -> pure At + "au" -> pure Au + "aw" -> pure Aw + "az" -> pure Az + "ba" -> pure Ba + "bb" -> pure Bb + "bd" -> pure Bd + "be" -> pure Be + "bf" -> pure Bf + "bg" -> pure Bg + "bh" -> pure Bh + "bi" -> pure Bi + "bj" -> pure Bj + "bl" -> pure Bl + "bm" -> pure Bm + "bn" -> pure Bn + "bo" -> pure Bo + "br" -> pure Br + "bs" -> pure Bs + "bt" -> pure Bt + "bw" -> pure Bw + "by" -> pure By + "bz" -> pure Bz + "ca" -> pure Ca + "cc" -> pure Cc + "cd" -> pure Cd + "cf" -> pure Cf + "cg" -> pure Cg + "ch" -> pure Ch + "ci" -> pure Ci + "ck" -> pure Ck + "cl" -> pure Cl + "cm" -> pure Cm + "cn" -> pure Cn + "co" -> pure Co + "cr" -> pure Cr + "cu" -> pure Cu + "cv" -> pure Cv + "cx" -> pure Cx + "cy" -> pure Cy + "cz" -> pure Cz + "de" -> pure De + "dj" -> pure Dj + "dk" -> pure Dk + "dm" -> pure Dm + "do" -> pure Do' + "dz" -> pure Dz + "ec" -> pure Ec + "ee" -> pure Ee + "eg" -> pure Eg + "er" -> pure Er + "es" -> pure Es + "et" -> pure Et + "fi" -> pure Fi + "fj" -> pure Fj + "fk" -> pure Fk + "fm" -> pure Fm + "fo" -> pure Fo + "fr" -> pure Fr + "ga" -> pure Ga + "gb" -> pure Gb + "gd" -> pure Gd + "ge" -> pure Ge + "gh" -> pure Gh + "gi" -> pure Gi + "gl" -> pure Gl + "gm" -> pure Gm + "gn" -> pure Gn + "gq" -> pure Gq + "gr" -> pure Gr + "gt" -> pure Gt + "gu" -> pure Gu + "gw" -> pure Gw + "gy" -> pure Gy + "hk" -> pure Hk + "hn" -> pure Hn + "hr" -> pure Hr + "ht" -> pure Ht + "hu" -> pure Hu + "id" -> pure Id + "ie" -> pure Ie + "il" -> pure Il + "im" -> pure Im + "in" -> pure In' + "iq" -> pure Iq + "ir" -> pure Ir + "is" -> pure Is + "it" -> pure It + "jm" -> pure Jm + "jo" -> pure Jo + "jp" -> pure Jp + "ke" -> pure Ke + "kg" -> pure Kg + "kh" -> pure Kh + "ki" -> pure Ki + "km" -> pure Km + "kn" -> pure Kn + "kp" -> pure Kp + "kr" -> pure Kr + "kw" -> pure Kw + "ky" -> pure Ky + "kz" -> pure Kz + "la" -> pure La + "lb" -> pure Lb + "lc" -> pure Lc + "li" -> pure Li + "lk" -> pure Lk + "lr" -> pure Lr + "ls" -> pure Ls + "lt" -> pure Lt + "lu" -> pure Lu + "lv" -> pure Lv + "ly" -> pure Ly + "ma" -> pure Ma + "mc" -> pure Mc + "md" -> pure Md + "me" -> pure Me + "mf" -> pure Mf + "mg" -> pure Mg + "mh" -> pure Mh + "mk" -> pure Mk + "ml" -> pure Ml + "mm" -> pure Mm + "mn" -> pure Mn + "mo" -> pure Mo + "mp" -> pure Mp + "mr" -> pure Mr + "ms" -> pure Ms + "mt" -> pure Mt + "mu" -> pure Mu + "mv" -> pure Mv + "mw" -> pure Mw + "mx" -> pure Mx + "my" -> pure My + "mz" -> pure Mz + "na" -> pure Na + "nc" -> pure Nc + "ne" -> pure Ne + "ng" -> pure Ng + "ni" -> pure Ni + "nl" -> pure Nl + "no" -> pure No + "np" -> pure Np + "nr" -> pure Nr + "nu" -> pure Nu + "nz" -> pure Nz + "om" -> pure Om + "pa" -> pure Pa + "pe" -> pure Pe + "pf" -> pure Pf + "pg" -> pure Pg + "ph" -> pure Ph + "pk" -> pure Pk + "pl" -> pure Pl + "pm" -> pure Pm + "pn" -> pure Pn + "pr" -> pure Pr + "pt" -> pure Pt + "pw" -> pure Pw + "py" -> pure Py + "qa" -> pure Qa + "ro" -> pure Ro + "rs" -> pure Rs + "ru" -> pure Ru + "rw" -> pure Rw + "sa" -> pure Sa + "sb" -> pure Sb + "sc" -> pure Sc + "sd" -> pure Sd + "se" -> pure Se + "sg" -> pure Sg + "sh" -> pure Sh + "si" -> pure Si + "sk" -> pure Sk + "sl" -> pure Sl + "sm" -> pure Sm + "sn" -> pure Sn + "so" -> pure So + "sr" -> pure Sr + "st" -> pure St + "sv" -> pure Sv + "sy" -> pure Sy + "sz" -> pure Sz + "tc" -> pure Tc + "td" -> pure Td + "tg" -> pure Tg + "th" -> pure Th + "tj" -> pure Tj + "tk" -> pure Tk + "tl" -> pure Tl + "tm" -> pure Tm + "tn" -> pure Tn + "to" -> pure To + "tr" -> pure Tr + "tt" -> pure Tt + "tv" -> pure Tv + "tw" -> pure Tw + "tz" -> pure Tz + "ua" -> pure Ua + "ug" -> pure Ug + "us" -> pure Us + "uy" -> pure Uy + "uz" -> pure Uz + "va" -> pure Va + "vc" -> pure Vc + "ve" -> pure Ve + "vg" -> pure Vg + "vi" -> pure Vi + "vn" -> pure Vn + "vu" -> pure Vu + "wf" -> pure Wf + "ws" -> pure Ws + "ye" -> pure Ye + "yt" -> pure Yt + "za" -> pure Za + "zm" -> pure Zm + "zw" -> pure Zw e -> fail $ "Failure parsing CountryCode from " ++ show e @@ -1249,12 +1249,12 @@ instance Hashable ContactType instance FromText ContactType where - parser = takeText >>= \case - "ASSOCIATION" -> pure CTAssociation - "COMPANY" -> pure CTCompany - "PERSON" -> pure CTPerson - "PUBLIC_BODY" -> pure CTPublicBody - "RESELLER" -> pure CTReseller + parser = takeLowerText >>= \case + "association" -> pure CTAssociation + "company" -> pure CTCompany + "person" -> pure CTPerson + "public_body" -> pure CTPublicBody + "reseller" -> pure CTReseller e -> fail $ "Failure parsing ContactType from " ++ show e