From 93e2d5bd8cc76fde85420c39aff50557ac62de97 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 21 Jun 2005 10:30:41 +0000
Subject: [PATCH] [project @ 2005-06-21 10:30:41 by simonmar] we should be
 using PprTyThingInContext instead of PprTyThing here

---
 ghc/compiler/ghci/InteractiveUI.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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