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