From: simonmar <unknown>
Date: Tue, 12 Jul 2005 13:01:44 +0000 (+0000)
Subject: [project @ 2005-07-12 13:01:44 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~366
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=995e2f4ee4673034f46ed46c0be48ff281b30dea;p=ghc-hetmet.git

[project @ 2005-07-12 13:01:44 by simonmar]
handle PrimTyCons in pprTyConHdr (fixes :i GHC.Base.Int# in GHCi)
---

diff --git a/ghc/compiler/main/PprTyThing.hs b/ghc/compiler/main/PprTyThing.hs
index 09b7af6..ecf6947 100644
--- a/ghc/compiler/main/PprTyThing.hs
+++ b/ghc/compiler/main/PprTyThing.hs
@@ -67,8 +67,9 @@ pprTyThingHdr exts (AClass cls)       = pprClassHdr   exts cls
 pprTyConHdr exts tyCon =
   ptext keyword <+> ppr_bndr tyCon <+> hsep (map ppr vars)
   where
-    vars = GHC.tyConTyVars tyCon
-    
+    vars | GHC.isPrimTyCon tyCon = take (GHC.tyConArity tyCon) GHC.alphaTyVars
+	 | otherwise = GHC.tyConTyVars tyCon
+
     keyword | GHC.isSynTyCon tyCon = SLIT("type")
             | GHC.isNewTyCon tyCon = SLIT("newtype")
             | otherwise            = SLIT("data")