Use TxSummary from customer-deposit-wallet-pure

lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs

@@ -53,6 +53,9 @@ import Cardano.Wallet.Address.BIP32
     ( BIP32Path (..)
     , DerivationType (..)
     )
+import Cardano.Wallet.Deposit.Pure.TxSummary
+    ( TxSummary (..)
+    )
 import Cardano.Wallet.Deposit.Pure.UTxO.UTxOHistory
     ( UTxOHistory
     )
@@ -209,13 +212,6 @@ availableUTxO w =
     pending = listTxsInSubmission w
     utxo = UTxOHistory.getUTxO $ utxoHistory w
 
-data TxSummary = TxSummary
-    { txid :: Read.TxId
-    , blockHeaderBody :: Read.BHBody
-    , transfer :: ValueTransfer
-    }
-    deriving (Eq, Show)
-
 getCustomerHistory :: Customer -> WalletState -> [TxSummary]
 getCustomerHistory = undefined
 

lib/customer-deposit-wallet/test/scenario/Test/Scenario/Wallet/Deposit/Exchanges.lhs.md

@@ -127,17 +127,17 @@ scenarioTrackDepositOne env w = do
 
     -- no deposits
     txsummaries0<- Wallet.getCustomerHistory customer w
-    assert $ txsummaries0 == []
+    assert $ null txsummaries0
 
     -- first deposit
     depositFundsAt env address coin
     txsummaries1 <- Wallet.getCustomerHistory customer w
-    assert $ map (received . transfer) txsummaries1 == [coin]
+    assert $ map (received . txTransfer) txsummaries1 == [coin]
 
     -- second deposit
     depositFundsAt env address coin
     txsummaries2 <- Wallet.getCustomerHistory customer w
-    assert $ map (received . transfer) txsummaries2 == [coin, coin]
+    assert $ map (received . txTransfer) txsummaries2 == [coin, coin]
   where
     customer = 7 :: Customer
     coin = ada 12
@@ -210,7 +210,7 @@ scenarioCreatePayment xprv env destination w = do
 
     -- but the original deposit amount is still recorded
     txsummaries <- Wallet.getCustomerHistory customer w
-    assert $ value1 `elem` map (received . transfer) txsummaries
+    assert $ value1 `elem` map (received . txTransfer) txsummaries
   where
     customer :: Customer
     customer = 17