From 04933ef3c9ad381b2d09b7882b4204f6ca53208c Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 28 Aug 2006 19:36:41 +0000
Subject: the EOF error changed to more informative lexer error msg

---
 src/GF/Source/LexGF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Source/LexGF.hs')

diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs
index 9aa802910..326f738ed 100644
--- 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')
 
-- 
cgit v1.2.3