From: simonmar <unknown>
Date: Thu, 2 Dec 1999 13:30:01 +0000 (+0000)
Subject: [project @ 1999-12-02 13:30:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~5448
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e236b290b2ac0fdcea1f650e35294d86330a575e;p=ghc-hetmet.git

[project @ 1999-12-02 13:30:01 by simonmar]
Only print out the module-version info messages when the -v flag is
on.

Something-similar-requested-ages-ago-by: Sven Panne
---

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index eb55658..f14e6dc 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -320,14 +320,16 @@ sub calcNewModuleVersion {
 	return(&mv_change($changed_version,"$v changed")) if $Decl{"old:$v"} ne $Decl{"new:$v"};
     }
     
-    print STDERR "$Pgm: module version unchanged at $unchanged_version\n";
+    print STDERR "$Pgm: module version unchanged at $unchanged_version\n" 
+	if $Verbose;
     return($unchanged_version);
 }
 
 sub mv_change {
     local($mv, $str) = @_;
 
-    print STDERR "$Pgm: module version changed to $mv; reason: $str\n";
+    print STDERR "$Pgm: module version changed to $mv; reason: $str\n"
+	if $Verbose;
     return($mv);
 }