aboutsummaryrefslogtreecommitdiffstats
path: root/community/ghc/0005-buildpath-abi-stability.patch
blob: 8add0fcd1c99b45ce3d361b13b0e027a86746277 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Forwarded to https://ghc.haskell.org/trac/ghc/ticket/10424

Index: ghc/compiler/iface/MkIface.hs
===================================================================
--- ghc.orig/compiler/iface/MkIface.hs	2016-04-19 09:26:40.075170754 +0200
+++ ghc/compiler/iface/MkIface.hs	2016-04-19 09:26:40.071170684 +0200
@@ -556,7 +556,7 @@
    iface_hash <- computeFingerprint putNameLiterally
                       (mod_hash,
                        ann_fn (mkVarOcc "module"),  -- See mkIfaceAnnCache
-                       mi_usages iface0,
+                       usages,
                        sorted_deps,
                        mi_hpc iface0)
 
@@ -589,6 +589,9 @@
     (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 ]
+
 
 getOrphanHashes :: HscEnv -> [Module] -> IO [Fingerprint]
 getOrphanHashes hsc_env mods = do