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:               0.1.3
+version:               0.1.4
 synopsis:              Amazon CloudSearch SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -66,5 +66,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/CloudSearch/Types.hs b/gen/Network/AWS/CloudSearch/Types.hs
--- a/gen/Network/AWS/CloudSearch/Types.hs
+++ b/gen/Network/AWS/CloudSearch/Types.hs
@@ -866,11 +866,11 @@
 instance Hashable OptionState
 
 instance FromText OptionState where
-    parser = takeText >>= \case
-        "Active"                 -> pure Active
-        "FailedToValidate"       -> pure FailedToValidate
-        "Processing"             -> pure Processing
-        "RequiresIndexDocuments" -> pure RequiresIndexDocuments
+    parser = takeLowerText >>= \case
+        "active"                 -> pure Active
+        "failedtovalidate"       -> pure FailedToValidate
+        "processing"             -> pure Processing
+        "requiresindexdocuments" -> pure RequiresIndexDocuments
         e                        -> fail $
             "Failure parsing OptionState from " ++ show e
 
@@ -968,7 +968,7 @@
 instance Hashable AlgorithmicStemming
 
 instance FromText AlgorithmicStemming where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "full"    -> pure Full
         "light"   -> pure Light
         "minimal" -> pure Minimal
@@ -1623,7 +1623,7 @@
 instance Hashable IndexFieldType
 
 instance FromText IndexFieldType where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "date"          -> pure IFTDate
         "date-array"    -> pure IFTDateArray
         "double"        -> pure IFTDouble
@@ -2037,7 +2037,7 @@
 instance Hashable SuggesterFuzzyMatching
 
 instance FromText SuggesterFuzzyMatching where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "high" -> pure SFMHigh
         "low"  -> pure SFMLow
         "none" -> pure SFMNone
@@ -2168,7 +2168,7 @@
 instance Hashable AnalysisSchemeLanguage
 
 instance FromText AnalysisSchemeLanguage where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "ar"      -> pure Ar
         "bg"      -> pure Bg
         "ca"      -> pure Ca
@@ -2202,8 +2202,8 @@
         "sv"      -> pure Sv
         "th"      -> pure Th
         "tr"      -> pure Tr
-        "zh-Hans" -> pure ZhHans
-        "zh-Hant" -> pure ZhHant
+        "zh-hans" -> pure ZhHans
+        "zh-hant" -> pure ZhHant
         e         -> fail $
             "Failure parsing AnalysisSchemeLanguage from " ++ show e
 
@@ -2262,7 +2262,7 @@
 instance Hashable PartitionInstanceType
 
 instance FromText PartitionInstanceType where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "search.m1.large"   -> pure SearchM1Large
         "search.m1.small"   -> pure SearchM1Small
         "search.m2.2xlarge" -> pure SearchM22xlarge