Commit e79d44f1 authored by simonpj's avatar simonpj
Browse files

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

Comments
parent 70349c32
...@@ -161,7 +161,7 @@ nameParent name = case nameParent_maybe name of ...@@ -161,7 +161,7 @@ nameParent name = case nameParent_maybe name of
isImplicitName :: Name -> Bool isImplicitName :: Name -> Bool
-- An Implicit Name is one has a parent; that is, one whose definition -- 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) isImplicitName name = isJust (nameParent_maybe name)
nameModule name = nameModule_maybe name `orElse` pprPanic "nameModule" (ppr name) nameModule name = nameModule_maybe name `orElse` pprPanic "nameModule" (ppr name)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment