From aa448d763b78da58196be4aa43113da2c7a35139 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 18 Mar 2003 10:12:37 +0000 Subject: [PATCH] [project @ 2003-03-18 10:12:37 by simonmar] Fix wibble in previous commit (fixes broken bootstrap) --- ghc/compiler/parser/Lex.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs index 162995f..c8126ce 100644 --- 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 -- 1.7.10.4