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

we should be using PprTyThingInContext instead of PprTyThing here

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: