diff options
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') |