diff options
| author | simonpj <unknown> | 2005-07-25 11:10:01 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-07-25 11:10:01 +0000 |
| commit | e79d44f15f7dd7b034746b702bd734792ded7f93 (patch) | |
| tree | a99aff675d5fd19db40435ed68cbdf3e9cd67032 | |
| parent | 70349c3260ae22b3e46657150ce144f5de99d8d2 (diff) | |
| download | haskell-e79d44f15f7dd7b034746b702bd734792ded7f93.tar.gz | |
[project @ 2005-07-25 11:10:01 by simonpj]
Comments
| -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) |