From e59973ca9211c7a13fbcbe54d838117636a90743 Mon Sep 17 00:00:00 2001 From: Jordan Millar Date: Fri, 17 Jan 2025 16:23:13 -0400 Subject: [PATCH] small change --- cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Read.hs | 2 +- cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Types.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Read.hs b/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Read.hs index ec9256366..2c3fe4dc7 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Read.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Read.hs @@ -34,7 +34,7 @@ readSpendScriptWitness => ShelleyBasedEra era -> CliSpendScriptRequirements -> t m (SpendScriptWitness era) readSpendScriptWitness sbe spendScriptReq = case spendScriptReq of - OnDiskSimpleOrPlutusScript (OnDiskSimpleOrPlutusScriptCliArgs simpleFp) -> do + OnDiskSimpleOrPlutusScript (OnDiskSimpleCliArgs simpleFp) -> do let sFp = unFile simpleFp s <- modifyError (fmap (CliScriptWitnessError . SimpleScriptWitnessDecodeError)) $ readFileSimpleScript sFp diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Types.hs b/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Types.hs index ac6902d27..9298a7e72 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Types.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Script/Spend/Types.hs @@ -37,7 +37,7 @@ data SimpleOrPlutusScriptCliArgs (ScriptDatumOrFileSpending) -- ^ Optional Datum (CIP-69) ScriptDataOrFile -- ^ Redeemer ExecutionUnits - | OnDiskSimpleOrPlutusScriptCliArgs + | OnDiskSimpleCliArgs (File ScriptInAnyLang In) deriving Show @@ -49,7 +49,7 @@ createPlutusScriptFromCliArgs -> CliSpendScriptRequirements createPlutusScriptFromCliArgs scriptFp (Just (datumFile, redeemerFile, execUnits)) = OnDiskSimpleOrPlutusScript $ OnDiskPlutusScriptCliArgs scriptFp datumFile redeemerFile execUnits -createPlutusScriptFromCliArgs scriptFp Nothing = OnDiskSimpleOrPlutusScript $ OnDiskSimpleOrPlutusScriptCliArgs scriptFp +createPlutusScriptFromCliArgs scriptFp Nothing = OnDiskSimpleOrPlutusScript $ OnDiskSimpleCliArgs scriptFp newtype SimpleRefScriptCliArgs = SimpleRefScriptArgs TxIn deriving Show