Partially resolve TODO about plutus failure

input-output-hk · Feb 6, 2023 · af925a4 · af925a4
1 parent ad85e5e
commit af925a4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/hydra-node/src/Hydra/Chain/Direct/Handlers.hs b/hydra-node/src/Hydra/Chain/Direct/Handlers.hs
@@ -133,11 +133,11 @@ finalizeTx TinyWallet{sign, coverFee} ctx ChainStateAt{chainState} partialTx = d
       throwIO (NoFuelUTXOFound :: PostTxError Tx)
     Left ErrNotEnoughFunds{} ->
       throwIO (NotEnoughFuel :: PostTxError Tx)
-    Left ErrScriptExecutionFailed{} ->
+    Left ErrScriptExecutionFailed{scriptFailure} ->
       throwIO
         ( PlutusValidationFailed
-            { plutusFailure = "" -- TODO: extract this
-            , plutusDebugInfo = "" -- TODO: extract this or keep empty or defina new error type
+            { plutusFailure = show $ snd scriptFailure
+            , plutusDebugInfo = ""
             } ::
             PostTxError Tx
         )

diff --git a/hydra-node/src/Hydra/Chain/Direct/Wallet.hs b/hydra-node/src/Hydra/Chain/Direct/Wallet.hs
@@ -217,7 +217,7 @@ data ErrCoverFee
   = ErrNotEnoughFunds ChangeError
   | ErrNoFuelUTxOFound
   | ErrUnknownInput {input :: TxIn}
-  | ErrScriptExecutionFailed (RdmrPtr, TransactionScriptFailure StandardCrypto)
+  | ErrScriptExecutionFailed {scriptFailure :: (RdmrPtr, TransactionScriptFailure StandardCrypto)}
   | ErrTranslationError (TranslationError StandardCrypto)
   deriving (Show)