2018-05-14 13:15:35 +00:00
|
|
|
Index: ghc-8.4.0.20171214/compiler/iface/MkIface.hs
|
2017-05-29 11:09:39 +00:00
|
|
|
===================================================================
|
2018-05-14 13:15:35 +00:00
|
|
|
--- ghc-8.4.0.20171214.orig/compiler/iface/MkIface.hs
|
|
|
|
+++ ghc-8.4.0.20171214/compiler/iface/MkIface.hs
|
|
|
|
@@ -689,7 +689,7 @@ addFingerprints hsc_env mb_old_fingerpri
|
2017-05-29 11:09:39 +00:00
|
|
|
iface_hash <- computeFingerprint putNameLiterally
|
|
|
|
(mod_hash,
|
|
|
|
ann_fn (mkVarOcc "module"), -- See mkIfaceAnnCache
|
|
|
|
- mi_usages iface0,
|
|
|
|
+ usages,
|
|
|
|
sorted_deps,
|
|
|
|
mi_hpc iface0)
|
|
|
|
|
2018-05-14 13:15:35 +00:00
|
|
|
@@ -724,6 +724,9 @@ addFingerprints hsc_env mb_old_fingerpri
|
2017-05-29 11:09:39 +00:00
|
|
|
(non_orph_fis, orph_fis) = mkOrphMap ifFamInstOrph (mi_fam_insts iface0)
|
|
|
|
fix_fn = mi_fix_fn iface0
|
|
|
|
ann_fn = mkIfaceAnnCache (mi_anns iface0)
|
|
|
|
+ -- Do not allow filenames to affect the interface
|
|
|
|
+ usages = [ case u of UsageFile _ fp -> UsageFile "" fp; _ -> u | u <- mi_usages iface0 ]
|
|
|
|
+
|
|
|
|
|
2017-12-21 19:35:55 +00:00
|
|
|
-- | Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
|
|
|
|
-- (in particular, the orphan modules which are transitively imported by the
|