From: simonpj <unknown>
Date: Mon, 29 Jul 2002 16:08:20 +0000 (+0000)
Subject: [project @ 2002-07-29 16:08:20 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1791
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae54d9e7b2405566802f71e7e3e30c55764659fc;p=ghc-hetmet.git

[project @ 2002-07-29 16:08:20 by simonpj]
Comment only
---

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index 7e50e9c..4443774 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -169,6 +169,7 @@ tidyIdBndr env@(tidy_env, var_env) id
 	-- 
 	-- All nested Ids now have the same IdInfo, namely none,
 	-- which should save some space.
+	-- But note that tidyLetBndr puts some of it back.
         ty'          	  = tidyType env (idType id)
 	id'          	  = mkUserLocal occ' (idUnique id) ty' noSrcLoc
 	var_env'	  = extendVarEnv var_env id id'