diff options
| author | simonmar <unknown> | 2006-01-10 14:39:01 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2006-01-10 14:39:01 +0000 |
| commit | a85ab68b36fcb333ddf92e955049a8d0a91c2c0d (patch) | |
| tree | 7955b1689eed8e3541d6ef0f89294a4e607bfb1e /ghc/compiler/parser/Lexer.x | |
| parent | 61b0395995feafffe2073dcbcac5f1fb1e73ee85 (diff) | |
| download | haskell-a85ab68b36fcb333ddf92e955049a8d0a91c2c0d.tar.gz | |
[project @ 2006-01-10 14:39:01 by simonmar]
Add a TODO
Diffstat (limited to 'ghc/compiler/parser/Lexer.x')
| -rw-r--r-- | ghc/compiler/parser/Lexer.x | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x index be8dadd1c1..84e5a1a33a 100644 --- a/ghc/compiler/parser/Lexer.x +++ b/ghc/compiler/parser/Lexer.x @@ -1381,6 +1381,10 @@ lexToken = do span `seq` setLastToken span bytes t span buf bytes +-- ToDo: Alex reports the buffer at the start of the erroneous lexeme, +-- but it would be more informative to report the location where the +-- error was actually discovered, especially if this is a decoding +-- error. reportLexError loc1 loc2 buf str = let c = fst (nextChar buf) |