X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FLexer.x;h=84e5a1a33a66c862025a0a16742895270de563cf;hb=a85ab68b36fcb333ddf92e955049a8d0a91c2c0d;hp=be8dadd1c19ade6e3711cc9cf6847558ea70f47d;hpb=61b0395995feafffe2073dcbcac5f1fb1e73ee85;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index be8dadd..84e5a1a 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)