Tenth

1 files changed, 2 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index b8c50e6..fb557e8 100644
--- a/Main.hs
+++ b/Main.hs
@@ -8,6 +8,7 @@ import Debug.Trace
 import BuildIR
 import CodeGen
 import Defs
+import InternStrings
 import Optimiser
 import Pretty
 import ProgramParser
@@ -33,6 +34,7 @@ performCompile source = do
     let eres = return source
                  >>= parseProgram <?> "Parse error"
                  >>= typeCheck <?> "Type error"
+                 -- >>= internStrings <?> "Error interning strings"
                  >>= buildIR <?> "IR building error"
                  >>= optimise <?> "Error while optimising"
                  >>= return . traceShowId