Rename from sapling to tricu

src/Lexer.hs

@@ -86,8 +86,8 @@ comment = do
 sc :: Lexer ()
 sc = skipMany (void (char ' ') <|> void (char '\t') <|> void comment)
 
-saplingLexer :: Lexer [LToken]
-saplingLexer = many (sc *> choice
+tricuLexer :: Lexer [LToken]
+tricuLexer = many (sc *> choice
   [ try identifier
   , try keywordT
   , try integerLiteral
@@ -102,7 +102,7 @@ saplingLexer = many (sc *> choice
   , lnewline
   ] <* sc) <* eof
 
-lexSapling :: String -> [LToken]
-lexSapling input = case runParser saplingLexer "" input of
+lexTricu :: String -> [LToken]
+lexTricu input = case runParser tricuLexer "" input of
   Left err -> error $ "Lexical error:\n" ++ errorBundlePretty err
   Right tokens -> tokens