From edefe7be9f1a44d76d8d98306fb17e51ee40ac99 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 6 Mar 2008 15:23:31 +0000
Subject: [PATCH] Added a progress message just before the backend is entered

---
 Main.hs | 1 +
 1 file changed, 1 insertion(+)

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