From: simonpj <unknown>
Date: Mon, 16 Aug 2004 09:51:20 +0000 (+0000)
Subject: [project @ 2004-08-16 09:51:20 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1732
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d32c5227315009f38355fe3233f0f4e5b1f61dc6;p=ghc-hetmet.git

[project @ 2004-08-16 09:51:20 by simonpj]
Commments only
---

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