From: simonpj <unknown>
Date: Thu, 7 Dec 2000 09:21:25 +0000 (+0000)
Subject: [project @ 2000-12-07 09:21:25 by simonpj]
X-Git-Tag: Approximately_9120_patches~3178
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=966ad019456f8a5f3aac409f75997a1c694a3a7b;p=ghc-hetmet.git

[project @ 2000-12-07 09:21:25 by simonpj]
Improve iface diffs messages
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 406344a..693316f 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -430,7 +430,7 @@ addVersionInfo (Just old_iface@(ModIface { mi_version = old_version,
 
   | otherwise		-- Add updated version numbers
   = --pprTrace "completeIface" (ppr (dcl_tycl old_decls))
-    (final_iface, Just pp_tc_diffs)
+    (final_iface, Just pp_diffs)
 	
   where
     final_iface = new_iface { mi_version = new_version }
@@ -451,8 +451,12 @@ addVersionInfo (Just old_iface@(ModIface { mi_version = old_version,
     old_vers_decls = vers_decls old_version
     (no_tc_change,  pp_tc_diffs,  tc_vers) = diffDecls old_vers_decls old_fixities new_fixities
 						       (dcl_tycl old_decls) (dcl_tycl new_decls)
-
-
+    pp_diffs = vcat [pp_tc_diffs,
+		     pp_change no_export_change "Export list",
+		     pp_change no_rule_change   "Rules",
+		     pp_change no_usage_change  "Usages"]
+    pp_change True  what = empty
+    pp_change False what = text what <+> ptext SLIT("changed")
 
 diffDecls :: NameEnv Version				-- Old version map
 	  -> NameEnv Fixity -> NameEnv Fixity		-- Old and new fixities