From: simonpj <unknown>
Date: Thu, 7 Jan 1999 16:53:10 +0000 (+0000)
Subject: [project @ 1999-01-07 16:53:10 by simonpj]
X-Git-Tag: Approx_2487_patches~143
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=80f8f20224d839b29744f1dc0e0ea2c4f8194c32;p=ghc-hetmet.git

[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
--- 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}
 
 %************************************************************************