wip

Author: erikd

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Alonzo/ScriptsExamples.hs

@@ -101,8 +101,8 @@ alwaysMintScriptAddr = Addr Testnet (ScriptHashObj alwaysMintScriptHash) StakeRe
 alwaysMintScriptStake :: StakeCredential
 alwaysMintScriptStake = ScriptHashObj alwaysMintScriptHash
 
-mkPlutusScriptEra :: AlonzoEraScript era => PlutusBinary -> AlonzoScript era
-mkPlutusScriptEra sh = PlutusScript $ fromJust $ mkBinaryPlutusScript PlutusV1 sh
+mkPlutusV1ScriptEra :: AlonzoEraScript era => PlutusBinary -> Script era
+mkPlutusV1ScriptEra sh = fromPlutusScript $ fromJust $ mkBinaryPlutusScript PlutusV1 sh
 
 scriptHash ::
   forall era.