Blame buildpath-abi-stability.patch
|
 |
f50ec37 |
Forwarded to https://ghc.haskell.org/trac/ghc/ticket/10424
|
|
|
f50ec37 |
|
|
|
2cf80b1 |
Index: b/compiler/GHC/Iface/Recomp.hs
|
|
|
a1a8a89 |
===================================================================
|
|
|
2cf80b1 |
--- a/compiler/GHC/Iface/Recomp.hs
|
|
|
2cf80b1 |
+++ b/compiler/GHC/Iface/Recomp.hs
|
|
|
2cf80b1 |
@@ -1071,7 +1071,7 @@ addFingerprints hsc_env iface0
|
|
|
f50ec37 |
iface_hash <- computeFingerprint putNameLiterally
|
|
|
f50ec37 |
(mod_hash,
|
|
|
f50ec37 |
ann_fn (mkVarOcc "module"), -- See mkIfaceAnnCache
|
|
|
f50ec37 |
- mi_usages iface0,
|
|
|
f50ec37 |
+ usages,
|
|
|
f50ec37 |
sorted_deps,
|
|
|
f50ec37 |
mi_hpc iface0)
|
|
|
f50ec37 |
|
|
|
2cf80b1 |
@@ -1106,6 +1106,8 @@ addFingerprints hsc_env iface0
|
|
|
a1a8a89 |
(non_orph_rules, orph_rules) = mkOrphMap ifRuleOrph (mi_rules iface0)
|
|
|
f50ec37 |
(non_orph_fis, orph_fis) = mkOrphMap ifFamInstOrph (mi_fam_insts iface0)
|
|
|
f50ec37 |
ann_fn = mkIfaceAnnCache (mi_anns iface0)
|
|
|
f50ec37 |
+ -- Do not allow filenames to affect the interface
|
|
|
f50ec37 |
+ usages = [ case u of UsageFile _ fp -> UsageFile "" fp; _ -> u | u <- mi_usages iface0 ]
|
|
|
f50ec37 |
|
|
|
65eec31 |
-- | Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
|
|
|
65eec31 |
-- (in particular, the orphan modules which are transitively imported by the
|