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 4b9b416f6cc..00427b9ba67 100644
--- a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs
+++ b/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
 
diff --git a/lib/customer-deposit-wallet/test/scenario/Test/Scenario/Wallet/Deposit/Exchanges.lhs.md b/lib/customer-deposit-wallet/test/scenario/Test/Scenario/Wallet/Deposit/Exchanges.lhs.md
index 307e61c55e6..25aead0bb0e 100644
--- a/lib/customer-deposit-wallet/test/scenario/Test/Scenario/Wallet/Deposit/Exchanges.lhs.md
+++ b/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