Added a progress message just before the backend is entered

2008-03-06 15:23:31 +00:00 · 2008-03-06 15:23:31 +00:00 · edefe7be9f
commit edefe7be9f
parent a9c2643ad4
1 changed files with 1 additions and 0 deletions
--- 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