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

Fix RnEnv.mkPrintUnqualFn

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 2e406b8..30f5f19 100644 (file)
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/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}
 
 %************************************************************************