Simplify definition of TokenQuantity.difference.

cardano-foundation · May 31, 2023 · 8fee775 · 8fee775
1 parent 77af251
commit 8fee775
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenQuantity.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/TokenQuantity.hs
@@ -55,7 +55,7 @@ import Data.Monoid.Cancellative
 import Data.Monoid.GCD
     ( GCDMonoid, LeftGCDMonoid, RightGCDMonoid )
 import Data.Monoid.Monus
-    ( Monus, OverlappingGCDMonoid )
+    ( Monus ((<\>)), OverlappingGCDMonoid )
 import Data.Monoid.Null
     ( MonoidNull )
 import Data.Semigroup.Commutative
@@ -161,7 +161,7 @@ succ = (`add` TokenQuantity 1)
 -- Returns 'zero' if the first quantity is less than the second quantity.
 --
 difference :: TokenQuantity -> TokenQuantity -> TokenQuantity
-difference x y = fromMaybe zero $ subtract x y
+difference = (<\>)
 
 --------------------------------------------------------------------------------
 -- Partitioning