From 966ad019456f8a5f3aac409f75997a1c694a3a7b Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 7 Dec 2000 09:21:25 +0000
Subject: [PATCH] [project @ 2000-12-07 09:21:25 by simonpj] Improve iface
 diffs messages

---
 ghc/compiler/main/MkIface.lhs |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4