diff options
| -rw-r--r-- | ghc/compiler/basicTypes/Name.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs index 2ade6553ef..fd8f2cfd48 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) |