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-ses.cabal b/amazonka-ses.cabal
--- a/amazonka-ses.cabal
+++ b/amazonka-ses.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ses
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Simple Email Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -79,7 +79,7 @@
         , Network.AWS.SES.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ses-test
@@ -98,9 +98,9 @@
         , Test.AWS.SES.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-ses == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-ses == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/SES/Types/Sum.hs b/gen/Network/AWS/SES/Types/Sum.hs
--- a/gen/Network/AWS/SES/Types/Sum.hs
+++ b/gen/Network/AWS/SES/Types/Sum.hs
@@ -29,12 +29,12 @@
         "domain" -> pure Domain
         "emailaddress" -> pure EmailAddress
         e -> fromTextError $ "Failure parsing IdentityType from value: '" <> e
-           <> "'. Accepted values: domain, emailaddress"
+           <> "'. Accepted values: Domain, EmailAddress"
 
 instance ToText IdentityType where
     toText = \case
-        Domain -> "domain"
-        EmailAddress -> "emailaddress"
+        Domain -> "Domain"
+        EmailAddress -> "EmailAddress"
 
 instance Hashable     IdentityType
 instance ToByteString IdentityType
@@ -53,13 +53,13 @@
         "complaint" -> pure Complaint
         "delivery" -> pure Delivery
         e -> fromTextError $ "Failure parsing NotificationType from value: '" <> e
-           <> "'. Accepted values: bounce, complaint, delivery"
+           <> "'. Accepted values: Bounce, Complaint, Delivery"
 
 instance ToText NotificationType where
     toText = \case
-        Bounce -> "bounce"
-        Complaint -> "complaint"
-        Delivery -> "delivery"
+        Bounce -> "Bounce"
+        Complaint -> "Complaint"
+        Delivery -> "Delivery"
 
 instance Hashable     NotificationType
 instance ToByteString NotificationType
@@ -82,15 +82,15 @@
         "success" -> pure Success
         "temporaryfailure" -> pure TemporaryFailure
         e -> fromTextError $ "Failure parsing VerificationStatus from value: '" <> e
-           <> "'. Accepted values: failed, notstarted, pending, success, temporaryfailure"
+           <> "'. Accepted values: Failed, NotStarted, Pending, Success, TemporaryFailure"
 
 instance ToText VerificationStatus where
     toText = \case
-        Failed -> "failed"
-        NotStarted -> "notstarted"
-        Pending -> "pending"
-        Success -> "success"
-        TemporaryFailure -> "temporaryfailure"
+        Failed -> "Failed"
+        NotStarted -> "NotStarted"
+        Pending -> "Pending"
+        Success -> "Success"
+        TemporaryFailure -> "TemporaryFailure"
 
 instance Hashable     VerificationStatus
 instance ToByteString VerificationStatus