Simplify implementation of TokenMap.add.

cardano-foundation · Jun 2, 2023 · 57013af · 57013af
1 parent 1b3b827
commit 57013af
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenMap.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenMap.hs
@@ -539,10 +539,7 @@ filter f = fromFlatList . L.filter (f . fst) . toFlatList
 -- | Adds one token map to another.
 --
 add :: TokenMap -> TokenMap -> TokenMap
-add a b = F.foldl' acc a $ toFlatList b
-  where
-    acc c (asset, quantity) =
-        adjustQuantity c asset (`TokenQuantity.add` quantity)
+add = (<>)
 
 -- | Subtracts the second token map from the first.
 --