From: simonpj <unknown>
Date: Thu, 30 Nov 2000 15:44:09 +0000 (+0000)
Subject: [project @ 2000-11-30 15:44:09 by simonpj]
X-Git-Tag: Approximately_9120_patches~3220
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6561827cdcc0c4b2d13c68b87e60d2783eeb56f6;p=ghc-hetmet.git

[project @ 2000-11-30 15:44:09 by simonpj]
Tidy export list
---

diff --git a/ghc/compiler/coreSyn/CoreFVs.lhs b/ghc/compiler/coreSyn/CoreFVs.lhs
index f0da707..49d6b39 100644
--- a/ghc/compiler/coreSyn/CoreFVs.lhs
+++ b/ghc/compiler/coreSyn/CoreFVs.lhs
@@ -7,12 +7,18 @@ Taken quite directly from the Peyton Jones/Lester paper.
 module CoreFVs (
 	isLocalVar, mustHaveLocalBinding,
 
-	exprFreeVars, exprsFreeVars,
+	exprFreeVars,	-- CoreExpr -> VarSet	-- Find all locally-defined free Ids or tyvars
+	exprsFreeVars,	-- [CoreExpr] -> VarSet
+
 	exprSomeFreeVars, exprsSomeFreeVars,
+
 	idRuleVars, idFreeVars, idFreeTyVars,
 	ruleSomeFreeVars, ruleSomeLhsFreeVars, ruleRhsFreeVars,
 
-	CoreExprWithFVs, CoreBindWithFVs, freeVars, freeVarsOf,
+	CoreExprWithFVs,	-- = AnnExpr Id VarSet
+	CoreBindWithFVs,	-- = AnnBind Id VarSet
+	freeVars,		-- CoreExpr -> CoreExprWithFVs
+	freeVarsOf		-- CoreExprWithFVs -> IdSet
     ) where
 
 #include "HsVersions.h"