Commit c8bee21e authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Slightly improve -ddump-hi-diffs output

parent b991caa1
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment