From c137d2829415beb3daac2878d4e2d3008f13efc8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 15 Aug 2001 15:39:59 +0000
Subject: [PATCH 1/1] [project @ 2001-08-15 15:39:59 by simonmar] Identify
 record selectors in :info.  Sadly there doesn't seem to
 be an easy way to identify class methods.

---
 ghc/compiler/ghci/InteractiveUI.hs |   14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 9d6f6a1..a2225ff 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.87 2001/08/15 14:41:49 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.88 2001/08/15 15:39:59 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -25,7 +25,7 @@ import DriverUtil
 import Linker
 import Finder		( flushPackageCache )
 import Util
-import Id		( isDataConWrapId, idName )
+import Id		( isRecordSelector, isDataConWrapId, idName )
 import Class		( className )
 import TyCon		( tyConName )
 import SrcLoc		( isGoodSrcLoc )
@@ -399,10 +399,12 @@ info s = do
     showTyThing (ATyCon ty)
        = hcat [ppr ty, text " is a type constructor", showSrcLoc (tyConName ty)]
     showTyThing (AnId   id)
-       | isDataConWrapId id 
-       = hcat [ppr id, text " is a data constructor", showSrcLoc (idName id)]
-       | otherwise
-       = hcat [ppr id, text " is a variable", showSrcLoc (idName id)]
+       = hcat [ppr id, text " is a ", text (idDescr id), showSrcLoc (idName id)]
+
+    idDescr id
+       | isRecordSelector id  = "record selector"
+       | isDataConWrapId id   = "data constructor"
+       | otherwise            = "variable"
 
 	-- also print out the source location for home things
     showSrcLoc name
-- 
1.7.10.4