diff --git a/src/Main.hs b/src/Main.hs
index 1864a17..4208137 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -103,7 +103,7 @@ main' opts s = do
     --let lifted = lambdaLift typechecked
     --printToErr $ printTree lifted
 
-    printToErr "\n -- Compiler --"
+    printToErr "\n -- Monomorphizer --"
     let monomorphized = monomorphize typechecked
     printToErr $ show monomorphized