From 355a90cc71dc0fd04a6a8a23cde181a3aae27de1 Mon Sep 17 00:00:00 2001 From: Jonathan Knowles Date: Thu, 4 May 2023 13:07:44 +0000 Subject: [PATCH] Simplify implementation of `TokenBundle.add`. --- .../lib/Cardano/Wallet/Primitive/Types/TokenBundle.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenBundle.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenBundle.hs index 0bb2d204d5e..f7f6f727139 100644 --- 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. --