Commit 3f980457 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Tiny refactor

parent 0839a668
...@@ -353,14 +353,15 @@ mkHashFun hsc_env eps ...@@ -353,14 +353,15 @@ mkHashFun hsc_env eps
let let
mod = ASSERT2( isExternalName name, ppr name ) nameModule name mod = ASSERT2( isExternalName name, ppr name ) nameModule name
occ = nameOccName name occ = nameOccName name
iface = lookupIfaceByModule (hsc_dflags hsc_env) hpt pit mod `orElse` iface = lookupIfaceByModule dflags hpt pit mod `orElse`
pprPanic "lookupVers2" (ppr mod <+> ppr occ) pprPanic "lookupVers2" (ppr mod <+> ppr occ)
in in
snd (mi_hash_fn iface occ `orElse` snd (mi_hash_fn iface occ `orElse`
pprPanic "lookupVers1" (ppr mod <+> ppr occ)) pprPanic "lookupVers1" (ppr mod <+> ppr occ))
where where
hpt = hsc_HPT hsc_env dflags = hsc_dflags hsc_env
pit = eps_PIT eps hpt = hsc_HPT hsc_env
pit = eps_PIT eps
-- --------------------------------------------------------------------------- -- ---------------------------------------------------------------------------
-- Compute fingerprints for the interface -- Compute fingerprints for the interface
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment