X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FLexCore.hs;h=68b341916395ff7e2f657545baecab0d2c5424ea;hp=736450a21d6d1cf3b31e0581425d66edefb7aee2;hb=46809fa91667e952afe016e4cd704b21274241b4;hpb=b56d78783390e922c4bc8106f04729de01749e01

diff --git a/compiler/parser/LexCore.hs b/compiler/parser/LexCore.hs
index 736450a..68b3419 100644
--- a/compiler/parser/LexCore.hs
+++ b/compiler/parser/LexCore.hs
@@ -86,7 +86,8 @@ lexNum cont cs =
 		| isDigit c -> cont (TKrational (fromInteger sgn * r)) rest'
 	        where ((r,rest'):_) = readFloat (digits ++ ('.':c:rest))
 		-- When reading a floating-point number, which is
-		-- a bit complicated, use the Haskell 98 library function
+		-- a bit complicated, use the standard library function
+                -- "readFloat"
           (digits,rest) -> cont (TKinteger (sgn * (read digits))) rest
 
 lexName :: (a -> String -> b) -> (String -> a) -> String -> b