X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FTyCon.lhs;h=5115bebf7c611a38185207c3e4c06fe01e16345c;hb=b37a8d6a4364ed3e5192a2bc67f5434ce49db322;hp=072e9c317ec47be49d89d796ea6090025bfe8ef5;hpb=c2527e8dea810f1584609ad20408a38691131d28;p=ghc-hetmet.git

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}