Fix minusNatural exception to be Underflow
authorOleg Grenrus <oleg.grenrus@iki.fi>
Fri, 3 Feb 2017 11:52:25 +0000 (13:52 +0200)
committerBen Gamari <ben@smart-cactus.org>
Sat, 4 Feb 2017 21:16:10 +0000 (16:16 -0500)
libraries/base/GHC/Natural.hs

index 9bca0a2..0e5abc7 100644 (file)
@@ -399,8 +399,8 @@ minusNatural :: Natural -> Natural -> Natural
 minusNatural x         (NatS# 0##) = x
 minusNatural (NatS# x) (NatS# y) = case subWordC# x y of
     (# l, 0# #) -> NatS# l
-    _           -> divZeroError -- underflowException
-minusNatural (NatS# _) (NatJ# _) = divZeroError -- underflowException
+    _           -> underflowError
+minusNatural (NatS# _) (NatJ# _) = underflowError
 minusNatural (NatJ# x) (NatS# y)
     = bigNatToNatural $ minusBigNatWord x y
 minusNatural (NatJ# x) (NatJ# y)