New fail function

haskell-works · Oct 18, 2024 · f82dfb9 · f82dfb9
1 parent 84b04aa
commit f82dfb9
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Data/RdsData/Decode/Value.hs b/src/Data/RdsData/Decode/Value.hs
@@ -41,6 +41,8 @@ module Data.RdsData.Decode.Value
   , uuid
   , day
 
+  , fail
+
   ) where
 
 import           Amazonka.Data.Base64
@@ -54,7 +56,7 @@ import           Data.Text                     (Text)
 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
@@ -87,6 +89,10 @@ instance Monad DecodeValue where
     a' <- a v
     decodeValue (f a') v
 
+fail :: Text -> DecodeValue a
+fail =
+    DecodeValue . const . Left
+
 --------------------------------------------------------------------------------
 
 rdsValue :: DecodeValue Value