From 5e1ab44baabe589b050e614de6212bd17e8aacd5 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 30 Jan 1998 16:59:06 +0000
Subject: [PATCH] [project @ 1998-01-30 16:59:06 by sof] - intToDigit: if we're
going to crash and burn, we might as well report back the argument value
that caused it.
---
ghc/lib/ghc/PrelBase.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/lib/ghc/PrelBase.lhs b/ghc/lib/ghc/PrelBase.lhs
index ee3151b4ae82..c8b4da1f610b 100644
--- a/ghc/lib/ghc/PrelBase.lhs
+++ b/ghc/lib/ghc/PrelBase.lhs
@@ -791,7 +791,7 @@ intToDigit :: Int -> Char
intToDigit i
| i >= 0 && i <= 9 = toEnum (fromEnum '0' + i)
| i >= 10 && i <= 15 = toEnum (fromEnum 'a' + i -10)
- | otherwise = error "Char.intToDigit: not a digit" -- ....
+ | otherwise = error ("Char.intToDigit: not a digit: " ++ show i) -- ....
\end{code}
--
GitLab