X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fdriver%2Fghc-iface.lprl;h=f97cbd93a81313e8999957b9abb21be13331b060;hb=02b60157852c1bf3c371b47c33d83814a05153bc;hp=6d3bde17779828266315da76363348c62bdf9e0e;hpb=c7cfec6242e57cec4e4ad106a53a327f319cdc8d;p=ghc-hetmet.git

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index 6d3bde1..f97cbd9 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -271,7 +271,7 @@ sub calcNewModuleVersion {
 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";
     return($mv);
 }
 
@@ -287,13 +287,13 @@ sub printNewItemVersion {
     local($idecl) = $Decl{"new:$item"};
 
     if (! defined($Decl{"old:$item"})) {
-	print STDERR "new: $item\n";
+#print STDERR "new: $item\n";
 	print NEWHI  "$item $mod_version\n";
     } elsif ($idecl ne $Decl{"old:$item"})  {
-	print STDERR "changed: $item\n";
+#print STDERR "changed: $item\n";
 	print NEWHI  "$item $mod_version\n";
     } elsif (! defined($Version{"old:$item"}) ) {
-	print STDERR "$item: no old version?!\n" 
+#print STDERR "$item: no old version?!\n" 
     } else {
 	print NEWHI  "$item ", $Version{"old:$item"}, "\n";
     }