X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnEnv.lhs;h=affbcc9e91ce76658356756837356a5b40602ae6;hb=2427987977bc68edacd7b552909bfdb264884b85;hp=a7fd614386278f8015b55eac107224e865dc34dd;hpb=8408f31662e0db548650b3aacff39a324cb9e296;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index a7fd614..affbcc9 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -258,6 +258,9 @@ lookupInstDeclBndr cls_name rdr_name
   | otherwise	
   = getGlobalAvails	`thenRn` \ avail_env ->
     case lookupNameEnv avail_env cls_name of
+	  -- class not in scope; don't fail as later checks will catch this,
+	  -- but just return (bogus) name. Icky.
+	Nothing -> returnRn (mkUnboundName rdr_name)
 	Just (AvailTC _ ns) -> case [n | n <- ns, nameOccName n == occ] of
 				(n:ns)-> ASSERT( null ns ) returnRn n
 				[]    -> failWithRn (mkUnboundName rdr_name)