From: simonmar <unknown>
Date: Tue, 21 Jun 2005 10:30:41 +0000 (+0000)
Subject: [project @ 2005-06-21 10:30:41 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~419
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=93e2d5bd8cc76fde85420c39aff50557ac62de97;p=ghc-hetmet.git

[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
--- 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: