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-kms.cabal b/amazonka-kms.cabal
--- a/amazonka-kms.cabal
+++ b/amazonka-kms.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-kms
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Key Management Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -147,7 +147,7 @@
         , Network.AWS.KMS.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-kms-test
@@ -166,9 +166,9 @@
         , Test.AWS.KMS.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-kms == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-kms == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/KMS/Types/Sum.hs b/gen/Network/AWS/KMS/Types/Sum.hs
--- a/gen/Network/AWS/KMS/Types/Sum.hs
+++ b/gen/Network/AWS/KMS/Types/Sum.hs
@@ -29,12 +29,12 @@
         "aes_128" -> pure AES128
         "aes_256" -> pure AES256
         e -> fromTextError $ "Failure parsing DataKeySpec from value: '" <> e
-           <> "'. Accepted values: aes_128, aes_256"
+           <> "'. Accepted values: AES_128, AES_256"
 
 instance ToText DataKeySpec where
     toText = \case
-        AES128 -> "aes_128"
-        AES256 -> "aes_256"
+        AES128 -> "AES_128"
+        AES256 -> "AES_256"
 
 instance Hashable     DataKeySpec
 instance ToByteString DataKeySpec
@@ -66,18 +66,18 @@
         "reencryptto" -> pure ReEncryptTo
         "retiregrant" -> pure RetireGrant
         e -> fromTextError $ "Failure parsing GrantOperation from value: '" <> e
-           <> "'. Accepted values: creategrant, decrypt, encrypt, generatedatakey, generatedatakeywithoutplaintext, reencryptfrom, reencryptto, retiregrant"
+           <> "'. Accepted values: CreateGrant, Decrypt, Encrypt, GenerateDataKey, GenerateDataKeyWithoutPlaintext, ReEncryptFrom, ReEncryptTo, RetireGrant"
 
 instance ToText GrantOperation where
     toText = \case
-        CreateGrant -> "creategrant"
-        Decrypt -> "decrypt"
-        Encrypt -> "encrypt"
-        GenerateDataKey -> "generatedatakey"
-        GenerateDataKeyWithoutPlaintext -> "generatedatakeywithoutplaintext"
-        ReEncryptFrom -> "reencryptfrom"
-        ReEncryptTo -> "reencryptto"
-        RetireGrant -> "retiregrant"
+        CreateGrant -> "CreateGrant"
+        Decrypt -> "Decrypt"
+        Encrypt -> "Encrypt"
+        GenerateDataKey -> "GenerateDataKey"
+        GenerateDataKeyWithoutPlaintext -> "GenerateDataKeyWithoutPlaintext"
+        ReEncryptFrom -> "ReEncryptFrom"
+        ReEncryptTo -> "ReEncryptTo"
+        RetireGrant -> "RetireGrant"
 
 instance Hashable     GrantOperation
 instance ToByteString GrantOperation
@@ -98,11 +98,11 @@
     parser = takeLowerText >>= \case
         "encrypt_decrypt" -> pure EncryptDecrypt
         e -> fromTextError $ "Failure parsing KeyUsageType from value: '" <> e
-           <> "'. Accepted values: encrypt_decrypt"
+           <> "'. Accepted values: ENCRYPT_DECRYPT"
 
 instance ToText KeyUsageType where
     toText = \case
-        EncryptDecrypt -> "encrypt_decrypt"
+        EncryptDecrypt -> "ENCRYPT_DECRYPT"
 
 instance Hashable     KeyUsageType
 instance ToByteString KeyUsageType