From: simonpj <unknown>
Date: Wed, 16 Mar 2005 10:46:32 +0000 (+0000)
Subject: [project @ 2005-03-16 10:46:32 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~900
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=addb084e807f081af46b70064c898e623f0ad3ab;p=ghc-hetmet.git

[project @ 2005-03-16 10:46:32 by simonpj]
Localise the binder for the nested defn in LiberateCase,
to avoid name clashes between top-level names.
Discovered by Laszlo.

	Merge to STABLE
---

diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs
index a5aab26..20c012d 100644
--- a/ghc/compiler/simplCore/LiberateCase.lhs
+++ b/ghc/compiler/simplCore/LiberateCase.lhs
@@ -191,7 +191,7 @@ libCaseBind env (Rec pairs)
 	-- processing the rhs with an *un-extended* environment, so
 	-- that the same process doesn't occur for ever!
 	--
-    extended_env = addRecBinds env [ (setIdNotExported binder, libCase env_body rhs)
+    extended_env = addRecBinds env [ (adjust binder, libCase env_body rhs)
 				   | (binder, rhs) <- pairs ]
 
 	-- Two subtle things: