Improve code

2021-11-19 17:07:18 +01:00
parent 2c56582460
commit 2737e0a34e
7 changed files with 101 additions and 138 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -10,6 +10,5 @@ main = do
  input <- readFile filename
  result <- run input
  case result of
-    (Right vm) -> do
-      putStrLn $ "\nDone\n" ++ show vm
+    (Right vm) -> putStrLn $ "\n\nDone. \n" ++ show vm
    (Left err) -> putStrLn $ "\n\nError:\n" ++ err