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-ds.cabal b/amazonka-ds.cabal
--- a/amazonka-ds.cabal
+++ b/amazonka-ds.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ds
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Directory Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -70,7 +70,7 @@
         , Network.AWS.DirectoryService.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ds-test
@@ -89,9 +89,9 @@
         , Test.AWS.DirectoryService.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-ds == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-ds == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/DirectoryService/Types/Sum.hs b/gen/Network/AWS/DirectoryService/Types/Sum.hs
--- a/gen/Network/AWS/DirectoryService/Types/Sum.hs
+++ b/gen/Network/AWS/DirectoryService/Types/Sum.hs
@@ -29,12 +29,12 @@
         "large" -> pure Large
         "small" -> pure Small
         e -> fromTextError $ "Failure parsing DirectorySize from value: '" <> e
-           <> "'. Accepted values: large, small"
+           <> "'. Accepted values: Large, Small"
 
 instance ToText DirectorySize where
     toText = \case
-        Large -> "large"
-        Small -> "small"
+        Large -> "Large"
+        Small -> "Small"
 
 instance Hashable     DirectorySize
 instance ToByteString DirectorySize
@@ -75,21 +75,21 @@
         "restorefailed" -> pure DSRestoreFailed
         "restoring" -> pure DSRestoring
         e -> fromTextError $ "Failure parsing DirectoryStage from value: '" <> e
-           <> "'. Accepted values: active, created, creating, deleted, deleting, failed, impaired, inoperable, requested, restorefailed, restoring"
+           <> "'. Accepted values: Active, Created, Creating, Deleted, Deleting, Failed, Impaired, Inoperable, Requested, RestoreFailed, Restoring"
 
 instance ToText DirectoryStage where
     toText = \case
-        DSActive -> "active"
-        DSCreated -> "created"
-        DSCreating -> "creating"
-        DSDeleted -> "deleted"
-        DSDeleting -> "deleting"
-        DSFailed -> "failed"
-        DSImpaired -> "impaired"
-        DSInoperable -> "inoperable"
-        DSRequested -> "requested"
-        DSRestoreFailed -> "restorefailed"
-        DSRestoring -> "restoring"
+        DSActive -> "Active"
+        DSCreated -> "Created"
+        DSCreating -> "Creating"
+        DSDeleted -> "Deleted"
+        DSDeleting -> "Deleting"
+        DSFailed -> "Failed"
+        DSImpaired -> "Impaired"
+        DSInoperable -> "Inoperable"
+        DSRequested -> "Requested"
+        DSRestoreFailed -> "RestoreFailed"
+        DSRestoring -> "Restoring"
 
 instance Hashable     DirectoryStage
 instance ToByteString DirectoryStage
@@ -109,12 +109,12 @@
         "adconnector" -> pure ADConnector
         "simplead" -> pure SimpleAD
         e -> fromTextError $ "Failure parsing DirectoryType from value: '" <> e
-           <> "'. Accepted values: adconnector, simplead"
+           <> "'. Accepted values: ADConnector, SimpleAD"
 
 instance ToText DirectoryType where
     toText = \case
-        ADConnector -> "adconnector"
-        SimpleAD -> "simplead"
+        ADConnector -> "ADConnector"
+        SimpleAD -> "SimpleAD"
 
 instance Hashable     DirectoryType
 instance ToByteString DirectoryType
@@ -138,14 +138,14 @@
         "ms-chapv2" -> pure MsCHAPV2
         "pap" -> pure Pap
         e -> fromTextError $ "Failure parsing RadiusAuthenticationProtocol from value: '" <> e
-           <> "'. Accepted values: chap, ms-chapv1, ms-chapv2, pap"
+           <> "'. Accepted values: CHAP, MS-CHAPv1, MS-CHAPv2, PAP"
 
 instance ToText RadiusAuthenticationProtocol where
     toText = \case
-        Chap -> "chap"
-        MsCHAPV1 -> "ms-chapv1"
-        MsCHAPV2 -> "ms-chapv2"
-        Pap -> "pap"
+        Chap -> "CHAP"
+        MsCHAPV1 -> "MS-CHAPv1"
+        MsCHAPV2 -> "MS-CHAPv2"
+        Pap -> "PAP"
 
 instance Hashable     RadiusAuthenticationProtocol
 instance ToByteString RadiusAuthenticationProtocol
@@ -170,13 +170,13 @@
         "creating" -> pure Creating
         "failed" -> pure Failed
         e -> fromTextError $ "Failure parsing RadiusStatus from value: '" <> e
-           <> "'. Accepted values: completed, creating, failed"
+           <> "'. Accepted values: Completed, Creating, Failed"
 
 instance ToText RadiusStatus where
     toText = \case
-        Completed -> "completed"
-        Creating -> "creating"
-        Failed -> "failed"
+        Completed -> "Completed"
+        Creating -> "Creating"
+        Failed -> "Failed"
 
 instance Hashable     RadiusStatus
 instance ToByteString RadiusStatus
@@ -198,13 +198,13 @@
         "creating" -> pure SSCreating
         "failed" -> pure SSFailed
         e -> fromTextError $ "Failure parsing SnapshotStatus from value: '" <> e
-           <> "'. Accepted values: completed, creating, failed"
+           <> "'. Accepted values: Completed, Creating, Failed"
 
 instance ToText SnapshotStatus where
     toText = \case
-        SSCompleted -> "completed"
-        SSCreating -> "creating"
-        SSFailed -> "failed"
+        SSCompleted -> "Completed"
+        SSCreating -> "Creating"
+        SSFailed -> "Failed"
 
 instance Hashable     SnapshotStatus
 instance ToByteString SnapshotStatus
@@ -224,12 +224,12 @@
         "auto" -> pure Auto
         "manual" -> pure Manual
         e -> fromTextError $ "Failure parsing SnapshotType from value: '" <> e
-           <> "'. Accepted values: auto, manual"
+           <> "'. Accepted values: Auto, Manual"
 
 instance ToText SnapshotType where
     toText = \case
-        Auto -> "auto"
-        Manual -> "manual"
+        Auto -> "Auto"
+        Manual -> "Manual"
 
 instance Hashable     SnapshotType
 instance ToByteString SnapshotType