Refactored. Cleaner version, ala Martin version

2023-02-15 19:52:52 +01:00 · 2023-02-15 19:52:52 +01:00 · f1b77a7efa
commit f1b77a7efa
parent b03df17e34
4 changed files with 33 additions and 60 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -24,7 +24,6 @@ main = getArgs >>= \case
        putStrLn " ----- PARSER ----- "
        putStrLn ""
        putStrLn . printTree $ prg
-        putStrLn . show $ prg
        case rename prg of
            Left err -> do
              putStrLn "FAILED RENAMING"