From: simonmar <unknown>
Date: Thu, 8 Jan 2004 10:45:33 +0000 (+0000)
Subject: [project @ 2004-01-08 10:45:33 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~142
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c0c05bb3fbfdd1a82bccdcbc34c77a4927c99316

[project @ 2004-01-08 10:45:33 by simonmar]
Fix warning message about missing Main module to refer to take into
account the -main-is flag.
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index cfea2b8..c4c1913 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -576,7 +576,7 @@ cmLoadModules cmstate1 mg2unsorted
 	      let do_linking = a_root_is_Main || no_hs_main
 	      when (ghci_mode == Batch && isJust ofile && not do_linking
 		     && verb > 0) $
-	         hPutStrLn stderr "Warning: output was redirected with -o, but no output will be generated\nbecause there is no Main module."
+	         hPutStrLn stderr ("Warning: output was redirected with -o, but no output will be generated\nbecause there is no " ++ main_mod ++ " module.")
 
 	      -- link everything together
               linkresult <- link ghci_mode dflags do_linking (hsc_HPT hsc_env3)