diff options
| author | Kleidi Bujari <mail@4kb.net> | 2026-10-13 23:44:16 -0700 |
|---|---|---|
| committer | Kleidi Bujari <mail@4kb.net> | 2026-10-13 23:48:06 -0700 |
| commit | 61a467c1be9895cc8c22b73ac0ff4350047d43e6 (patch) | |
| tree | 563be1036dd60cbf2751e916787cbd3b35e42d2d /src/Hint/Lexer.hs | |
| parent | 479a316905ea882375aefe7944f9c02b176a55e2 (diff) | |
| download | hint-61a467c1be9895cc8c22b73ac0ff4350047d43e6.tar.gz hint-61a467c1be9895cc8c22b73ac0ff4350047d43e6.tar.bz2 hint-61a467c1be9895cc8c22b73ac0ff4350047d43e6.zip | |
Diffstat (limited to 'src/Hint/Lexer.hs')
| -rw-r--r-- | src/Hint/Lexer.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Hint/Lexer.hs b/src/Hint/Lexer.hs index 7aad9a4..19d1266 100644 --- a/src/Hint/Lexer.hs +++ b/src/Hint/Lexer.hs @@ -40,6 +40,11 @@ data TokenKind | TEquals | KeywordLet | KeywordIn + | KeywordTrue + | KeywordFalse + | KeywordIf + | KeywordThen + | KeywordElse deriving (Show, Eq) data Span = Span SourcePos SourcePos @@ -129,6 +134,11 @@ lexKeyword :: Lexer TokenKind lexKeyword = asum $ [ KeywordLet <$ string "let" , KeywordIn <$ string "in" + , KeywordTrue <$ string "true" + , KeywordFalse <$ string "false" + , KeywordIf <$ string "if" + , KeywordThen <$ string "then" + , KeywordElse <$ string "else" ] lexIdent :: Lexer TokenKind |