From 239e9471e104fd88ec93bf42623c3a68a496657a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 12 Feb 2002 11:44:54 +0000
Subject: [PATCH] [project @ 2002-02-12 11:44:54 by simonmar] Fix bug in
 previous commit

---
 ghc/compiler/parser/Lex.lhs |   14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 5dd61c3..b0de29d 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -54,8 +54,14 @@ import StringBuffer
 import GlaExts
 import Ctype
 import Char		( chr, ord )
+
+import Bits		( Bits(..) )	   -- non-std
+
+#if __GLASGOW_HASKELL__ >= 503
+import GHC.Read 	( readRational__ ) -- Glasgow non-std
+#else
 import PrelRead 	( readRational__ ) -- Glasgow non-std
-import PrelBits		( Bits(..) )	   -- non-std
+#endif
 \end{code}
 
 %************************************************************************
@@ -925,9 +931,9 @@ lex_num cont exts acc buf =
 		    do_exponent 
 			= let buf3 = incLexeme buf2 in
 			  case currentChar# buf3 of
-				'-'# | is_digit (lookAhead# buf 1#)
+				'-'# | is_digit (lookAhead# buf3 1#)
 				   -> expandWhile# is_digit (incLexeme buf3)
-				'+'# | is_digit (lookAhead# buf 1#)
+				'+'# | is_digit (lookAhead# buf3 1#)
 				   -> expandWhile# is_digit (incLexeme buf3)
 				x | is_digit x -> expandWhile# is_digit buf3
 				_ -> buf2
@@ -1366,7 +1372,7 @@ popContext = \ buf s@(PState{ context = ctx, loc = loc }) ->
 -}
 checkVersion :: Maybe Integer -> P ()
 checkVersion mb@(Just v) buf s@(PState{loc = loc})
- | (v==0) || (v == fromInt opt_HiVersion) || opt_NoHiCheck = POk s ()
+ | (v==0) || (v == fromIntegral opt_HiVersion) || opt_NoHiCheck = POk s ()
  | otherwise = PFailed (ifaceVersionErr mb loc ([]::[Token]){-Todo-})
 checkVersion mb@Nothing  buf s@(PState{loc = loc})
  | "hi-boot" `isSuffixOf` (_UNPK_ (srcLocFile loc)) = POk s ()
-- 
1.7.10.4