in stage1, we should get isPrint and isUpper from Compat.Unicode, not Data.Char

[ghc-hetmet.git] / ghc / compiler / parser / Lexer.x

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 31acaa0..4c1b48e 100644 (file)
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -44,14 +44,14 @@ import Ctype
 import Util            ( maybePrefixMatch, readRational )
 
 import DATA_BITS
-import Data.Char
+import Data.Char       ( chr )
 import Ratio
 --import TRACE
 
 #if __GLASGOW_HASKELL__ >= 605
-import Data.Char       ( GeneralCategory(..), generalCategory )
+import Data.Char       ( GeneralCategory(..), generalCategory, isPrint, isUpper )
 #else
-import Compat.Unicode  ( GeneralCategory(..), generalCategory )
+import Compat.Unicode  ( GeneralCategory(..), generalCategory, isPrint, isUpper )
 #endif
 }