Rename from sapling to tricu

2024-12-29 08:29:25 -06:00
parent 064bed26c5
commit c30f17367f
10 changed files with 136 additions and 135 deletions
--- a/src/REPL.hs
+++ b/src/REPL.hs
@ -15,7 +15,7 @@ repl env = runInputT defaultSettings (loop env)
  where
    loop :: Map.Map String T -> InputT IO ()
    loop env = do
-      minput <- getInputLine "sapling < "
+      minput <- getInputLine "tricu < "
      case minput of
        Nothing -> outputStrLn "Goodbye!"
        Just ":_exit" -> outputStrLn "Goodbye!"
@ -27,7 +27,7 @@ repl env = runInputT defaultSettings (loop env)
              newEnv   = evalSingle clearEnv (parseSingle input)
          case Map.lookup "__result" newEnv of
            Just r -> do
-              outputStrLn $ "sapling > " ++ show r
+              outputStrLn $ "tricu > " ++ show r
              outputStrLn $ "DECODE -: " ++ decodeResult r
            Nothing -> return ()
          loop newEnv