[project @ 1997-05-18 04:09:01 by sof]

Moved intToDigit to PrelBase

diff --git a/ghc/lib/required/Char.lhs b/ghc/lib/required/Char.lhs
index b95487a..3df0bee 100644 (file)
--- a/ghc/lib/required/Char.lhs
+++ b/ghc/lib/required/Char.lhs
@@ -41,10 +41,5 @@ digitToInt c
  | c >= 'A' && c <= 'F' =  fromEnum c - fromEnum 'A' + 10
  | otherwise           =  error "Char.digitToInt: not a digit" -- sigh
 
-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" -- ....
 
 \end{code}