From 40183f262cd932667bc9ebaf27f75b8fc0d63b68 Mon Sep 17 00:00:00 2001 From: Debian Haskell Group Date: Sat, 26 Aug 2017 18:04:27 +0100 Subject: [PATCH] buildpath-abi-stability Forwarded to https://ghc.haskell.org/trac/ghc/ticket/10424 Gbp-Pq: Name buildpath-abi-stability.patch --- compiler/iface/MkIface.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs index aedd6460..e77cec9f 100644 --- a/compiler/iface/MkIface.hs +++ b/compiler/iface/MkIface.hs @@ -556,7 +556,7 @@ addFingerprints hsc_env mb_old_fingerprint iface0 new_decls 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 @@ addFingerprints hsc_env mb_old_fingerprint iface0 new_decls (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 -- 2.30.2