From f61d6a0179e901717fbf3153282ecd4990db0108 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 5 Mar 2023 21:53:47 +0100
Subject: [PATCH] call no string

---
 app/Parser.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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