[project @ 2003-03-18 10:12:37 by simonmar]

Fix wibble in previous commit (fixes broken bootstrap)

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 162995f..c8126ce 100644 (file)
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -826,7 +826,7 @@ lex_num cont exts acc buf =
              -- files is not that common. (ToDo)
            case expandWhile# is_digit (incCurrentPos buf') of
               buf2 -> -- points to first non digit char
-                 case currentChar# buf of
+                 case currentChar# buf2 of
                        'E'# -> float_exponent cont exts buf2
                        'e'# -> float_exponent cont exts buf2
                        _    -> float_done cont exts buf2