1 Forwarded to https://ghc.haskell.org/trac/ghc/ticket/10424
3 Index: ghc-8.8.1+dfsg1/compiler/iface/MkIface.hs
4 ===================================================================
5 --- ghc-8.8.1+dfsg1.orig/compiler/iface/MkIface.hs
6 +++ ghc-8.8.1+dfsg1/compiler/iface/MkIface.hs
8 iface_hash <- computeFingerprint putNameLiterally
10 ann_fn (mkVarOcc "module"), -- See mkIfaceAnnCache
17 (non_orph_rules, orph_rules) = mkOrphMap ifRuleOrph (mi_rules iface0)
18 (non_orph_fis, orph_fis) = mkOrphMap ifFamInstOrph (mi_fam_insts iface0)
19 ann_fn = mkIfaceAnnCache (mi_anns iface0)
20 + -- Do not allow filenames to affect the interface
21 + usages = [ case u of UsageFile _ fp -> UsageFile "" fp; _ -> u | u <- mi_usages iface0 ]
24 -- | Retrieve the orphan hashes 'mi_orphan_hash' for a list of modules
25 -- (in particular, the orphan modules which are transitively imported by the