[project @ 2003-10-13 10:41:30 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / Subst.lhs

diff --git a/ghc/compiler/coreSyn/Subst.lhs b/ghc/compiler/coreSyn/Subst.lhs
index 1994caa..2fba197 100644 (file)
--- a/ghc/compiler/coreSyn/Subst.lhs
+++ b/ghc/compiler/coreSyn/Subst.lhs
@@ -130,7 +130,7 @@ lookupInScope (InScope in_scope n) v
 uniqAway :: InScopeSet -> Var -> Var
 -- (uniqAway in_scope v) finds a unique that is not used in the
 -- in-scope set, and gives that to v.  It starts with v's current unique, of course,
--- in the hope that it won't have to change it, nad thereafter uses a combination
+-- in the hope that it won't have to change it, and thereafter uses a combination
 -- of that and the hash-code found in the in-scope set
 uniqAway (InScope set n) var
   | not (var `elemVarSet` set) = var                           -- Nothing to do