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-glacier.cabal b/amazonka-glacier.cabal
--- a/amazonka-glacier.cabal
+++ b/amazonka-glacier.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-glacier
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Glacier SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -113,7 +113,7 @@
         , Network.AWS.Glacier.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-glacier-test
@@ -132,9 +132,9 @@
         , Test.AWS.Glacier.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-glacier == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-glacier == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Glacier/Types/Sum.hs b/gen/Network/AWS/Glacier/Types/Sum.hs
--- a/gen/Network/AWS/Glacier/Types/Sum.hs
+++ b/gen/Network/AWS/Glacier/Types/Sum.hs
@@ -29,12 +29,12 @@
         "archiveretrieval" -> pure ArchiveRetrieval
         "inventoryretrieval" -> pure InventoryRetrieval
         e -> fromTextError $ "Failure parsing ActionCode from value: '" <> e
-           <> "'. Accepted values: archiveretrieval, inventoryretrieval"
+           <> "'. Accepted values: ArchiveRetrieval, InventoryRetrieval"
 
 instance ToText ActionCode where
     toText = \case
-        ArchiveRetrieval -> "archiveretrieval"
-        InventoryRetrieval -> "inventoryretrieval"
+        ArchiveRetrieval -> "ArchiveRetrieval"
+        InventoryRetrieval -> "InventoryRetrieval"
 
 instance Hashable     ActionCode
 instance ToByteString ActionCode
@@ -56,13 +56,13 @@
         "inprogress" -> pure InProgress
         "succeeded" -> pure Succeeded
         e -> fromTextError $ "Failure parsing StatusCode from value: '" <> e
-           <> "'. Accepted values: failed, inprogress, succeeded"
+           <> "'. Accepted values: Failed, InProgress, Succeeded"
 
 instance ToText StatusCode where
     toText = \case
-        Failed -> "failed"
-        InProgress -> "inprogress"
-        Succeeded -> "succeeded"
+        Failed -> "Failed"
+        InProgress -> "InProgress"
+        Succeeded -> "Succeeded"
 
 instance Hashable     StatusCode
 instance ToByteString StatusCode