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-lambda.cabal b/amazonka-lambda.cabal
--- a/amazonka-lambda.cabal
+++ b/amazonka-lambda.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-lambda
-version:               1.0.0
+version:               1.0.1
 synopsis:              Amazon Lambda SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -74,7 +74,7 @@
         , Network.AWS.Lambda.Types.Sum
 
     build-depends:
-          amazonka-core == 1.0.0.*
+          amazonka-core == 1.0.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-lambda-test
@@ -93,9 +93,9 @@
         , Test.AWS.Lambda.Internal
 
     build-depends:
-          amazonka-core == 1.0.0
-        , amazonka-test == 1.0.0
-        , amazonka-lambda == 1.0.0
+          amazonka-core == 1.0.1
+        , amazonka-test == 1.0.1
+        , amazonka-lambda == 1.0.1
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Lambda/Types/Sum.hs b/gen/Network/AWS/Lambda/Types/Sum.hs
--- a/gen/Network/AWS/Lambda/Types/Sum.hs
+++ b/gen/Network/AWS/Lambda/Types/Sum.hs
@@ -29,12 +29,12 @@
         "latest" -> pure Latest
         "trim_horizon" -> pure TrimHorizon
         e -> fromTextError $ "Failure parsing EventSourcePosition from value: '" <> e
-           <> "'. Accepted values: latest, trim_horizon"
+           <> "'. Accepted values: LATEST, TRIM_HORIZON"
 
 instance ToText EventSourcePosition where
     toText = \case
-        Latest -> "latest"
-        TrimHorizon -> "trim_horizon"
+        Latest -> "LATEST"
+        TrimHorizon -> "TRIM_HORIZON"
 
 instance Hashable     EventSourcePosition
 instance ToByteString EventSourcePosition
@@ -56,13 +56,13 @@
         "event" -> pure Event
         "requestresponse" -> pure RequestResponse
         e -> fromTextError $ "Failure parsing InvocationType from value: '" <> e
-           <> "'. Accepted values: dryrun, event, requestresponse"
+           <> "'. Accepted values: DryRun, Event, RequestResponse"
 
 instance ToText InvocationType where
     toText = \case
-        DryRun -> "dryrun"
-        Event -> "event"
-        RequestResponse -> "requestresponse"
+        DryRun -> "DryRun"
+        Event -> "Event"
+        RequestResponse -> "RequestResponse"
 
 instance Hashable     InvocationType
 instance ToByteString InvocationType
@@ -82,12 +82,12 @@
         "none" -> pure None
         "tail" -> pure Tail
         e -> fromTextError $ "Failure parsing LogType from value: '" <> e
-           <> "'. Accepted values: none, tail"
+           <> "'. Accepted values: None, Tail"
 
 instance ToText LogType where
     toText = \case
-        None -> "none"
-        Tail -> "tail"
+        None -> "None"
+        Tail -> "Tail"
 
 instance Hashable     LogType
 instance ToByteString LogType