Simplify definition of Coin.add.

cardano-foundation · May 31, 2023 · 59dfafc · 59dfafc
1 parent ccb09d7
commit 59dfafc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/Coin.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/Coin.hs
@@ -266,7 +266,7 @@ subtract (Coin a) (Coin b)
 -- | Calculates the combined value of two coins.
 --
 add :: Coin -> Coin -> Coin
-add (Coin a) (Coin b) = Coin (a + b)
+add = (<>)
 
 -- | Subtracts the second coin from the first.
 --