Commit e79d44f1 authored by simonpj's avatar simonpj
Browse files

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

parent 70349c32
......@@ -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)
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