buildpath-abi-stability.patch 1.1 KB
Newer Older
1 2
Forwarded to https://ghc.haskell.org/trac/ghc/ticket/10424

3
Index: b/compiler/iface/MkIface.hs
4
===================================================================
5 6 7
--- a/compiler/iface/MkIface.hs
+++ b/compiler/iface/MkIface.hs
@@ -689,7 +689,7 @@ addFingerprints hsc_env mb_old_fingerpri
8 9 10 11 12 13 14 15
    iface_hash <- computeFingerprint putNameLiterally
                       (mod_hash,
                        ann_fn (mkVarOcc "module"),  -- See mkIfaceAnnCache
-                       mi_usages iface0,
+                       usages,
                        sorted_deps,
                        mi_hpc iface0)
 
16
@@ -724,6 +724,9 @@ addFingerprints hsc_env mb_old_fingerpri
17 18 19 20 21 22 23
     (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 ]
+
 
Clint Adams's avatar
Clint Adams committed
24 25
 -- | Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
 -- (in particular, the orphan modules which are transitively imported by the