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

we should be using PprTyThingInContext instead of PprTyThing here

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 8ef6d69..76a80b5 100644 (file)
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -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: