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-cloudsearch.cabal b/amazonka-cloudsearch.cabal
--- a/amazonka-cloudsearch.cabal
+++ b/amazonka-cloudsearch.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudsearch
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon CloudSearch SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -85,7 +85,7 @@
         , Network.AWS.CloudSearch.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudsearch-test
@@ -104,9 +104,9 @@
         , Test.AWS.CloudSearch.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-cloudsearch == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-cloudsearch == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/CloudSearch/Types/Sum.hs b/gen/Network/AWS/CloudSearch/Types/Sum.hs
--- a/gen/Network/AWS/CloudSearch/Types/Sum.hs
+++ b/gen/Network/AWS/CloudSearch/Types/Sum.hs
@@ -128,7 +128,7 @@
         "zh-hans" -> pure ZhHans
         "zh-hant" -> pure ZhHant
         e -> fromTextError $ "Failure parsing AnalysisSchemeLanguage from value: '" <> e
-           <> "'. Accepted values: ar, bg, ca, cs, da, de, el, en, es, eu, fa, fi, fr, ga, gl, he, hi, hu, hy, it, id, ja, ko, lv, mul, nl, no, pt, ro, ru, sv, th, tr, zh-hans, zh-hant"
+           <> "'. Accepted values: ar, bg, ca, cs, da, de, el, en, es, eu, fa, fi, fr, ga, gl, he, hi, hu, hy, it, id, ja, ko, lv, mul, nl, no, pt, ro, ru, sv, th, tr, zh-Hans, zh-Hant"
 
 instance ToText AnalysisSchemeLanguage where
     toText = \case
@@ -165,8 +165,8 @@
         SV -> "sv"
         TH -> "th"
         TR -> "tr"
-        ZhHans -> "zh-hans"
-        ZhHant -> "zh-hant"
+        ZhHans -> "zh-Hans"
+        ZhHant -> "zh-Hant"
 
 instance Hashable     AnalysisSchemeLanguage
 instance ToByteString AnalysisSchemeLanguage
@@ -258,14 +258,14 @@
         "processing" -> pure Processing
         "requiresindexdocuments" -> pure RequiresIndexDocuments
         e -> fromTextError $ "Failure parsing OptionState from value: '" <> e
-           <> "'. Accepted values: active, failedtovalidate, processing, requiresindexdocuments"
+           <> "'. Accepted values: Active, FailedToValidate, Processing, RequiresIndexDocuments"
 
 instance ToText OptionState where
     toText = \case
-        Active -> "active"
-        FailedToValidate -> "failedtovalidate"
-        Processing -> "processing"
-        RequiresIndexDocuments -> "requiresindexdocuments"
+        Active -> "Active"
+        FailedToValidate -> "FailedToValidate"
+        Processing -> "Processing"
+        RequiresIndexDocuments -> "RequiresIndexDocuments"
 
 instance Hashable     OptionState
 instance ToByteString OptionState