[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / uniType / TyCon.lhs

diff --git a/ghc/compiler/uniType/TyCon.lhs b/ghc/compiler/uniType/TyCon.lhs
index 5a5b304..814108e 100644 (file)
--- a/ghc/compiler/uniType/TyCon.lhs
+++ b/ghc/compiler/uniType/TyCon.lhs
@@ -427,12 +427,17 @@ generated locally: locally defined tycons and big tuple tycons.
 
 \begin{code}
 isLocalSpecTyCon :: Bool -> TyCon -> Bool
+isLocalGenTyCon  :: TyCon -> Bool
 
 isLocalSpecTyCon compiling_prelude tc
-  = isLocallyDefined tc || (fromPreludeCore tc && not compiling_prelude)
-
-isLocalGenTyCon (SpecTyCon tc tys) = isLocalGenTyCon tc
-isLocalGenTyCon tc                = isBigTupleTyCon tc || isLocallyDefined tc
+  = isLocallyDefined tc -- || (fromPreludeCore tc && not compiling_prelude)
+                       -- Not for now ... need to be local
+                       -- This will cause problem with splitting
+
+isLocalGenTyCon tc
+  = isLocallyDefined tc -- || isBigTupleTyCon tc
+                       -- Not for now ... need to be local
+                       -- This will cause problem with splitting
 
 isBigTupleTyCon (TupleTyCon arity) = arity > 32
                                        -- Tuple0 to Tuple32 declared in prelude