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-ecs.cabal b/amazonka-ecs.cabal
--- a/amazonka-ecs.cabal
+++ b/amazonka-ecs.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ecs
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon EC2 Container Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -89,7 +89,7 @@
         , Network.AWS.ECS.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-ecs-test
@@ -108,9 +108,9 @@
         , Test.AWS.ECS.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-ecs == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-ecs == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/ECS/Types/Sum.hs b/gen/Network/AWS/ECS/Types/Sum.hs
--- a/gen/Network/AWS/ECS/Types/Sum.hs
+++ b/gen/Network/AWS/ECS/Types/Sum.hs
@@ -37,16 +37,16 @@
         "updated" -> pure AUSUpdated
         "updating" -> pure AUSUpdating
         e -> fromTextError $ "Failure parsing AgentUpdateStatus from value: '" <> e
-           <> "'. Accepted values: failed, pending, staged, staging, updated, updating"
+           <> "'. Accepted values: FAILED, PENDING, STAGED, STAGING, UPDATED, UPDATING"
 
 instance ToText AgentUpdateStatus where
     toText = \case
-        AUSFailed -> "failed"
-        AUSPending -> "pending"
-        AUSStaged -> "staged"
-        AUSStaging -> "staging"
-        AUSUpdated -> "updated"
-        AUSUpdating -> "updating"
+        AUSFailed -> "FAILED"
+        AUSPending -> "PENDING"
+        AUSStaged -> "STAGED"
+        AUSStaging -> "STAGING"
+        AUSUpdated -> "UPDATED"
+        AUSUpdating -> "UPDATING"
 
 instance Hashable     AgentUpdateStatus
 instance ToByteString AgentUpdateStatus
@@ -68,13 +68,13 @@
         "running" -> pure Running
         "stopped" -> pure Stopped
         e -> fromTextError $ "Failure parsing DesiredStatus from value: '" <> e
-           <> "'. Accepted values: pending, running, stopped"
+           <> "'. Accepted values: PENDING, RUNNING, STOPPED"
 
 instance ToText DesiredStatus where
     toText = \case
-        Pending -> "pending"
-        Running -> "running"
-        Stopped -> "stopped"
+        Pending -> "PENDING"
+        Running -> "RUNNING"
+        Stopped -> "STOPPED"
 
 instance Hashable     DesiredStatus
 instance ToByteString DesiredStatus
@@ -94,12 +94,12 @@
         "asc" -> pure Asc
         "desc" -> pure Desc
         e -> fromTextError $ "Failure parsing SortOrder from value: '" <> e
-           <> "'. Accepted values: asc, desc"
+           <> "'. Accepted values: ASC, DESC"
 
 instance ToText SortOrder where
     toText = \case
-        Asc -> "asc"
-        Desc -> "desc"
+        Asc -> "ASC"
+        Desc -> "DESC"
 
 instance Hashable     SortOrder
 instance ToByteString SortOrder
@@ -119,12 +119,12 @@
         "active" -> pure Active
         "inactive" -> pure Inactive
         e -> fromTextError $ "Failure parsing TaskDefinitionStatus from value: '" <> e
-           <> "'. Accepted values: active, inactive"
+           <> "'. Accepted values: ACTIVE, INACTIVE"
 
 instance ToText TaskDefinitionStatus where
     toText = \case
-        Active -> "active"
-        Inactive -> "inactive"
+        Active -> "ACTIVE"
+        Inactive -> "INACTIVE"
 
 instance Hashable     TaskDefinitionStatus
 instance ToByteString TaskDefinitionStatus