diff --git a/src/Main.hs b/src/Main.hs
index 9345f4a..b5e5a3f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -119,7 +119,7 @@ main' opts s =
 
     printToErr "\n -- Monomorphizer --"
     let monomorphized = monomorphize lifted
-    log lifted
+    log monomorphized
 
     printToErr "\n -- Compiler --"
     generatedCode <- fromErr $ generateCode monomorphized