From b37a8d6a4364ed3e5192a2bc67f5434ce49db322 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 30 Jul 2004 08:39:51 +0000
Subject: [PATCH 1/1] [project @ 2004-07-30 08:39:51 by simonpj] Fix
 foreign-type predicate

---
 ghc/compiler/types/TyCon.lhs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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}
-- 
1.7.10.4