Simplify implementation of TokenBundle.add.

cardano-foundation · Jun 6, 2023 · 355a90c · 355a90c
1 parent b8c5890
commit 355a90c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenBundle.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenBundle.hs
@@ -327,8 +327,7 @@ setCoin b c = b { coin = c }
 -- | Adds one token bundle to another.
 --
 add :: TokenBundle -> TokenBundle -> TokenBundle
-add (TokenBundle (Coin c1) m1) (TokenBundle (Coin c2) m2) =
-    TokenBundle (Coin $ c1 + c2) (TokenMap.add m1 m2)
+add = (<>)
 
 -- | Subtracts the second token bundle from the first.
 --