Commit 93e2d5bd authored by simonmar's avatar simonmar
Browse files

[project @ 2005-06-21 10:30:41 by simonmar]

we should be using PprTyThingInContext instead of PprTyThing here
parent daac527a
......@@ -547,7 +547,7 @@ filterOutChildren names = filter (not . parent_is_there) names
| otherwise = False
pprInfo exts (thing, fixity, insts)
= pprTyThingLoc exts thing
= pprTyThingInContextLoc exts thing
$$ show_fixity fixity
$$ vcat (map GHC.pprInstance insts)
where
......@@ -890,7 +890,7 @@ browseModule m exports_only = do
dflags <- getDynFlags
let exts = dopt Opt_GlasgowExts dflags
io (putStrLn (showSDocForUser unqual (
vcat (map (pprTyThing exts) (catMaybes things))
vcat (map (pprTyThingInContext exts) (catMaybes things))
)))
-- ToDo: modInfoInstances currently throws an exception for
-- package modules. When it works, we can do this:
......
Markdown is supported
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