[project @ 1997-05-19 00:10:00 by sof]

[ghc-hetmet.git] / ghc / compiler / simplCore / ConFold.lhs

diff --git a/ghc/compiler/simplCore/ConFold.lhs b/ghc/compiler/simplCore/ConFold.lhs
index 59765ec..5e7478d 100644 (file)
--- a/ghc/compiler/simplCore/ConFold.lhs
+++ b/ghc/compiler/simplCore/ConFold.lhs
@@ -25,8 +25,7 @@ import SimplMonad
 import TysWiredIn      ( trueDataCon, falseDataCon )
 
 #ifdef REALLY_HASKELL_1_3
-ord = fromEnum :: Char -> Int
-chr = toEnum   :: Int -> Char
+import Char(ord,chr)
 #endif
 \end{code}