From: simonmar <unknown>
Date: Tue, 18 Mar 2003 10:12:37 +0000 (+0000)
Subject: [project @ 2003-03-18 10:12:37 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1068
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aa448d763b78da58196be4aa43113da2c7a35139;p=ghc-hetmet.git

[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
--- 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