diff options
| author | simonpj <unknown> | 2005-03-16 10:46:32 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-03-16 10:46:32 +0000 |
| commit | addb084e807f081af46b70064c898e623f0ad3ab (patch) | |
| tree | 69b0c8acb47b29c820568e6d10bceaea28b84512 | |
| parent | 0e3103410ec8b93bfa89410242b55e4c066c6629 (diff) | |
| download | haskell-addb084e807f081af46b70064c898e623f0ad3ab.tar.gz | |
[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
| -rw-r--r-- | ghc/compiler/simplCore/LiberateCase.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs index a5aab26fdb..20c012d18c 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: |