fix IsReserved

IsReserved should be true for e.g. "λ" but not "fun", since only the
first can show up in the lexer output
This commit is contained in:
rhiannon morris 2023-11-05 15:43:17 +01:00
parent 6c8ebfb804
commit d9cdf1306d

View file

@ -295,7 +295,7 @@ allReservedStrings = foldMap resString2 reserved
||| the token stream ||| the token stream
public export public export
IsReserved : String -> Type IsReserved : String -> Type
IsReserved str = So (str `elem` allReservedStrings) IsReserved str = So (str `elem` reservedStrings)
private private
name : Tokenizer ExtToken name : Tokenizer ExtToken