diff --git a/main.ml b/main.ml
index 591e5b3..40ff967 100644
--- a/main.ml
+++ b/main.ml
@@ -1,5 +1,4 @@
 open Errors
-open Simplifier
 
 let () =
   if Array.length Sys.argv != 2
@@ -14,7 +13,7 @@ let () =
     (* Test.debug_parser Stdlib.stderr parsed; *)
     let ast = Semantics.analyze parsed in
     (* Test.debug_semantics Stdlib.stderr ast; *)
-    let asm = Compiler.compile (simplify ast) in
+    let asm = Compiler.compile (Simplifier.simplify ast) in
     Mips.emit Stdlib.stdout asm
   with
   | LexerError c ->