diff --git a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/IO.hs b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/IO.hs index bfbd162c5da..c8b1a49182a 100644 --- a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/IO.hs +++ b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/IO.hs @@ -24,6 +24,7 @@ module Cardano.Wallet.Deposit.IO -- ** Writing to the blockchain , createPayment + , getBIP32PathsForOwnedInputs ) where import Prelude @@ -203,6 +204,11 @@ createPayment createPayment a w = Wallet.createPayment a <$> readWalletState w +getBIP32PathsForOwnedInputs + :: Write.TxBody -> WalletInstance -> IO [()] +getBIP32PathsForOwnedInputs a w = + Wallet.getBIP32PathsForOwnedInputs a <$> readWalletState w + {----------------------------------------------------------------------------- Logging ------------------------------------------------------------------------------} diff --git a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs index 7408faa55af..d581113e5a5 100644 --- a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs +++ b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs @@ -29,6 +29,7 @@ module Cardano.Wallet.Deposit.Pure -- ** Writing to the blockchain , createPayment + , getBIP32PathsForOwnedInputs , addTxSubmission , listTxsInSubmission @@ -211,6 +212,9 @@ createPayment = undefined -- needs balanceTx -- needs to sign the transaction +getBIP32PathsForOwnedInputs :: Write.TxBody -> WalletState -> [()] +getBIP32PathsForOwnedInputs = undefined + addTxSubmission :: Write.Tx -> WalletState -> WalletState addTxSubmission _tx _w = undefined