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