From a85ab68b36fcb333ddf92e955049a8d0a91c2c0d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 10 Jan 2006 14:39:01 +0000
Subject: [PATCH] [project @ 2006-01-10 14:39:01 by simonmar] Add a TODO

---
 ghc/compiler/parser/Lexer.x |    4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
1.7.10.4