Fix - for Natural

augustss · Jan 29, 2025 · 6837ee0 · 6837ee0
1 parent 85a7245
commit 6837ee0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Numeric/Natural.hs b/lib/Numeric/Natural.hs
@@ -16,6 +16,7 @@ instance Show Natural where
 instance Num Natural where
   N x + N y = N (x + y)
   N x - N y | y > x = throw Underflow
+            | otherwise = N (x - y)
   N x * N y = N (x * y)
   abs x = x
   signum x = if x > 0 then 1 else 0