Use DeltaUTxO.appends

cardano-foundation · Feb 3, 2025 · 9b7be38 · 9b7be38
1 parent 8d455e4
commit 9b7be38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure/Balance.hs b/lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure/Balance.hs
@@ -103,7 +103,7 @@ applyBlock
     -> UTxO
     -> (DeltaUTxO, UTxO, ValueTransferMap)
 applyBlock isOurs block u0 =
-    (DeltaUTxO.concat $ reverse dus, u1, totalValueTransfer)
+    (DeltaUTxO.appends $ reverse dus, u1, totalValueTransfer)
   where
     (dus, (u1, totalValueTransfer)) =
         mapAccumL' applyTx' (u0, mempty)