TxTrace: keep construction errors in TxResult

Also fix the rebase compilation failures
input-output-hk · May 7, 2024 · 9d1a1c0 · 9d1a1c0
1 parent caff211
commit 9d1a1c0
Show file tree

Hide file tree

Showing 7 changed files with 1,002 additions and 794 deletions.
diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs
@@ -27,35 +27,26 @@ import Data.ByteString (isInfixOf)
 import Data.ByteString qualified as B
 import Data.Set qualified as Set
 import Hydra.API.HTTPServer (
-  DraftCommitTxRequest (..),
   DraftCommitTxResponse (..),
-  ScriptInfo (..),
   TransactionSubmitted (..),
-  TxOutWithWitness (..),
  )
 import Hydra.Cardano.Api (
   Coin (..),
   File (File),
   Key (SigningKey),
   PaymentKey,
-  PlutusScriptV2,
   ShelleyWitnessSigningKey (WitnessPaymentKey),
   Tx,
   TxId,
   UTxO,
-  fromPlutusScript,
   getVerificationKey,
   isVkTxOut,
   lovelaceToValue,
   makeShelleyKeyWitness,
   makeSignedTransaction,
-  mkScriptAddress,
-  mkTxOutDatumHash,
-  mkTxOutDatumInline,
   mkVkAddress,
   selectLovelace,
   signTx,
-  toScriptData,
   txOutAddress,
   txOutValue,
   utxoFromTx,
@@ -108,7 +99,6 @@ import Network.HTTP.Req (
   (/:),
  )
 import Network.HTTP.Simple (httpLbs, setRequestBodyJSON)
-import PlutusLedgerApi.Test.Examples qualified as Plutus
 import System.Directory (removeDirectoryRecursive)
 import System.FilePath ((</>))
 import Test.QuickCheck (choose, generate, oneof)