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-cloudfront.cabal b/amazonka-cloudfront.cabal
--- a/amazonka-cloudfront.cabal
+++ b/amazonka-cloudfront.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudfront
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon CloudFront SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -80,7 +80,7 @@
         , Network.AWS.CloudFront.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudfront-test
@@ -99,9 +99,9 @@
         , Test.AWS.CloudFront.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-cloudfront == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-cloudfront == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/CloudFront/Types/Sum.hs b/gen/Network/AWS/CloudFront/Types/Sum.hs
--- a/gen/Network/AWS/CloudFront/Types/Sum.hs
+++ b/gen/Network/AWS/CloudFront/Types/Sum.hs
@@ -101,17 +101,17 @@
         "post" -> pure Post
         "put" -> pure Put
         e -> fromTextError $ "Failure parsing Method from value: '" <> e
-           <> "'. Accepted values: delete, get, head, options, patch, post, put"
+           <> "'. Accepted values: DELETE, GET, HEAD, OPTIONS, PATCH, POST, PUT"
 
 instance ToText Method where
     toText = \case
-        Delete -> "delete"
-        Get -> "get"
-        Head -> "head"
-        Options -> "options"
-        Patch -> "patch"
-        Post -> "post"
-        Put -> "put"
+        Delete -> "DELETE"
+        Get -> "GET"
+        Head -> "HEAD"
+        Options -> "OPTIONS"
+        Patch -> "PATCH"
+        Post -> "POST"
+        Put -> "PUT"
 
 instance Hashable     Method
 instance ToByteString Method
@@ -134,12 +134,12 @@
         "sslv3" -> pure SSLV3
         "tlsv1" -> pure TLSV1
         e -> fromTextError $ "Failure parsing MinimumProtocolVersion from value: '" <> e
-           <> "'. Accepted values: sslv3, tlsv1"
+           <> "'. Accepted values: SSLv3, TLSv1"
 
 instance ToText MinimumProtocolVersion where
     toText = \case
-        SSLV3 -> "sslv3"
-        TLSV1 -> "tlsv1"
+        SSLV3 -> "SSLv3"
+        TLSV1 -> "TLSv1"
 
 instance Hashable     MinimumProtocolVersion
 instance ToByteString MinimumProtocolVersion
@@ -192,13 +192,13 @@
         "priceclass_200" -> pure PriceClass200
         "priceclass_all" -> pure PriceClassAll
         e -> fromTextError $ "Failure parsing PriceClass from value: '" <> e
-           <> "'. Accepted values: priceclass_100, priceclass_200, priceclass_all"
+           <> "'. Accepted values: PriceClass_100, PriceClass_200, PriceClass_All"
 
 instance ToText PriceClass where
     toText = \case
-        PriceClass100 -> "priceclass_100"
-        PriceClass200 -> "priceclass_200"
-        PriceClassAll -> "priceclass_all"
+        PriceClass100 -> "PriceClass_100"
+        PriceClass200 -> "PriceClass_200"
+        PriceClassAll -> "PriceClass_All"
 
 instance Hashable     PriceClass
 instance ToByteString PriceClass