X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnNames.lhs;h=28cd29aeaf93e8216a97076b0b4686714a6c0965;hp=f7879502d7bfc9ee289bd9e6d905eb1e90034e70;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index f787950..28cd29a 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -389,7 +389,10 @@ doImportDecls iface_cache g_info us src_imps
 
     	    rec_imp_fn :: Name -> (ExportFlag, [SrcLoc])
 	    rec_imp_fn n = case lookupUFM rec_imp_fm n of
-		             Nothing            -> panic "RnNames:rec_imp_fn"
+		             Nothing            -> (NotExported,[mkBuiltinSrcLoc])
+						   -- panic "RnNames:rec_imp_fn"
+						   -- but the panic can show up
+						   -- in error messages
 		             Just (flag, locns) -> (flag, bagToList locns)
 
 	    i_info = (g_info, emptyFM, emptyFM, rec_imp_fn)