From addb084e807f081af46b70064c898e623f0ad3ab Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 16 Mar 2005 10:46:32 +0000
Subject: [PATCH] [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
---
 ghc/compiler/simplCore/LiberateCase.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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: 
-- 
1.7.10.4