diff --git a/amazonka-route53.cabal b/amazonka-route53.cabal
--- a/amazonka-route53.cabal
+++ b/amazonka-route53.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-route53
-version:               0.1.3
+version:               0.1.4
 synopsis:              Amazon Route 53 SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -72,5 +72,5 @@
           Network.AWS.Route53.Internal
 
     build-depends:
-          amazonka-core == 0.1.3.*
+          amazonka-core == 0.1.4.*
         , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/Route53/Types.hs b/gen/Network/AWS/Route53/Types.hs
--- a/gen/Network/AWS/Route53/Types.hs
+++ b/gen/Network/AWS/Route53/Types.hs
@@ -561,7 +561,7 @@
 instance Hashable VPCRegion
 
 instance FromText VPCRegion where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "ap-northeast-1" -> pure ApNortheast1
         "ap-southeast-1" -> pure ApSoutheast1
         "ap-southeast-2" -> pure ApSoutheast2
@@ -614,17 +614,17 @@
 instance Hashable RecordType
 
 instance FromText RecordType where
-    parser = takeText >>= \case
-        "A"     -> pure A
-        "AAAA"  -> pure AAAA
-        "CNAME" -> pure CNAME
-        "MX"    -> pure MX
-        "NS"    -> pure NS
-        "PTR"   -> pure PTR
-        "SOA"   -> pure SOA
-        "SPF"   -> pure SPF
-        "SRV"   -> pure SRV
-        "TXT"   -> pure TXT
+    parser = takeLowerText >>= \case
+        "a"     -> pure A
+        "aaaa"  -> pure AAAA
+        "cname" -> pure CNAME
+        "mx"    -> pure MX
+        "ns"    -> pure NS
+        "ptr"   -> pure PTR
+        "soa"   -> pure SOA
+        "spf"   -> pure SPF
+        "srv"   -> pure SRV
+        "txt"   -> pure TXT
         e       -> fail $
             "Failure parsing RecordType from " ++ show e
 
@@ -660,10 +660,10 @@
 instance Hashable ChangeAction
 
 instance FromText ChangeAction where
-    parser = takeText >>= \case
-        "CREATE" -> pure Create
-        "DELETE" -> pure Delete'
-        "UPSERT" -> pure Upsert
+    parser = takeLowerText >>= \case
+        "create" -> pure Create
+        "delete" -> pure Delete'
+        "upsert" -> pure Upsert
         e        -> fail $
             "Failure parsing ChangeAction from " ++ show e
 
@@ -691,7 +691,7 @@
 instance Hashable TagResourceType
 
 instance FromText TagResourceType where
-    parser = takeText >>= \case
+    parser = takeLowerText >>= \case
         "healthcheck" -> pure Healthcheck
         "hostedzone"  -> pure Hostedzone
         e             -> fail $
@@ -884,9 +884,9 @@
 instance Hashable Failover
 
 instance FromText Failover where
-    parser = takeText >>= \case
-        "PRIMARY"   -> pure Primary
-        "SECONDARY" -> pure Secondary
+    parser = takeLowerText >>= \case
+        "primary"   -> pure Primary
+        "secondary" -> pure Secondary
         e           -> fail $
             "Failure parsing Failover from " ++ show e
 
@@ -1052,9 +1052,9 @@
 instance Hashable ChangeStatus
 
 instance FromText ChangeStatus where
-    parser = takeText >>= \case
-        "INSYNC"  -> pure Insync
-        "PENDING" -> pure Pending
+    parser = takeLowerText >>= \case
+        "insync"  -> pure Insync
+        "pending" -> pure Pending
         e         -> fail $
             "Failure parsing ChangeStatus from " ++ show e
 
@@ -1165,12 +1165,12 @@
 instance Hashable HealthCheckType
 
 instance FromText HealthCheckType where
-    parser = takeText >>= \case
-        "HTTP"            -> pure Http
-        "HTTP_STR_MATCH"  -> pure HttpStrMatch
-        "HTTPS"           -> pure Https
-        "HTTPS_STR_MATCH" -> pure HttpsStrMatch
-        "TCP"             -> pure Tcp
+    parser = takeLowerText >>= \case
+        "http"            -> pure Http
+        "http_str_match"  -> pure HttpStrMatch
+        "https"           -> pure Https
+        "https_str_match" -> pure HttpsStrMatch
+        "tcp"             -> pure Tcp
         e                 -> fail $
             "Failure parsing HealthCheckType from " ++ show e