From e236b290b2ac0fdcea1f650e35294d86330a575e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 2 Dec 1999 13:30:01 +0000
Subject: [PATCH] [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
---
 ghc/driver/ghc-iface.lprl |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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);
 }
 
-- 
1.7.10.4