From: simonmar <unknown>
Date: Mon, 9 Aug 2004 12:15:09 +0000 (+0000)
Subject: [project @ 2004-08-09 12:15:09 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1763
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dfd0efbea12538fa8d6ce4184087d657e6f2ae34

[project @ 2004-08-09 12:15:09 by simonmar]
Put a "-- " before the location info, since the rest of the output
looks like Haskell source.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 928d14d..281faa3 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.169 2004/07/30 08:40:11 simonpj Exp $
+-- $Id: InteractiveUI.hs,v 1.170 2004/08/09 12:15:09 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -486,7 +486,7 @@ showThing :: String -> (IfaceDecl, Fixity, SrcLoc) -> SDoc
 showThing name (thing, fixity, src_loc) 
     = vcat [ showDecl (\occ -> name == occNameUserString occ) thing, 
 	     showFixity fixity,
-	     showLoc src_loc]
+	     text "-- " <> showLoc src_loc]
   where
     showFixity fix 
 	| fix == defaultFixity = empty
@@ -496,8 +496,8 @@ showThing name (thing, fixity, src_loc)
 	| isGoodSrcLoc loc = ptext SLIT("Defined at") <+> ppr loc
 	| otherwise	   = ppr loc
 
--- Now there is rather a lot of goop just to print declarations in a civilised way
--- with "..." for the parts we are less interested in.
+-- Now there is rather a lot of goop just to print declarations in a
+-- civilised way with "..." for the parts we are less interested in.
 
 showDecl :: (OccName -> Bool) -> IfaceDecl -> SDoc
 showDecl want_name (IfaceForeign {ifName = tc})