Structs + typedefs

1 files changed, 2 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index b8c50e6..a31c79d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -32,10 +32,11 @@ performCompile :: String -> IO ()
 performCompile source = do
     let eres = return source
                  >>= parseProgram <?> "Parse error"
+                 >>= return . tracePrettyId
                  >>= typeCheck <?> "Type error"
                  >>= buildIR <?> "IR building error"
                  >>= optimise <?> "Error while optimising"
-                 >>= return . traceShowId
+                 -- >>= return . traceShowId
                  >>= verify <?> "Verify error"
                  >>= return . tracePrettyId
                  >>= codegen <?> "Codegen error"