diff --git a/polysemy/Data/RdsData/Polysemy/Core.hs b/polysemy/Data/RdsData/Polysemy/Core.hs
--- a/polysemy/Data/RdsData/Polysemy/Core.hs
+++ b/polysemy/Data/RdsData/Polysemy/Core.hs
@@ -109,11 +109,11 @@
     , "  deployed_by      TEXT NOT NULL,"
     , "  CONSTRAINT valid_ulid_constraint"
     , "    CHECK (ulid::text ~ '^[0-9A-HJKMNP-TV-Z]{26}$')"
-    , ");"
+    , ")"
     ]
 
   executeStatement_
-    "CREATE INDEX IF NOT EXISTS idx_migration_created_at ON migration (created_at);"
+    "CREATE INDEX IF NOT EXISTS idx_migration_created_at ON migration (created_at)"
 
   executeStatement_
-    "CREATE INDEX IF NOT EXISTS idx_migration_deployed_by ON migration (deployed_by);"
+    "CREATE INDEX IF NOT EXISTS idx_migration_deployed_by ON migration (deployed_by)"
diff --git a/rds-data.cabal b/rds-data.cabal
--- a/rds-data.cabal
+++ b/rds-data.cabal
@@ -1,7 +1,7 @@
 cabal-version: 3.6
 
 name:                   rds-data
-version:                0.0.0.10
+version:                0.0.0.11
 synopsis:               Codecs for use with AWS rds-data
 description:            Codecs for use with AWS rds-data.
 category:               Data
diff --git a/src/Data/RdsData/Decode/Value.hs b/src/Data/RdsData/Decode/Value.hs
--- a/src/Data/RdsData/Decode/Value.hs
+++ b/src/Data/RdsData/Decode/Value.hs
@@ -41,6 +41,8 @@
   , uuid
   , day
 
+  , fail
+
   ) where
 
 import           Amazonka.Data.Base64
@@ -54,7 +56,7 @@
 import           Data.Time
 import           Data.UUID                     (UUID)
 import           Data.Word
-import           Prelude                       hiding (maybe, null)
+import           Prelude                       hiding (fail, maybe, null)
 
 import qualified Amazonka.Data.ByteString      as AWS
 import qualified Data.Aeson                    as J
@@ -86,6 +88,10 @@
   DecodeValue a >>= f = DecodeValue \v -> do
     a' <- a v
     decodeValue (f a') v
+
+fail :: Text -> DecodeValue a
+fail =
+    DecodeValue . const . Left
 
 --------------------------------------------------------------------------------
 
