From e79d44f15f7dd7b034746b702bd734792ded7f93 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 25 Jul 2005 11:10:01 +0000 Subject: [PATCH] [project @ 2005-07-25 11:10:01 by simonpj] Comments --- ghc/compiler/basicTypes/Name.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4