Initial lowering code

1 files changed, 4 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 249436c..3fc7aeb 100644
--- a/Main.hs
+++ b/Main.hs
@@ -4,6 +4,7 @@ import System.Environment
 import System.Exit
 
 import Compiler
+import Lower
 import Optimiser
 import Parser
 import VM
@@ -26,4 +27,6 @@ main = do
     irprog <- either die return (compileProgram prog)
     let opt = optimise irprog
     print opt
-    vmRun opt
+    -- vmRun opt
+    let asmprog = lowerIR opt
+    print asmprog