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-datapipeline.cabal b/amazonka-datapipeline.cabal
--- a/amazonka-datapipeline.cabal
+++ b/amazonka-datapipeline.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-datapipeline
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Data Pipeline SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -90,7 +90,7 @@
         , Network.AWS.DataPipeline.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-datapipeline-test
@@ -109,9 +109,9 @@
         , Test.AWS.DataPipeline.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-datapipeline == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-datapipeline == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/DataPipeline/Types/Sum.hs b/gen/Network/AWS/DataPipeline/Types/Sum.hs
--- a/gen/Network/AWS/DataPipeline/Types/Sum.hs
+++ b/gen/Network/AWS/DataPipeline/Types/Sum.hs
@@ -35,15 +35,15 @@
         "le" -> pure OperatorLE
         "ref_eq" -> pure OperatorRefEQ
         e -> fromTextError $ "Failure parsing OperatorType from value: '" <> e
-           <> "'. Accepted values: between, eq, ge, le, ref_eq"
+           <> "'. Accepted values: BETWEEN, EQ, GE, LE, REF_EQ"
 
 instance ToText OperatorType where
     toText = \case
-        OperatorBetween -> "between"
-        OperatorEQ' -> "eq"
-        OperatorGE -> "ge"
-        OperatorLE -> "le"
-        OperatorRefEQ -> "ref_eq"
+        OperatorBetween -> "BETWEEN"
+        OperatorEQ' -> "EQ"
+        OperatorGE -> "GE"
+        OperatorLE -> "LE"
+        OperatorRefEQ -> "REF_EQ"
 
 instance Hashable     OperatorType
 instance ToByteString OperatorType
@@ -65,13 +65,13 @@
         "false" -> pure False'
         "finished" -> pure Finished
         e -> fromTextError $ "Failure parsing TaskStatus from value: '" <> e
-           <> "'. Accepted values: failed, false, finished"
+           <> "'. Accepted values: FAILED, FALSE, FINISHED"
 
 instance ToText TaskStatus where
     toText = \case
-        Failed -> "failed"
-        False' -> "false"
-        Finished -> "finished"
+        Failed -> "FAILED"
+        False' -> "FALSE"
+        Finished -> "FINISHED"
 
 instance Hashable     TaskStatus
 instance ToByteString TaskStatus