1 files changed, 1 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index a31c79d..eb84072 100644
--- a/Main.hs
+++ b/Main.hs
@@ -32,7 +32,7 @@ performCompile :: String -> IO ()
 performCompile source = do
     let eres = return source
                  >>= parseProgram <?> "Parse error"
-                 >>= return . tracePrettyId
+                 -- >>= return . tracePrettyId
                  >>= typeCheck <?> "Type error"
                  >>= buildIR <?> "IR building error"
                  >>= optimise <?> "Error while optimising"