From d32c5227315009f38355fe3233f0f4e5b1f61dc6 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 16 Aug 2004 09:51:20 +0000 Subject: [PATCH 1/1] [project @ 2004-08-16 09:51:20 by simonpj] Commments only --- ghc/compiler/coreSyn/CoreFVs.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/coreSyn/CoreFVs.lhs b/ghc/compiler/coreSyn/CoreFVs.lhs index 9d66e50..384add2 100644 --- a/ghc/compiler/coreSyn/CoreFVs.lhs +++ b/ghc/compiler/coreSyn/CoreFVs.lhs @@ -151,7 +151,7 @@ expr_fvs (Let (Rec pairs) body) exprFreeNames finds the free *names* of an expression, notably including the names of type constructors (which of course do not show up in exprFreeVars). Similarly ruleLhsFreeNames. The latter is used -when deciding whethera rule is an orphan. In particular, suppose that +when deciding whether a rule is an orphan. In particular, suppose that T is defined in this module; we want to avoid declaring that a rule like fromIntegral T = fromIntegral_T is an orphan. Of course it isn't, an declaring it an orphan would -- 1.7.10.4