diff options
Diffstat (limited to 'libraries/base/Numeric.hs')
| -rw-r--r-- | libraries/base/Numeric.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/Numeric.hs b/libraries/base/Numeric.hs index 51be3a1698..e8b0b91eed 100644 --- a/libraries/base/Numeric.hs +++ b/libraries/base/Numeric.hs @@ -128,7 +128,7 @@ readSigned readPos = readParen False read' -- | Show /non-negative/ 'Integral' numbers in base 10. showInt :: Integral a => a -> ShowS showInt n0 cs0 - | n0 < 0 = error "Numeric.showInt: can't show negative numbers" + | n0 < 0 = errorWithoutStackTrace "Numeric.showInt: can't show negative numbers" | otherwise = go n0 cs0 where go n cs @@ -211,8 +211,8 @@ showGFloatAlt d x = showString (formatRealFloatAlt FFGeneric d True x) -- first argument, and the character representation specified by the second. showIntAtBase :: (Integral a, Show a) => a -> (Int -> Char) -> a -> ShowS showIntAtBase base toChr n0 r0 - | base <= 1 = error ("Numeric.showIntAtBase: applied to unsupported base " ++ show base) - | n0 < 0 = error ("Numeric.showIntAtBase: applied to negative number " ++ show n0) + | base <= 1 = errorWithoutStackTrace ("Numeric.showIntAtBase: applied to unsupported base " ++ show base) + | n0 < 0 = errorWithoutStackTrace ("Numeric.showIntAtBase: applied to negative number " ++ show n0) | otherwise = showIt (quotRem n0 base) r0 where showIt (n,d) r = seq c $ -- stricter than necessary |