diff --git a/amazonka-cloudfront.cabal b/amazonka-cloudfront.cabal
--- a/amazonka-cloudfront.cabal
+++ b/amazonka-cloudfront.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudfront
-version:               0.1.3
+version:               0.1.4
 synopsis:              Amazon CloudFront SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -69,5 +69,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/CloudFront/Types.hs b/gen/Network/AWS/CloudFront/Types.hs
--- a/gen/Network/AWS/CloudFront/Types.hs
+++ b/gen/Network/AWS/CloudFront/Types.hs
@@ -619,7 +619,7 @@
 instance Hashable SSLSupportMethod
 
 instance FromText SSLSupportMethod where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "sni-only" -> pure SniOnly
         "vip"      -> pure Vip
         e          -> fail $
@@ -824,7 +824,7 @@
 instance Hashable ViewerProtocolPolicy
 
 instance FromText ViewerProtocolPolicy where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "allow-all"         -> pure AllowAll
         "https-only"        -> pure HttpsOnly
         "redirect-to-https" -> pure RedirectToHttps
@@ -1168,7 +1168,7 @@
 instance Hashable OriginProtocolPolicy
 
 instance FromText OriginProtocolPolicy where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "http-only"    -> pure HttpOnly
         "match-viewer" -> pure MatchViewer
         e              -> fail $
@@ -2160,10 +2160,10 @@
 instance Hashable PriceClass
 
 instance FromText PriceClass where
-    parser = takeText >>= \case
-        "PriceClass_100" -> pure PriceClass100
-        "PriceClass_200" -> pure PriceClass200
-        "PriceClass_All" -> pure PriceClassAll
+    parser = takeLowerText >>= \case
+        "priceclass_100" -> pure PriceClass100
+        "priceclass_200" -> pure PriceClass200
+        "priceclass_all" -> pure PriceClassAll
         e                -> fail $
             "Failure parsing PriceClass from " ++ show e
 
@@ -2631,14 +2631,14 @@
 instance Hashable Method
 
 instance FromText Method where
-    parser = takeText >>= \case
-        "DELETE"  -> pure Delete'
-        "GET"     -> pure Get
-        "HEAD"    -> pure Head'
-        "OPTIONS" -> pure Options
-        "PATCH"   -> pure Patch
-        "POST"    -> pure Post
-        "PUT"     -> pure Put
+    parser = takeLowerText >>= \case
+        "delete"  -> pure Delete'
+        "get"     -> pure Get
+        "head"    -> pure Head'
+        "options" -> pure Options
+        "patch"   -> pure Patch
+        "post"    -> pure Post
+        "put"     -> pure Put
         e         -> fail $
             "Failure parsing Method from " ++ show e
 
@@ -2670,9 +2670,9 @@
 instance Hashable MinimumProtocolVersion
 
 instance FromText MinimumProtocolVersion where
-    parser = takeText >>= \case
-        "SSLv3" -> pure SSLv3
-        "TLSv1" -> pure TLSv1
+    parser = takeLowerText >>= \case
+        "sslv3" -> pure SSLv3
+        "tlsv1" -> pure TLSv1
         e       -> fail $
             "Failure parsing MinimumProtocolVersion from " ++ show e
 
@@ -2805,7 +2805,7 @@
 instance Hashable ItemSelection
 
 instance FromText ItemSelection where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "all"       -> pure All
         "none"      -> pure None
         "whitelist" -> pure Whitelist
@@ -3693,7 +3693,7 @@
 instance Hashable GeoRestrictionType
 
 instance FromText GeoRestrictionType where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "blacklist" -> pure GRTBlacklist
         "none"      -> pure GRTNone
         "whitelist" -> pure GRTWhitelist