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-kinesis.cabal b/amazonka-kinesis.cabal
--- a/amazonka-kinesis.cabal
+++ b/amazonka-kinesis.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-kinesis
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Kinesis SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -65,7 +65,7 @@
         , Network.AWS.Kinesis.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-kinesis-test
@@ -84,9 +84,9 @@
         , Test.AWS.Kinesis.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-kinesis == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-kinesis == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Kinesis/Types/Sum.hs b/gen/Network/AWS/Kinesis/Types/Sum.hs
--- a/gen/Network/AWS/Kinesis/Types/Sum.hs
+++ b/gen/Network/AWS/Kinesis/Types/Sum.hs
@@ -33,14 +33,14 @@
         "latest" -> pure Latest
         "trim_horizon" -> pure TrimHorizon
         e -> fromTextError $ "Failure parsing ShardIteratorType from value: '" <> e
-           <> "'. Accepted values: after_sequence_number, at_sequence_number, latest, trim_horizon"
+           <> "'. Accepted values: AFTER_SEQUENCE_NUMBER, AT_SEQUENCE_NUMBER, LATEST, TRIM_HORIZON"
 
 instance ToText ShardIteratorType where
     toText = \case
-        AfterSequenceNumber -> "after_sequence_number"
-        AtSequenceNumber -> "at_sequence_number"
-        Latest -> "latest"
-        TrimHorizon -> "trim_horizon"
+        AfterSequenceNumber -> "AFTER_SEQUENCE_NUMBER"
+        AtSequenceNumber -> "AT_SEQUENCE_NUMBER"
+        Latest -> "LATEST"
+        TrimHorizon -> "TRIM_HORIZON"
 
 instance Hashable     ShardIteratorType
 instance ToByteString ShardIteratorType
@@ -64,14 +64,14 @@
         "deleting" -> pure Deleting
         "updating" -> pure Updating
         e -> fromTextError $ "Failure parsing StreamStatus from value: '" <> e
-           <> "'. Accepted values: active, creating, deleting, updating"
+           <> "'. Accepted values: ACTIVE, CREATING, DELETING, UPDATING"
 
 instance ToText StreamStatus where
     toText = \case
-        Active -> "active"
-        Creating -> "creating"
-        Deleting -> "deleting"
-        Updating -> "updating"
+        Active -> "ACTIVE"
+        Creating -> "CREATING"
+        Deleting -> "DELETING"
+        Updating -> "UPDATING"
 
 instance Hashable     StreamStatus
 instance ToByteString StreamStatus