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-ssm.cabal b/amazonka-ssm.cabal
--- a/amazonka-ssm.cabal
+++ b/amazonka-ssm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ssm
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Simple Systems Management Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -75,7 +75,7 @@
         , Network.AWS.SSM.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ssm-test
@@ -94,9 +94,9 @@
         , Test.AWS.SSM.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-ssm == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-ssm == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/SSM/Types/Sum.hs b/gen/Network/AWS/SSM/Types/Sum.hs
--- a/gen/Network/AWS/SSM/Types/Sum.hs
+++ b/gen/Network/AWS/SSM/Types/Sum.hs
@@ -29,12 +29,12 @@
         "instanceid" -> pure AFKInstanceId
         "name" -> pure AFKName
         e -> fromTextError $ "Failure parsing AssociationFilterKey from value: '" <> e
-           <> "'. Accepted values: instanceid, name"
+           <> "'. Accepted values: InstanceId, Name"
 
 instance ToText AssociationFilterKey where
     toText = \case
-        AFKInstanceId -> "instanceid"
-        AFKName -> "name"
+        AFKInstanceId -> "InstanceId"
+        AFKName -> "Name"
 
 instance Hashable     AssociationFilterKey
 instance ToByteString AssociationFilterKey
@@ -56,13 +56,13 @@
         "pending" -> pure Pending
         "success" -> pure Success
         e -> fromTextError $ "Failure parsing AssociationStatusName from value: '" <> e
-           <> "'. Accepted values: failed, pending, success"
+           <> "'. Accepted values: Failed, Pending, Success"
 
 instance ToText AssociationStatusName where
     toText = \case
-        Failed -> "failed"
-        Pending -> "pending"
-        Success -> "success"
+        Failed -> "Failed"
+        Pending -> "Pending"
+        Success -> "Success"
 
 instance Hashable     AssociationStatusName
 instance ToByteString AssociationStatusName
@@ -83,11 +83,11 @@
     parser = takeLowerText >>= \case
         "name" -> pure Name
         e -> fromTextError $ "Failure parsing DocumentFilterKey from value: '" <> e
-           <> "'. Accepted values: name"
+           <> "'. Accepted values: Name"
 
 instance ToText DocumentFilterKey where
     toText = \case
-        Name -> "name"
+        Name -> "Name"
 
 instance Hashable     DocumentFilterKey
 instance ToByteString DocumentFilterKey
@@ -109,13 +109,13 @@
         "creating" -> pure Creating
         "deleting" -> pure Deleting
         e -> fromTextError $ "Failure parsing DocumentStatus from value: '" <> e
-           <> "'. Accepted values: active, creating, deleting"
+           <> "'. Accepted values: Active, Creating, Deleting"
 
 instance ToText DocumentStatus where
     toText = \case
-        Active -> "active"
-        Creating -> "creating"
-        Deleting -> "deleting"
+        Active -> "Active"
+        Creating -> "Creating"
+        Deleting -> "Deleting"
 
 instance Hashable     DocumentStatus
 instance ToByteString DocumentStatus
@@ -137,13 +137,13 @@
         "server" -> pure Server
         "unknown" -> pure Unknown
         e -> fromTextError $ "Failure parsing Fault from value: '" <> e
-           <> "'. Accepted values: client, server, unknown"
+           <> "'. Accepted values: Client, Server, Unknown"
 
 instance ToText Fault where
     toText = \case
-        Client -> "client"
-        Server -> "server"
-        Unknown -> "unknown"
+        Client -> "Client"
+        Server -> "Server"
+        Unknown -> "Unknown"
 
 instance Hashable     Fault
 instance ToByteString Fault