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-dynamodb-streams.cabal b/amazonka-dynamodb-streams.cabal
--- a/amazonka-dynamodb-streams.cabal
+++ b/amazonka-dynamodb-streams.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-dynamodb-streams
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon DynamoDB Streams SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -80,7 +80,7 @@
         , Network.AWS.DynamoDBStreams.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-dynamodb-streams-test
@@ -99,9 +99,9 @@
         , Test.AWS.DynamoDBStreams.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-dynamodb-streams == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-dynamodb-streams == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/DynamoDBStreams/Types/Sum.hs b/gen/Network/AWS/DynamoDBStreams/Types/Sum.hs
--- a/gen/Network/AWS/DynamoDBStreams/Types/Sum.hs
+++ b/gen/Network/AWS/DynamoDBStreams/Types/Sum.hs
@@ -29,12 +29,12 @@
         "hash" -> pure Hash
         "range" -> pure Range
         e -> fromTextError $ "Failure parsing KeyType from value: '" <> e
-           <> "'. Accepted values: hash, range"
+           <> "'. Accepted values: HASH, RANGE"
 
 instance ToText KeyType where
     toText = \case
-        Hash -> "hash"
-        Range -> "range"
+        Hash -> "HASH"
+        Range -> "RANGE"
 
 instance Hashable     KeyType
 instance ToByteString KeyType
@@ -56,13 +56,13 @@
         "modify" -> pure Modify
         "remove" -> pure Remove
         e -> fromTextError $ "Failure parsing OperationType from value: '" <> e
-           <> "'. Accepted values: insert, modify, remove"
+           <> "'. Accepted values: INSERT, MODIFY, REMOVE"
 
 instance ToText OperationType where
     toText = \case
-        Insert -> "insert"
-        Modify -> "modify"
-        Remove -> "remove"
+        Insert -> "INSERT"
+        Modify -> "MODIFY"
+        Remove -> "REMOVE"
 
 instance Hashable     OperationType
 instance ToByteString OperationType
@@ -86,14 +86,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
@@ -117,14 +117,14 @@
         "enabled" -> pure Enabled
         "enabling" -> pure Enabling
         e -> fromTextError $ "Failure parsing StreamStatus from value: '" <> e
-           <> "'. Accepted values: disabled, disabling, enabled, enabling"
+           <> "'. Accepted values: DISABLED, DISABLING, ENABLED, ENABLING"
 
 instance ToText StreamStatus where
     toText = \case
-        Disabled -> "disabled"
-        Disabling -> "disabling"
-        Enabled -> "enabled"
-        Enabling -> "enabling"
+        Disabled -> "DISABLED"
+        Disabling -> "DISABLING"
+        Enabled -> "ENABLED"
+        Enabling -> "ENABLING"
 
 instance Hashable     StreamStatus
 instance ToByteString StreamStatus
@@ -148,14 +148,14 @@
         "new_image" -> pure NewImage
         "old_image" -> pure OldImage
         e -> fromTextError $ "Failure parsing StreamViewType from value: '" <> e
-           <> "'. Accepted values: keys_only, new_and_old_images, new_image, old_image"
+           <> "'. Accepted values: KEYS_ONLY, NEW_AND_OLD_IMAGES, NEW_IMAGE, OLD_IMAGE"
 
 instance ToText StreamViewType where
     toText = \case
-        KeysOnly -> "keys_only"
-        NewAndOldImages -> "new_and_old_images"
-        NewImage -> "new_image"
-        OldImage -> "old_image"
+        KeysOnly -> "KEYS_ONLY"
+        NewAndOldImages -> "NEW_AND_OLD_IMAGES"
+        NewImage -> "NEW_IMAGE"
+        OldImage -> "OLD_IMAGE"
 
 instance Hashable     StreamViewType
 instance ToByteString StreamViewType