more tokens
This commit is contained in:
parent
12753eb894
commit
fcbc92e54c
2 changed files with 7 additions and 2 deletions
|
@ -24,7 +24,8 @@ data Punc
|
||||||
|
|
||||||
public export
|
public export
|
||||||
data Keyword
|
data Keyword
|
||||||
= Fun | Let | In | Case | Of | Omega
|
= Lam | Let | In | Case | Of | Omega
|
||||||
|
| Pi | Sigma | W | TYPE
|
||||||
|
|
||||||
%runElab derive "Keyword" [Generic, Meta, Eq, Ord, DecEq, Show]
|
%runElab derive "Keyword" [Generic, Meta, Eq, Ord, DecEq, Show]
|
||||||
|
|
||||||
|
|
|
@ -124,7 +124,11 @@ tests = "lexer" :- [
|
||||||
acceptsWith' "case" [K Case],
|
acceptsWith' "case" [K Case],
|
||||||
acceptsWith' "of" [K Of],
|
acceptsWith' "of" [K Of],
|
||||||
acceptsWith' "ω" [K Omega],
|
acceptsWith' "ω" [K Omega],
|
||||||
acceptsWith' "funk" [Name "funk"]
|
acceptsWith' "Π" [K Pi],
|
||||||
|
acceptsWith' "Σ" [K Sigma],
|
||||||
|
acceptsWith' "W" [K W],
|
||||||
|
acceptsWith' "★" [K TYPE],
|
||||||
|
acceptsWith' "WAAA" [Name "WAAA"]
|
||||||
],
|
],
|
||||||
|
|
||||||
"numbers" :- [
|
"numbers" :- [
|
||||||
|
|
Loading…
Reference in a new issue