From 80f8f20224d839b29744f1dc0e0ea2c4f8194c32 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 7 Jan 1999 16:53:10 +0000
Subject: [PATCH] [project @ 1999-01-07 16:53:10 by simonpj] Fix
RnEnv.mkPrintUnqualFn
---
ghc/compiler/rename/RnEnv.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 2e406b86f7f2..30f5f1939cfe 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}
%************************************************************************
--
GitLab