the EOF error changed to more informative lexer error msg

2006-08-28 19:36:41 +00:00
parent c9b4a28ebb
commit 66d3c75031
2 changed files with 6 additions and 2 deletions
--- a/src/GF/Source/LexGF.hs
+++ b/src/GF/Source/LexGF.hs
@@ -121,7 +121,7 @@ tokens str = go (alexStartPos, '\n', str)
      go inp@(pos, _, str) =
    	  case alexScan inp 0 of
    	    AlexEOF                -> []
-    	    AlexError (pos, _, _)  -> fail $ show pos ++ ": lexical error"
+    	    AlexError (pos, _, _)  -> [Err pos]
    	    AlexSkip  inp' len     -> go inp'
    	    AlexToken inp' len act -> act pos (take len str) : (go inp')