exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

call no string

Browse source
This commit is contained in:
Mirek Kratochvil 2023-03-05 21:53:47 +01:00
parent 98c40f4bf8
commit f61d6a0179
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
app/Parser.hs
View file

@ -174,7 +174,8 @@ isNormalTok _ = False
isCallTok :: Lexeme -> Bool isCallTok :: Lexeme -> Bool
isCallTok (Tok x) = isCallTok (Tok x) =
all (\c -> not (isSymbol c) && not (isPunctuation c) || c `elem` identParts) 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 (Tok t) = t
unTok (QTok t _) = t unTok (QTok t _) = t