From: sof <unknown>
Date: Sun, 18 May 1997 04:09:01 +0000 (+0000)
Subject: [project @ 1997-05-18 04:09:01 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~685
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54e774a71641c42977299d6280fc0da9ea743d0f;p=ghc-hetmet.git

[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
--- 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}