diff options
Diffstat (limited to 'compiler/GHC/Iface/Recomp.hs')
-rw-r--r-- | compiler/GHC/Iface/Recomp.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/compiler/GHC/Iface/Recomp.hs b/compiler/GHC/Iface/Recomp.hs index 0d001e94d9..73ba71240f 100644 --- a/compiler/GHC/Iface/Recomp.hs +++ b/compiler/GHC/Iface/Recomp.hs @@ -1035,9 +1035,14 @@ addFingerprints hsc_env iface0 -- See Note [Identity versus semantic module] | semantic_mod /= this_mod , not (isHoleModule semantic_mod) = global_hash_fn name - | otherwise = return (snd (lookupOccEnv local_env (getOccName name) - `orElse` pprPanic "urk! lookup local fingerprint" - (ppr name $$ ppr local_env))) + | otherwise = do + let fp = lookupOccEnv local_env (getOccName name) `orElse` + (pprTrace "urk! lookup local fingerprint" + (ppr (nameModule name) $$ ppr name $$ ppr local_env) + -- TODO: ??? + (undefined, fingerprint0) + ) + return $ snd fp -- This panic indicates that we got the dependency -- analysis wrong, because we needed a fingerprint for -- an entity that wasn't in the environment. To debug |