[project @ 1999-01-07 16:53:10 by simonpj]

Fix RnEnv.mkPrintUnqualFn

ghc/compiler/rename/RnEnv.lhs

@@ -438,7 +438,7 @@ mkPrintUnqualFn env
   where
     lookup name = case lookupRdrEnv env (Unqual (nameOccName name)) of
 			   Just [name'] -> name == name'
-			   Nothing      -> False
+			   other        -> False
 \end{code}
 
 %************************************************************************