From: sof <unknown>
Date: Mon, 25 Aug 1997 21:29:23 +0000 (+0000)
Subject: [project @ 1997-08-25 21:29:23 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~137
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b4d4a80e8b47237dbdbb5bbd5ceaab00306ebb77;p=ghc-hetmet.git

[project @ 1997-08-25 21:29:23 by sof]
Removed the printing of foo: unchanged msgs; fixed up printing of hi-diffs
---

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index 7f4cb66..ebd4778 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -302,13 +302,13 @@ sub printNewItemVersion {
 
     } elsif ($idecl ne $Decl{"old:$item"})  {	# Old decl differs from new decl
 	local($odecl) = $Decl{"old:$item"};
-	if ($show_hi_diffs) {print STDERR "changed: $item\nOld: $odeclNew: $idecl";}
+	if ($show_hi_diffs) {print STDERR "changed: $item\nOld: $odecl", "New: $idecl";}
 	print $hifile  "--old: ", $OldVersion{"$item"}, " $odecl" 
 			if $Keep_HiDiffs;         # show old in interface file
 	print $hifile  "$mod_version ";		  # Use module version
 
     } else {					# Identical decls, so use old version number
-	if ($show_hi_diffs) {print STDERR "$item: unchanged\n";}
+	#if ($show_hi_diffs) {print STDERR "$item: unchanged\n";}
 	print $hifile  $OldVersion{"$item"}, " ";
     }
     return;