small change

IntersectMBO · Jan 17, 2025 · e59973c · e59973c
1 parent 529ffa9
commit e59973c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 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
@@ -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
@@ -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