diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-08-28 19:36:41 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-08-28 19:36:41 +0000 |
| commit | 04933ef3c9ad381b2d09b7882b4204f6ca53208c (patch) | |
| tree | 73636820fa4b8194dbe651cf9540977062c9866f /src/GF/Source/LexGF.hs | |
| parent | df370ec7f81b2f85bb1bfebfa37f2943f0027de6 (diff) | |
the EOF error changed to more informative lexer error msg
Diffstat (limited to 'src/GF/Source/LexGF.hs')
| -rw-r--r-- | src/GF/Source/LexGF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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') |