From 5a99b3a32d863b6cafc531a27e4c09e41e5687db Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 30 Jul 2004 08:40:11 +0000
Subject: [PATCH] [project @ 2004-07-30 08:40:11 by simonpj] Add case for
 foreign types

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

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index a3aa85f..928d14d 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.168 2004/07/21 10:07:33 simonpj Exp $
+-- $Id: InteractiveUI.hs,v 1.169 2004/07/30 08:40:11 simonpj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -500,6 +500,9 @@ showThing name (thing, fixity, src_loc)
 -- with "..." for the parts we are less interested in.
 
 showDecl :: (OccName -> Bool) -> IfaceDecl -> SDoc
+showDecl want_name (IfaceForeign {ifName = tc})
+  = ppr tc <+> ptext SLIT("is a foreign type")
+
 showDecl want_name (IfaceId {ifName = var, ifType = ty})
   = ppr var <+> dcolon <+> ppr ty 
 
-- 
1.7.10.4