X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;fp=compiler%2Fiface%2FMkIface.lhs;h=8849b1e97d24e0923420f2b1e3b1d548b509eef6;hp=ce6f4a30ab6e8b00aed6e7d6e05e7ce5f2315584;hb=dcad0717256d926dcc3ff35e9752a2e9fba70faa;hpb=241c6ba59c89d491aa4087f754dfcbbca26163f4

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index ce6f4a3..8849b1e 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -855,7 +855,7 @@ mk_usage_info pit hsc_env this_mod direct_imports used_names
         | isWiredInName name = mv_map  -- ignore wired-in names
         | otherwise
         = case nameModule_maybe name of
-             Nothing  -> pprTrace "mkUsageInfo: internal name?" (ppr name) mv_map
+             Nothing  -> pprPanic "mkUsageInfo: internal name?" (ppr name)
              Just mod -> -- We use this fiddly lambda function rather than
                          -- (++) as the argument to extendModuleEnv_C to
                          -- avoid quadratic behaviour (trac #2680)