[project @ 2005-07-25 11:10:01 by simonpj]

Comments

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 2ade655..fd8f2cf 100644 (file)
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -161,7 +161,7 @@ nameParent name = case nameParent_maybe name of
 
 isImplicitName :: Name -> Bool
 -- An Implicit Name is one has a parent; that is, one whose definition
--- derives from tehe paren thing
+-- derives from the parent thing
 isImplicitName name = isJust (nameParent_maybe name)
 
 nameModule name = nameModule_maybe name `orElse` pprPanic "nameModule" (ppr name)