feat(haskell): CLI rewrite

2026-05-11 15:29:12 -05:00
parent ea748b2e5e
commit e0b1e95729
8 changed files with 441 additions and 330 deletions
--- a/src/REPL.hs
+++ b/src/REPL.hs
@@ -130,7 +130,7 @@ repl = do

    handleOutput :: REPLState -> InputT IO ()
    handleOutput state = do
-      let formats = [Decode, TreeCalculus, FSL, AST, Ternary, Ascii]
+      let formats = [Decode, Tree, FSL, AST, Ternary, Ascii]
      outputStrLn "Available output formats:"
      mapM_ (\(i, f) -> outputStrLn $ show (i :: Int) ++ ". " ++ show f)
        (zip [1..] formats)