Fix compilation errors in Shelley.Transaction.

cardano-foundation · Mar 16, 2023 · 1ab41cc · 1ab41cc
1 parent dacfb22
commit 1ab41cc
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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 =