diff options
Diffstat (limited to 'src/GF/Source/ParGF.hs')
| -rw-r--r-- | src/GF/Source/ParGF.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs index ebb017d90..d106d81a3 100644 --- a/src/GF/Source/ParGF.hs +++ b/src/GF/Source/ParGF.hs @@ -3133,7 +3133,11 @@ thenM = (>>=) happyError :: [Token] -> Err a happyError ts = - Bad $ "syntax error at " ++ tokenPos ts ++ if null ts then [] else (" before " ++ unwords (map prToken (take 4 ts))) + Bad $ "syntax error at " ++ tokenPos ts ++ + case ts of + [] -> [] + [Err _] -> " due to lexer error" + _ -> (" before " ++ unwords (map prToken (take 4 ts))) myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} |