From 001804756eefd24bedb2ac55170e9df4827f2964 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Sun, 15 Apr 2018 10:20:03 +0200
Subject: Quieter

---
 Main.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Main.hs')

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
 
-- 
cgit v1.2.3-54-g00ecf