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-cloudhsm.cabal b/amazonka-cloudhsm.cabal
--- a/amazonka-cloudhsm.cabal
+++ b/amazonka-cloudhsm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudhsm
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon CloudHSM SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -66,7 +66,7 @@
         , Network.AWS.CloudHSM.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudhsm-test
@@ -85,9 +85,9 @@
         , Test.AWS.CloudHSM.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-cloudhsm == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-cloudhsm == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/CloudHSM/Types/Sum.hs b/gen/Network/AWS/CloudHSM/Types/Sum.hs
--- a/gen/Network/AWS/CloudHSM/Types/Sum.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Sum.hs
@@ -56,13 +56,13 @@
         "ready" -> pure Ready
         "updating" -> pure Updating
         e -> fromTextError $ "Failure parsing CloudHSMObjectState from value: '" <> e
-           <> "'. Accepted values: degraded, ready, updating"
+           <> "'. Accepted values: DEGRADED, READY, UPDATING"
 
 instance ToText CloudHSMObjectState where
     toText = \case
-        Degraded -> "degraded"
-        Ready -> "ready"
-        Updating -> "updating"
+        Degraded -> "DEGRADED"
+        Ready -> "READY"
+        Updating -> "UPDATING"
 
 instance Hashable     CloudHSMObjectState
 instance ToByteString CloudHSMObjectState
@@ -92,17 +92,17 @@
         "terminating" -> pure HSTerminating
         "updating" -> pure HSUpdating
         e -> fromTextError $ "Failure parsing HSMStatus from value: '" <> e
-           <> "'. Accepted values: degraded, pending, running, suspended, terminated, terminating, updating"
+           <> "'. Accepted values: DEGRADED, PENDING, RUNNING, SUSPENDED, TERMINATED, TERMINATING, UPDATING"
 
 instance ToText HSMStatus where
     toText = \case
-        HSDegraded -> "degraded"
-        HSPending -> "pending"
-        HSRunning -> "running"
-        HSSuspended -> "suspended"
-        HSTerminated -> "terminated"
-        HSTerminating -> "terminating"
-        HSUpdating -> "updating"
+        HSDegraded -> "DEGRADED"
+        HSPending -> "PENDING"
+        HSRunning -> "RUNNING"
+        HSSuspended -> "SUSPENDED"
+        HSTerminated -> "TERMINATED"
+        HSTerminating -> "TERMINATING"
+        HSUpdating -> "UPDATING"
 
 instance Hashable     HSMStatus
 instance ToByteString HSMStatus
@@ -120,11 +120,11 @@
     parser = takeLowerText >>= \case
         "production" -> pure Production
         e -> fromTextError $ "Failure parsing SubscriptionType from value: '" <> e
-           <> "'. Accepted values: production"
+           <> "'. Accepted values: PRODUCTION"
 
 instance ToText SubscriptionType where
     toText = \case
-        Production -> "production"
+        Production -> "PRODUCTION"
 
 instance Hashable     SubscriptionType
 instance ToByteString SubscriptionType