diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-13 20:35:53 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-13 20:35:53 +0000 |
| commit | 6b4ab02f289394c82f27e46e44c017b4a0c88fb0 (patch) | |
| tree | 5a8993fb1c539d4adf76c8b89025db69cfe4ab3a /compiler/parser/Lexer.x | |
| parent | bd4d75bae80df2e9a4d519112532bbdd959382a2 (diff) | |
| download | haskell-6b4ab02f289394c82f27e46e44c017b4a0c88fb0.tar.gz | |
Define and use is_decdigit for lexing escapes; fixes trac #2304
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index e891cae73b..c935b2adb3 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1242,7 +1242,7 @@ lex_escape = do 'x' -> readNum is_hexdigit 16 hexDigit 'o' -> readNum is_octdigit 8 octDecDigit - x | is_digit x -> readNum2 is_digit 10 octDecDigit (octDecDigit x) + x | is_decdigit x -> readNum2 is_decdigit 10 octDecDigit (octDecDigit x) c1 -> do i <- getInput |