Use Cardano.Wallet.Write in Deposit Wallet

cardano-foundation · Oct 22, 2024 · 1239608 · 1239608
1 parent 6eef21c
commit 1239608
Show file tree

Hide file tree

Showing 4 changed files with 32 additions and 4 deletions.
diff --git a/lib/balance-tx/lib/main/Cardano/Write/Tx.hs b/lib/balance-tx/lib/main/Cardano/Write/Tx.hs
@@ -20,6 +20,7 @@ module Cardano.Write.Tx
 
     -- ** Balancing
     , balanceTx
+    , TimeTranslation
     , UTxOAssumptions (..)
     , UTxOIndex
     , constructUTxOIndex
@@ -64,3 +65,6 @@ import Internal.Cardano.Write.Tx.Balance
 import Internal.Cardano.Write.Tx.Sign
     ( TimelockKeyWitnessCounts (..)
     )
+import Internal.Cardano.Write.Tx.TimeTranslation
+    ( TimeTranslation
+    )
diff --git a/lib/customer-deposit-wallet/customer-deposit-wallet.cabal b/lib/customer-deposit-wallet/customer-deposit-wallet.cabal
@@ -54,6 +54,7 @@ library
   build-depends:
     , async
     , base
+    , cardano-balance-tx
     , cardano-crypto
     , cardano-ledger-api
     , cardano-strict-containers

diff --git a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Read.hs b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Read.hs
@@ -32,7 +32,7 @@ module Cardano.Wallet.Deposit.Read
     , UTxO
 
     , Read.TxId
-    , Read.Tx
+    , Read.Tx (..)
     , Read.utxoFromEraTx
 
     , Read.Block

diff --git a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Write.hs b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Write.hs
@@ -4,7 +4,8 @@
 --
 -- TODO: Match this up with the @Write@ hierarchy.
 module Cardano.Wallet.Deposit.Write
-    ( Address
+    ( -- * Basic types
+      Address
 
     , Value
 
@@ -15,6 +16,24 @@ module Cardano.Wallet.Deposit.Write
     , TxIn
     , TxOut
 
+    -- * Transaction balancing
+    , Write.IsRecentEra
+    , Write.Conway
+    , L.PParams
+    , Write.UTxOAssumptions (..)
+    , Write.ChangeAddressGen (..)
+    , Write.StakeKeyDepositLookup (..)
+    , Write.TimelockKeyWitnessCounts (..)
+    , Write.UTxOIndex
+    , Write.constructUTxOIndex
+    , Write.UTxO
+    , toConwayUTxO
+    , Write.PartialTx (..)
+    , Write.ErrBalanceTx (..)
+    , Write.balanceTx
+
+    -- ** Time interpreter
+    , Write.TimeTranslation
     -- * Helper functions
     , mkAda
     , mkTxOut
@@ -59,12 +78,13 @@ import Lens.Micro
 import qualified Cardano.Ledger.Api as L
 import qualified Cardano.Ledger.Api.Tx.In as L
 import qualified Cardano.Wallet.Read as Read
+import qualified Cardano.Write.Eras as Write
+import qualified Cardano.Write.Tx as Write
 import qualified Data.Map.Strict as Map
 import qualified Data.Set as Set
 
 {-----------------------------------------------------------------------------
-    Type definitions
-    with dummies
+    Convenience TxBody
 ------------------------------------------------------------------------------}
 type Tx = Read.Tx Read.Conway
 
@@ -113,3 +133,6 @@ toConwayTxOut :: TxOut -> L.TxOut L.Conway
 toConwayTxOut txout =
     case toConwayOutput txout of
         Output o -> o
+
+toConwayUTxO :: Map TxIn TxOut -> Write.UTxO L.Conway
+toConwayUTxO = Write.UTxO . Map.map toConwayTxOut