Sane parser rewrite

src/Lexer.hs

@@ -46,6 +46,7 @@ tricuLexer = do
       , openBracket
       , closeBracket
       , try arrowLeft
+      , try arrowRight
       ]
 
 lexTricu :: String -> [LToken]
@@ -132,6 +133,9 @@ closeBracket = char ']' $> LCloseBracket
 arrowLeft :: Lexer LToken
 arrowLeft = string "<|" $> LArrowLeft
 
+arrowRight :: Lexer LToken
+arrowRight = string "|>" $> LArrowRight
+
 lnewline :: Lexer LToken
 lnewline = char '\n' $> LNewline