From: simonpj <unknown>
Date: Fri, 30 Jul 2004 08:39:51 +0000 (+0000)
Subject: [project @ 2004-07-30 08:39:51 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1770
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b37a8d6a4364ed3e5192a2bc67f5434ce49db322;hp=c2527e8dea810f1584609ad20408a38691131d28;p=ghc-hetmet.git

[project @ 2004-07-30 08:39:51 by simonpj]
Fix foreign-type predicate
---

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 072e9c3..5115beb 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -407,9 +407,8 @@ isHiBootTyCon other			          = False
 
 isForeignTyCon :: TyCon -> Bool
 -- isForeignTyCon identifies foreign-imported type constructors
--- For the moment, they are primitive but lifted, but that may change
-isForeignTyCon (PrimTyCon {isUnLifted = is_unlifted}) = not is_unlifted
-isForeignTyCon other				      = False
+isForeignTyCon (PrimTyCon {tyConExtName = Just _}) = True
+isForeignTyCon other				   = False
 \end{code}
 
 \begin{code}