diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.0.0`
+`1.0.1`
 
 
 ## Description
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:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Route 53 Domains SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -67,7 +67,7 @@
         , Network.AWS.Route53Domains.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-route53-domains-test
@@ -86,9 +86,9 @@
         , Test.AWS.Route53Domains.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-route53-domains == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-route53-domains == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Route53Domains/Types/Sum.hs b/gen/Network/AWS/Route53Domains/Types/Sum.hs
--- a/gen/Network/AWS/Route53Domains/Types/Sum.hs
+++ b/gen/Network/AWS/Route53Domains/Types/Sum.hs
@@ -35,15 +35,15 @@
         "public_body" -> pure PublicBody
         "reseller" -> pure Reseller
         e -> fromTextError $ "Failure parsing ContactType from value: '" <> e
-           <> "'. Accepted values: association, company, person, public_body, reseller"
+           <> "'. Accepted values: ASSOCIATION, COMPANY, PERSON, PUBLIC_BODY, RESELLER"
 
 instance ToText ContactType where
     toText = \case
-        Association -> "association"
-        Company -> "company"
-        Person -> "person"
-        PublicBody -> "public_body"
-        Reseller -> "reseller"
+        Association -> "ASSOCIATION"
+        Company -> "COMPANY"
+        Person -> "PERSON"
+        PublicBody -> "PUBLIC_BODY"
+        Reseller -> "RESELLER"
 
 instance Hashable     ContactType
 instance ToByteString ContactType
@@ -520,239 +520,239 @@
         "zm" -> pure ZM
         "zw" -> pure ZW
         e -> fromTextError $ "Failure parsing CountryCode from value: '" <> e
-           <> "'. Accepted values: ad, ae, af, ag, ai, al, am, an, ao, aq, ar, as, at, au, aw, az, ba, bb, bd, be, bf, bg, bh, bi, bj, bl, bm, bn, bo, br, bs, bt, bw, by, bz, ca, cc, cd, cf, cg, ch, ci, ck, cl, cm, cn, co, cr, cu, cv, cx, cy, cz, de, dj, dk, dm, do, dz, ec, ee, eg, er, es, et, fi, fj, fk, fm, fo, fr, ga, gb, gd, ge, gh, gi, gl, gm, gn, gq, gr, gt, gu, gw, gy, hk, hn, hr, ht, hu, ie, il, im, in, iq, ir, is, it, id, 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, mr, ms, mt, mu, mv, mw, mx, my, mz, na, nc, ne, ng, ni, nl, no, np, nr, nu, nz, om, pa, pe, pf, pg, ph, pk, pl, pm, pn, pr, pt, pw, py, qa, ro, rs, ru, rw, sa, sb, sc, sd, se, sg, sh, si, sk, sl, sm, sn, so, sr, st, sv, sy, sz, tc, td, tg, th, tj, tk, tl, tm, tn, to, tr, tt, tv, tw, tz, ua, ug, us, uy, uz, va, vc, ve, vg, vi, vn, vu, wf, ws, ye, yt, za, zm, zw"
+           <> "'. Accepted values: AD, AE, AF, AG, AI, AL, AM, AN, AO, AQ, AR, AS, AT, AU, AW, AZ, BA, BB, BD, BE, BF, BG, BH, BI, BJ, BL, BM, BN, BO, BR, BS, BT, BW, BY, BZ, CA, CC, CD, CF, CG, CH, CI, CK, CL, CM, CN, CO, CR, CU, CV, CX, CY, CZ, DE, DJ, DK, DM, DO, DZ, EC, EE, EG, ER, ES, ET, FI, FJ, FK, FM, FO, FR, GA, GB, GD, GE, GH, GI, GL, GM, GN, GQ, GR, GT, GU, GW, GY, HK, HN, HR, HT, HU, IE, IL, IM, IN, IQ, IR, IS, IT, ID, 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, MR, MS, MT, MU, MV, MW, MX, MY, MZ, NA, NC, NE, NG, NI, NL, NO, NP, NR, NU, NZ, OM, PA, PE, PF, PG, PH, PK, PL, PM, PN, PR, PT, PW, PY, QA, RO, RS, RU, RW, SA, SB, SC, SD, SE, SG, SH, SI, SK, SL, SM, SN, SO, SR, ST, SV, SY, SZ, TC, TD, TG, TH, TJ, TK, TL, TM, TN, TO, TR, TT, TV, TW, TZ, UA, UG, US, UY, UZ, VA, VC, VE, VG, VI, VN, VU, WF, WS, YE, YT, ZA, ZM, ZW"
 
 instance ToText CountryCode where
     toText = \case
-        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"
-        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"
-        BR -> "br"
-        BS -> "bs"
-        BT -> "bt"
-        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"
-        CX -> "cx"
-        CY -> "cy"
-        CZ -> "cz"
-        DE -> "de"
-        DJ -> "dj"
-        DK -> "dk"
-        DM -> "dm"
-        DO -> "do"
-        DZ -> "dz"
-        EC -> "ec"
-        EE -> "ee"
-        EG -> "eg"
-        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"
-        GH -> "gh"
-        GI -> "gi"
-        GL -> "gl"
-        GM -> "gm"
-        GN -> "gn"
-        GQ -> "gq"
-        GR -> "gr"
-        GT' -> "gt"
-        GU -> "gu"
-        GW -> "gw"
-        GY -> "gy"
-        HK -> "hk"
-        HN -> "hn"
-        HR -> "hr"
-        HT -> "ht"
-        HU -> "hu"
-        IE -> "ie"
-        IL -> "il"
-        IM -> "im"
-        IN -> "in"
-        IQ -> "iq"
-        IR -> "ir"
-        IS -> "is"
-        IT -> "it"
-        Id -> "id"
-        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"
-        MR -> "mr"
-        MS -> "ms"
-        MT -> "mt"
-        MU -> "mu"
-        MV -> "mv"
-        MW -> "mw"
-        MX -> "mx"
-        MY -> "my"
-        MZ -> "mz"
-        NA -> "na"
-        NC -> "nc"
-        NE -> "ne"
-        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"
-        PT -> "pt"
-        PW -> "pw"
-        PY -> "py"
-        QA -> "qa"
-        RO -> "ro"
-        RS -> "rs"
-        RU -> "ru"
-        RW -> "rw"
-        SA -> "sa"
-        SB -> "sb"
-        SC -> "sc"
-        SD -> "sd"
-        SE -> "se"
-        SG -> "sg"
-        SH -> "sh"
-        SI -> "si"
-        SK -> "sk"
-        SL -> "sl"
-        SM -> "sm"
-        SN -> "sn"
-        SO -> "so"
-        SR -> "sr"
-        ST -> "st"
-        SV -> "sv"
-        SY -> "sy"
-        SZ -> "sz"
-        TC -> "tc"
-        TD -> "td"
-        TG -> "tg"
-        TH -> "th"
-        TJ -> "tj"
-        TK -> "tk"
-        TL -> "tl"
-        TM -> "tm"
-        TN -> "tn"
-        TO -> "to"
-        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"
+        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"
+        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"
+        BR -> "BR"
+        BS -> "BS"
+        BT -> "BT"
+        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"
+        CX -> "CX"
+        CY -> "CY"
+        CZ -> "CZ"
+        DE -> "DE"
+        DJ -> "DJ"
+        DK -> "DK"
+        DM -> "DM"
+        DO -> "DO"
+        DZ -> "DZ"
+        EC -> "EC"
+        EE -> "EE"
+        EG -> "EG"
+        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"
+        GH -> "GH"
+        GI -> "GI"
+        GL -> "GL"
+        GM -> "GM"
+        GN -> "GN"
+        GQ -> "GQ"
+        GR -> "GR"
+        GT' -> "GT"
+        GU -> "GU"
+        GW -> "GW"
+        GY -> "GY"
+        HK -> "HK"
+        HN -> "HN"
+        HR -> "HR"
+        HT -> "HT"
+        HU -> "HU"
+        IE -> "IE"
+        IL -> "IL"
+        IM -> "IM"
+        IN -> "IN"
+        IQ -> "IQ"
+        IR -> "IR"
+        IS -> "IS"
+        IT -> "IT"
+        Id -> "ID"
+        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"
+        MR -> "MR"
+        MS -> "MS"
+        MT -> "MT"
+        MU -> "MU"
+        MV -> "MV"
+        MW -> "MW"
+        MX -> "MX"
+        MY -> "MY"
+        MZ -> "MZ"
+        NA -> "NA"
+        NC -> "NC"
+        NE -> "NE"
+        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"
+        PT -> "PT"
+        PW -> "PW"
+        PY -> "PY"
+        QA -> "QA"
+        RO -> "RO"
+        RS -> "RS"
+        RU -> "RU"
+        RW -> "RW"
+        SA -> "SA"
+        SB -> "SB"
+        SC -> "SC"
+        SD -> "SD"
+        SE -> "SE"
+        SG -> "SG"
+        SH -> "SH"
+        SI -> "SI"
+        SK -> "SK"
+        SL -> "SL"
+        SM -> "SM"
+        SN -> "SN"
+        SO -> "SO"
+        SR -> "SR"
+        ST -> "ST"
+        SV -> "SV"
+        SY -> "SY"
+        SZ -> "SZ"
+        TC -> "TC"
+        TD -> "TD"
+        TG -> "TG"
+        TH -> "TH"
+        TJ -> "TJ"
+        TK -> "TK"
+        TL -> "TL"
+        TM -> "TM"
+        TN -> "TN"
+        TO -> "TO"
+        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"
 
 instance Hashable     CountryCode
 instance ToByteString CountryCode
@@ -787,18 +787,18 @@
         "unavailable_premium" -> pure UnavailablePremium
         "unavailable_restricted" -> pure UnavailableRestricted
         e -> fromTextError $ "Failure parsing DomainAvailability from value: '" <> e
-           <> "'. Accepted values: available, available_preorder, available_reserved, dont_know, reserved, unavailable, unavailable_premium, unavailable_restricted"
+           <> "'. Accepted values: AVAILABLE, AVAILABLE_PREORDER, AVAILABLE_RESERVED, DONT_KNOW, RESERVED, UNAVAILABLE, UNAVAILABLE_PREMIUM, UNAVAILABLE_RESTRICTED"
 
 instance ToText DomainAvailability where
     toText = \case
-        Available -> "available"
-        AvailablePreorder -> "available_preorder"
-        AvailableReserved -> "available_reserved"
-        DontKnow -> "dont_know"
-        Reserved -> "reserved"
-        Unavailable -> "unavailable"
-        UnavailablePremium -> "unavailable_premium"
-        UnavailableRestricted -> "unavailable_restricted"
+        Available -> "AVAILABLE"
+        AvailablePreorder -> "AVAILABLE_PREORDER"
+        AvailableReserved -> "AVAILABLE_RESERVED"
+        DontKnow -> "DONT_KNOW"
+        Reserved -> "RESERVED"
+        Unavailable -> "UNAVAILABLE"
+        UnavailablePremium -> "UNAVAILABLE_PREMIUM"
+        UnavailableRestricted -> "UNAVAILABLE_RESTRICTED"
 
 instance Hashable     DomainAvailability
 instance ToByteString DomainAvailability
@@ -854,30 +854,30 @@
         "sg_id_number" -> pure SgIdNumber
         "vat_number" -> pure VatNumber
         e -> fromTextError $ "Failure parsing ExtraParamName from value: '" <> e
-           <> "'. Accepted values: au_id_number, au_id_type, birth_city, birth_country, birth_date_in_yyyy_mm_dd, birth_department, brand_number, ca_legal_type, document_number, duns_number, es_identification, es_identification_type, es_legal_form, fi_business_number, fi_id_number, it_pin, ru_passport_data, se_id_number, sg_id_number, vat_number"
+           <> "'. Accepted values: AU_ID_NUMBER, AU_ID_TYPE, BIRTH_CITY, BIRTH_COUNTRY, BIRTH_DATE_IN_YYYY_MM_DD, BIRTH_DEPARTMENT, BRAND_NUMBER, CA_LEGAL_TYPE, DOCUMENT_NUMBER, DUNS_NUMBER, ES_IDENTIFICATION, ES_IDENTIFICATION_TYPE, ES_LEGAL_FORM, FI_BUSINESS_NUMBER, FI_ID_NUMBER, IT_PIN, RU_PASSPORT_DATA, SE_ID_NUMBER, SG_ID_NUMBER, VAT_NUMBER"
 
 instance ToText ExtraParamName where
     toText = \case
-        AuIdNumber -> "au_id_number"
-        AuIdType -> "au_id_type"
-        BirthCity -> "birth_city"
-        BirthCountry -> "birth_country"
-        BirthDateInYyyyMmDd -> "birth_date_in_yyyy_mm_dd"
-        BirthDepartment -> "birth_department"
-        BrandNumber -> "brand_number"
-        CaLegalType -> "ca_legal_type"
-        DocumentNumber -> "document_number"
-        DunsNumber -> "duns_number"
-        EsIdentification -> "es_identification"
-        EsIdentificationType -> "es_identification_type"
-        EsLegalForm -> "es_legal_form"
-        FiBusinessNumber -> "fi_business_number"
-        FiIdNumber -> "fi_id_number"
-        ItPin -> "it_pin"
-        RuPassportData -> "ru_passport_data"
-        SeIdNumber -> "se_id_number"
-        SgIdNumber -> "sg_id_number"
-        VatNumber -> "vat_number"
+        AuIdNumber -> "AU_ID_NUMBER"
+        AuIdType -> "AU_ID_TYPE"
+        BirthCity -> "BIRTH_CITY"
+        BirthCountry -> "BIRTH_COUNTRY"
+        BirthDateInYyyyMmDd -> "BIRTH_DATE_IN_YYYY_MM_DD"
+        BirthDepartment -> "BIRTH_DEPARTMENT"
+        BrandNumber -> "BRAND_NUMBER"
+        CaLegalType -> "CA_LEGAL_TYPE"
+        DocumentNumber -> "DOCUMENT_NUMBER"
+        DunsNumber -> "DUNS_NUMBER"
+        EsIdentification -> "ES_IDENTIFICATION"
+        EsIdentificationType -> "ES_IDENTIFICATION_TYPE"
+        EsLegalForm -> "ES_LEGAL_FORM"
+        FiBusinessNumber -> "FI_BUSINESS_NUMBER"
+        FiIdNumber -> "FI_ID_NUMBER"
+        ItPin -> "IT_PIN"
+        RuPassportData -> "RU_PASSPORT_DATA"
+        SeIdNumber -> "SE_ID_NUMBER"
+        SgIdNumber -> "SG_ID_NUMBER"
+        VatNumber -> "VAT_NUMBER"
 
 instance Hashable     ExtraParamName
 instance ToByteString ExtraParamName
@@ -906,15 +906,15 @@
         "submitted" -> pure Submitted
         "successful" -> pure Successful
         e -> fromTextError $ "Failure parsing OperationStatus from value: '" <> e
-           <> "'. Accepted values: error, failed, in_progress, submitted, successful"
+           <> "'. Accepted values: ERROR, FAILED, IN_PROGRESS, SUBMITTED, SUCCESSFUL"
 
 instance ToText OperationStatus where
     toText = \case
-        Error' -> "error"
-        Failed -> "failed"
-        InProgress -> "in_progress"
-        Submitted -> "submitted"
-        Successful -> "successful"
+        Error' -> "ERROR"
+        Failed -> "FAILED"
+        InProgress -> "IN_PROGRESS"
+        Submitted -> "SUBMITTED"
+        Successful -> "SUCCESSFUL"
 
 instance Hashable     OperationStatus
 instance ToByteString OperationStatus
@@ -944,17 +944,17 @@
         "update_domain_contact" -> pure UpdateDomainContact
         "update_nameserver" -> pure UpdateNameserver
         e -> fromTextError $ "Failure parsing OperationType from value: '" <> e
-           <> "'. Accepted values: change_privacy_protection, delete_domain, domain_lock, register_domain, transfer_in_domain, update_domain_contact, update_nameserver"
+           <> "'. Accepted values: CHANGE_PRIVACY_PROTECTION, DELETE_DOMAIN, DOMAIN_LOCK, REGISTER_DOMAIN, TRANSFER_IN_DOMAIN, UPDATE_DOMAIN_CONTACT, UPDATE_NAMESERVER"
 
 instance ToText OperationType where
     toText = \case
-        ChangePrivacyProtection -> "change_privacy_protection"
-        DeleteDomain -> "delete_domain"
-        DomainLock -> "domain_lock"
-        RegisterDomain -> "register_domain"
-        TransferInDomain -> "transfer_in_domain"
-        UpdateDomainContact -> "update_domain_contact"
-        UpdateNameserver -> "update_nameserver"
+        ChangePrivacyProtection -> "CHANGE_PRIVACY_PROTECTION"
+        DeleteDomain -> "DELETE_DOMAIN"
+        DomainLock -> "DOMAIN_LOCK"
+        RegisterDomain -> "REGISTER_DOMAIN"
+        TransferInDomain -> "TRANSFER_IN_DOMAIN"
+        UpdateDomainContact -> "UPDATE_DOMAIN_CONTACT"
+        UpdateNameserver -> "UPDATE_NAMESERVER"
 
 instance Hashable     OperationType
 instance ToByteString OperationType