diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2017-02-03 13:52:25 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-04 16:16:10 -0500 |
| commit | 18cdef385d432efc57bbda3818265e0fde41e701 (patch) | |
| tree | 08869252be9d0b3a6af90ca82caddaa824aebdee | |
| parent | 283acec1d7307fdbd8cd7b3f1d984a036366d6b4 (diff) | |
| download | haskell-18cdef385d432efc57bbda3818265e0fde41e701.tar.gz | |
Fix minusNatural exception to be Underflow
| -rw-r--r-- | libraries/base/GHC/Natural.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Natural.hs b/libraries/base/GHC/Natural.hs index 9bca0a2079..0e5abc77bc 100644 --- a/libraries/base/GHC/Natural.hs +++ b/libraries/base/GHC/Natural.hs @@ -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) |