From e4ab5e8729efb9592dc80efdbc0b407e47e92daf Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 21 Nov 2000 16:19:15 +0000
Subject: [PATCH] [project @ 2000-11-21 16:19:15 by sewardj] Message wibbles.

---
 ghc/compiler/compMan/CmLink.lhs |   10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index c4cb9fc..0281772 100644
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -124,17 +124,19 @@ link mode dflags batch_attempt_linking linkables pls1
 link' Batch dflags batch_attempt_linking linkables pls1
    | batch_attempt_linking
    = do let o_files = concatMap getOfiles linkables
+        when (verb >= 1) $
+             hPutStrLn stderr "ghc: linking ..."
 	-- don't showPass in Batch mode; doLink will do that for us.
         doLink o_files
 	-- doLink only returns if it succeeds
         return (LinkOK pls1)
    | otherwise
-   = do let verb = verbosity dflags
-        when (verb >= 3) $ do
-	    hPutStrLn stderr "CmLink.link(batch): upsweep (partially?) failed OR main not exported;"
-            hPutStrLn stderr "not linking."
+   = do when (verb >= 3) $ do
+	    hPutStrLn stderr "CmLink.link(batch): upsweep (partially) failed OR"
+            hPutStrLn stderr "   Main.main not exported; not linking."
         return (LinkOK pls1)
    where
+      verb = verbosity dflags
       getOfiles (LP _)    = panic "CmLink.link(getOfiles): shouldn't get package linkables"
       getOfiles (LM _ _ us) = map nameOfObject (filter isObject us)
 
-- 
1.7.10.4