X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FName.lhs;h=fd8f2cfd4835583eadc2354ab2b6d869942bf66d;hb=87998bebdee5e97a19c52a2e33cd394cdf9c0c57;hp=2ade6553ef89d5abcd7f9ffde56e2d4ec65b0002;hpb=dd313897eb9a14bcc7b81f97e4f2292c30039efd;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 2ade655..fd8f2cf 100644
--- 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)