X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=72fb264f358b48f1579bb163ad0a5bc57de6d032;hb=30cf375e0bc79a6b71074a5e0fd2ec393241a751;hp=76fe13cdbd89d02c04f4b1aa55dec59d53d77ad4;hpb=dabfa71f33eabc5a2d10959728f772aa016f1c84;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 76fe13c..72fb264 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -45,6 +45,7 @@ import Name		( moduleNamePair, origName, RdrName(..) )
 import PprStyle		-- ToDo:rm
 import Outputable	-- ToDo:rm
 import PrelInfo		( builtinNameInfo )
+import PrelMods		( pRELUDE )
 import Pretty
 import Maybes		( MaybeErr(..) )
 import UniqFM		( emptyUFM )
@@ -759,12 +760,10 @@ rnIfaceInstStuff iface_cache modname us occ_env done_inst_env to_return
 	  = case lookupTcRnEnv occ_env nm of
 	      Just  _ -> True
 	      Nothing -> -- maybe it's builtin
-		case nm of
-		  Qual _ _ -> False
-		  Unqual n ->
-		    case (lookupFM b_tc_names n) of
+		let str_mod = case nm of { Qual m n -> (n,m); Unqual n -> (n, pRELUDE) }
+	        in case (lookupFM b_tc_names str_mod) of
 		      Just  _ -> True
-		      Nothing -> maybeToBool (lookupFM b_keys n)
+		      Nothing -> maybeToBool (lookupFM b_keys str_mod)
 
     (b_tc_names, b_keys) -- pretty UGLY ...
       = case builtinNameInfo of ((_,builtin_tcs),b_keys,_) -> (builtin_tcs,b_keys)