[packages/ghc.git] / buildpath-abi-stability.patch

--- ghc-9.6.1/compiler/GHC/Iface/Recomp.hs.orig	2023-03-11 06:42:58.000000000 +0100
+++ ghc-9.6.1/compiler/GHC/Iface/Recomp.hs	2023-05-05 13:27:59.428102369 +0200
@@ -1247,7 +1247,7 @@
    iface_hash <- computeFingerprint putNameLiterally
                       (mod_hash,
                        ann_fn (mkVarOcc "module"),  -- See mkIfaceAnnCache
-                       mi_usages iface0,
+                       usages,
                        sorted_deps,
                        mi_hpc iface0)
 
@@ -1282,6 +1282,9 @@
     (non_orph_rules, orph_rules) = mkOrphMap ifRuleOrph    (mi_rules iface0)
     (non_orph_fis,   orph_fis)   = mkOrphMap ifFamInstOrph (mi_fam_insts 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 ]
+
 
 -- | Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
 -- (in particular, the orphan modules which are transitively imported by the
Commit	Line	Data
7238816e JP	1	--- ghc-9.6.1/compiler/GHC/Iface/Recomp.hs.orig 2023-03-11 06:42:58.000000000 +0100
	2	+++ ghc-9.6.1/compiler/GHC/Iface/Recomp.hs 2023-05-05 13:27:59.428102369 +0200
	3	@@ -1247,7 +1247,7 @@
b5cb5a55 AM	4	iface_hash <- computeFingerprint putNameLiterally
	5	(mod_hash,
	6	ann_fn (mkVarOcc "module"), -- See mkIfaceAnnCache
	7	- mi_usages iface0,
	8	+ usages,
	9	sorted_deps,
	10	mi_hpc iface0)
	11
7238816e	12	@@ -1282,6 +1282,9 @@
ba30ea44	13	(non_orph_rules, orph_rules) = mkOrphMap ifRuleOrph (mi_rules iface0)
b5cb5a55	14	(non_orph_fis, orph_fis) = mkOrphMap ifFamInstOrph (mi_fam_insts iface0)
b5cb5a55 AM	15	ann_fn = mkIfaceAnnCache (mi_anns iface0)
	16	+ -- Do not allow filenames to affect the interface
	17	+ usages = [ case u of UsageFile _ fp -> UsageFile "" fp; _ -> u \| u <- mi_usages iface0 ]
	18	+
	19
	20	-- \| Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
	21	-- (in particular, the orphan modules which are transitively imported by the