diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-03-05 21:53:47 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-03-05 21:53:47 +0100 |
| commit | f61d6a0179e901717fbf3153282ecd4990db0108 (patch) | |
| tree | 91e6dddc07e036c383c9d924acb8c9c2d32426e0 /app/Parser.hs | |
| parent | 98c40f4bf8849f5cdd3d3c49123bc911b8fa42e1 (diff) | |
| download | prlg-f61d6a0179e901717fbf3153282ecd4990db0108.tar.gz prlg-f61d6a0179e901717fbf3153282ecd4990db0108.tar.bz2 | |
call no string
Diffstat (limited to 'app/Parser.hs')
| -rw-r--r-- | app/Parser.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/app/Parser.hs b/app/Parser.hs index 9d11cc8..96a1edd 100644 --- a/app/Parser.hs +++ b/app/Parser.hs @@ -174,7 +174,8 @@ isNormalTok _ = False isCallTok :: Lexeme -> Bool isCallTok (Tok x) = all (\c -> not (isSymbol c) && not (isPunctuation c) || c `elem` identParts) x -isCallTok _ = True +isCallTok (QTok _ _) = True +isCallTok _ = False unTok (Tok t) = t unTok (QTok t _) = t |