From 1ab41ccde1bae57c3d41905e1b6376f04a6e3b4a Mon Sep 17 00:00:00 2001 From: Jonathan Knowles Date: Tue, 14 Mar 2023 09:49:03 +0000 Subject: [PATCH] Fix compilation errors in `Shelley.Transaction`. --- lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs index 38e1a2e4a5d..d868943ade6 100644 --- a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs +++ b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs @@ -2507,7 +2507,7 @@ mkUnsignedTx era ttl cs md wdrls certs fees mintData burnData mintingScripts inp ShelleyBasedEraBabbage -> Just Cardano.MultiAssetInBabbageEra scriptWitsSupported - :: Cardano.ScriptLanguageInEra Cardano.SimpleScript era + :: Cardano.ScriptLanguageInEra Cardano.SimpleScript' era scriptWitsSupported = case era of ShelleyBasedEraShelley -> internalError "scriptWitsSupported: we should be at least in Mary" @@ -2521,7 +2521,6 @@ mkUnsignedTx era ttl cs md wdrls certs fees mintData burnData mintingScripts inp toScriptWitness script = Cardano.SimpleScriptWitness scriptWitsSupported - Cardano.SimpleScript (Cardano.SScript $ toCardanoSimpleScript script) constructInpScriptWit inp =