diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,12 +5,18 @@
 The format is based on [Keep a Changelog][chg] and this project adheres to
 [Haskell's Package Versioning Policy][pvp]
 
+## `0.4.10.1` - 2022-03-28
+
+  - `instance FromJSON AWS.Lambda.Events.EventBridge.Detail.SSM.ParameterStoreChange.Operation`
+    now accepts arbitrary `Text` instead of the four currently-known
+    operations.
+
 ## `0.4.10` - 2022-03-22
 
   - Add `AWS.Lambda.Events.EventBridge.EventBridgeEvent` type for
     subscribing Lambda functions to AWS EventBridge Events
-  - Add `AWS.Lambda.Events.EventBridge.SSM.ParameterStoreChange` type
-    for parsing AWS Systems Manager Parameter Store Change events
+  - Add `AWS.Lambda.Events.EventBridge.Detail.SSM.ParameterStoreChange`
+    type for parsing AWS Systems Manager Parameter Store Change events
     delivered via AWS EventBridge.
   - When the runtime encounters an error, write it out to the Cloudwatch logs
     (via stderr), and do so in a format that can be guaranteed and later
diff --git a/hal.cabal b/hal.cabal
--- a/hal.cabal
+++ b/hal.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 7e0538a9f4a9a866214c8f9649acec329a1eb823391fd64f645a21b85459f566
+-- hash: 8dc55237df50c0c7ec3650a21ffaeb282db532546dc8cbe350c8be99621d2550
 
 name:           hal
-version:        0.4.10
+version:        0.4.10.1
 synopsis:       A runtime environment for Haskell applications running on AWS Lambda.
 description:    This library uniquely supports different types of AWS Lambda Handlers for your
                 needs/comfort with advanced Haskell. Instead of exposing a single function
diff --git a/src/AWS/Lambda/Events/EventBridge/Detail/SSM/ParameterStoreChange.hs b/src/AWS/Lambda/Events/EventBridge/Detail/SSM/ParameterStoreChange.hs
--- a/src/AWS/Lambda/Events/EventBridge/Detail/SSM/ParameterStoreChange.hs
+++ b/src/AWS/Lambda/Events/EventBridge/Detail/SSM/ParameterStoreChange.hs
@@ -97,12 +97,7 @@
 {-# COMPLETE Create, Update, Delete, LabelParameterVersion #-}
 
 instance FromJSON Operation where
-  parseJSON = withText "Operation" $ \case
-    "Create" -> pure Create
-    "Update" -> pure Update
-    "Delete" -> pure Delete
-    "LabelParameterVersion" -> pure LabelParameterVersion
-    t -> fail $ "Unrecognized operation: " ++ show t
+  parseJSON = withText "Operation" $ pure . Operation
 
 instance ToJSON Operation where
   toJSON (Operation op) = Aeson.String op