wip

cardano-foundation · Feb 8, 2023 · aea319a · aea319a
1 parent eba8129
commit aea319a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/Write/Tx.hs b/lib/wallet/src/Cardano/Wallet/Write/Tx.hs
@@ -329,7 +329,7 @@ type TxOut era = Core.TxOut era
 
 modifyTxOutValue
     :: RecentEra era
-    -> (Value (ShelleyLedgerEra era) -> Value (ShelleyLedgerEra era))
+    -> (MaryValue StandardCrypto -> MaryValue StandardCrypto)
     -> TxOut (ShelleyLedgerEra era)
     -> TxOut (ShelleyLedgerEra era)
 modifyTxOutValue RecentEraBabbage f (Babbage.BabbageTxOut addr val dat script) =
@@ -350,7 +350,7 @@ modifyTxOutCoin era f = withStandardCryptoConstraint era $
 txOutValue
     :: RecentEra era
     -> TxOut (ShelleyLedgerEra era)
-    -> Value (ShelleyLedgerEra era)
+    -> MaryValue StandardCrypto
 txOutValue RecentEraBabbage (Babbage.BabbageTxOut _ val _ _) = val
 txOutValue RecentEraAlonzo (Alonzo.AlonzoTxOut _ val _) = val
 
@@ -517,7 +517,7 @@ datumHashToBytes = Crypto.hashToBytes . extractHash
 data TxOutInRecentEra
     = TxOutInRecentEra
         Address
-        (MaryValue LatestLedgerEra)
+        (MaryValue StandardCrypto)
         (Datum LatestLedgerEra)
         (Maybe (AlonzoScript LatestLedgerEra))
         -- Same contents as 'TxOut LatestLedgerEra'.