X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnNames.lhs;h=6a82c56ac6bb93a5f6be648e122b831ec6730892;hb=dd313897eb9a14bcc7b81f97e4f2292c30039efd;hp=241863a8cb24b2f9af952551195aee6ed95b9e91;hpb=89d6434a7ddb499c5b09eb3c70437782b0dcd501;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 241863a..6a82c56 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -606,6 +606,7 @@ filterAvail (IEThingWith _ rdrs) n subs
   where
     env = mkOccEnv [(nameOccName s, s) | s <- subNames subs n]
     mb_names = map (lookupOccEnv env . rdrNameOcc) rdrs
+filterAvail (IEModuleContents _) _ _ = panic "filterAvail"
 
 subNames :: NameEnv [Name] -> Name -> [Name]
 subNames env n = lookupNameEnv env n `orElse` []
@@ -874,6 +875,8 @@ warnDuplicateImports gres
     warn (GRE { gre_name = name, gre_prov = Imported imps _ })
 	= addWarn ((quotes (ppr name) <+> ptext SLIT("is imported more than once:")) 
 	       $$ nest 2 (vcat (map ppr imps)))
+    warn gre = panic "warnDuplicateImports"
+	-- The GREs should all have Imported provenance
 			      
 
 -- ToDo: deal with original imports with 'qualified' and 'as M' clauses