From: simonmar <unknown>
Date: Wed, 3 Oct 2001 08:16:49 +0000 (+0000)
Subject: [project @ 2001-10-03 08:16:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~872
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2e9f2703b7509ff565061c2cd8f38eb8da2abcd3;hp=06e4583da277cdef35b86233f883566e5cc08886;p=ghc-hetmet.git

[project @ 2001-10-03 08:16:49 by simonmar]
Don't print the "compilation IS NOT required" in quiet mode (-v0).
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index e9851e6..5da7b8d 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -161,7 +161,8 @@ hscNoRecomp ghci_mode dflags have_object
 	    mod location (Just old_iface) hst hit pcs_ch
  | ghci_mode == OneShot
  = do {
-      hPutStrLn stderr "compilation IS NOT required";
+      when (verbosity dflags > 0) $
+	  hPutStrLn stderr "compilation IS NOT required";
       let { bomb = panic "hscNoRecomp:OneShot" };
       return (HscNoRecomp pcs_ch bomb bomb)
       }