1 files changed, 5 insertions, 4 deletions
diff --git a/Main.hs b/Main.hs
index c7ca464..83a0578 100644
--- a/Main.hs
+++ b/Main.hs
@@ -7,7 +7,7 @@ import System.Exit
 import qualified System.Info as System (os)
 import System.Process
 
-import AST
+-- import AST
 import Compiler
 import Interpreter
 import Parser
@@ -32,13 +32,14 @@ main = do
     -- putStrLn $ astSuccinct prog
     -- print prog
     let opt = optimise prog
-    writeFile (fname ++ ".succinct") $ astSuccinct opt
-    writeFile (fname ++ ".ast") $ show opt
+    -- writeFile (fname ++ ".succinct") $ astSuccinct opt
+    -- writeFile (fname ++ ".ast") $ show opt
 
     case executionMode of
         EMInterpret -> do
             input <- getContents
-            interpret opt (map (fromIntegral . ord) input) >>= (putStr . map (chr . fromIntegral))
+            output <- interpret opt $ map (fromIntegral . ord) input
+            putStr $ map (chr . fromIntegral) output
         EMCompile -> do
             writeFile (fname ++ ".asm") $ compile opt