Update demos and adds <|

2026-05-13 19:39:15 -05:00
parent 8f7684a1bb
commit e3dcf5edd7
14 changed files with 333 additions and 127 deletions
--- a/src/Lexer.hs
+++ b/src/Lexer.hs
@@ -45,6 +45,7 @@ tricuLexer = do
      , closeParen
      , openBracket
      , closeBracket
+      , try arrowLeft
      ]

 lexTricu :: String -> [LToken]
@@ -128,6 +129,9 @@ openBracket = char '[' $> LOpenBracket
 closeBracket :: Lexer LToken
 closeBracket = char ']' $> LCloseBracket

+arrowLeft :: Lexer LToken
+arrowLeft = string "<|" $> LArrowLeft
+
 lnewline :: Lexer LToken
 lnewline = char '\n' $> LNewline