diff --git a/Main.hs b/Main.hs
index 8fb89b1..be08928 100644
--- a/Main.hs
+++ b/Main.hs
@@ -298,6 +298,7 @@ compile mode fn outHandle
                  ast2 <- runPasses passes ast1
 
                  debug "{{{ Generate code"
+                 progress $ "- Backend: " ++ (show $ csBackend optsPS)
                  let generator
                        = case csBackend optsPS of
                            BackendC -> generateC