aboutsummaryrefslogtreecommitdiffstats
path: root/community/ghc/0005-buildpath-abi-stability.patch
diff options
context:
space:
mode:
Diffstat (limited to 'community/ghc/0005-buildpath-abi-stability.patch')
-rw-r--r--community/ghc/0005-buildpath-abi-stability.patch25
1 files changed, 25 insertions, 0 deletions
diff --git a/community/ghc/0005-buildpath-abi-stability.patch b/community/ghc/0005-buildpath-abi-stability.patch
new file mode 100644
index 0000000000..8add0fcd1c
--- /dev/null
+++ b/community/ghc/0005-buildpath-abi-stability.patch
@@ -0,0 +1,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