diff options
Diffstat (limited to 'compiler/parser/LexCore.hs')
| -rw-r--r-- | compiler/parser/LexCore.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/parser/LexCore.hs b/compiler/parser/LexCore.hs index 736450a21d..68b3419163 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 |