Simplify definition of TokenQuantity.add.

cardano-foundation · May 31, 2023 · 423836d · 423836d
1 parent a0c8bfc
commit 423836d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenQuantity.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenQuantity.hs
@@ -128,7 +128,7 @@ zero = TokenQuantity 0
 --------------------------------------------------------------------------------
 
 add :: TokenQuantity -> TokenQuantity -> TokenQuantity
-add (TokenQuantity x) (TokenQuantity y) = TokenQuantity $ x + y
+add = (<>)
 
 -- | Subtracts the second token quantity from the first.
 --