diff options
| author | simonpj@microsoft.com <unknown> | 2007-01-11 13:12:26 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-01-11 13:12:26 +0000 |
| commit | c8bee21ecc0952200e43ce353e6a660334a6f756 (patch) | |
| tree | ea23b5642b2fca054d9598ced0cdd79723ff5397 | |
| parent | b991caa149dd65f04ad4723b51571ded76bb2c76 (diff) | |
| download | haskell-c8bee21ecc0952200e43ce353e6a660334a6f756.tar.gz | |
Slightly improve -ddump-hi-diffs output
| -rw-r--r-- | compiler/iface/MkIface.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index a9b9f03d06..0d4d163ad9 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -332,7 +332,6 @@ mkIface hsc_env maybe_old_iface deliberatelyOmitted x = panic ("Deliberately omitted: " ++ x) ifFamInstTcName = ifaceTyConName . ifFamInstTyCon - ----------------------------- writeIfaceFile :: DynFlags -> ModLocation -> ModIface -> IO () writeIfaceFile dflags location new_iface @@ -539,7 +538,7 @@ addVersionInfo ver_fn (Just old_iface@(ModIface { where occ = ifName new_decl why = case lookupOccEnv eq_env occ of - Just (EqBut names) -> sep [ppr occ <> colon, ptext SLIT("Free vars (only) changed:"), + Just (EqBut names) -> sep [ppr occ <> colon, ptext SLIT("Free vars (only) changed:") <> ppr names, nest 2 (braces (fsep (map ppr (occSetElts (occs `intersectOccSet` changed_occs)))))] where occs = mkOccSet (map nameOccName (nameSetToList names)) |