mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-24 11:45:18 +03:00
25 lines
1 KiB
Diff
25 lines
1 KiB
Diff
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
|