[project @ 1999-07-14 22:10:40 by simonpj]

[ghc-hetmet.git] / ghc / compiler / cprAnalysis / CprAnalyse.lhs

diff --git a/ghc/compiler/cprAnalysis/CprAnalyse.lhs b/ghc/compiler/cprAnalysis/CprAnalyse.lhs
index e99864f..7cf43ca 100644 (file)
--- a/ghc/compiler/cprAnalysis/CprAnalyse.lhs
+++ b/ghc/compiler/cprAnalysis/CprAnalyse.lhs
@@ -379,9 +379,10 @@ splitFunTysIgnoringNewTypes ty = split ty
                (args, res) = splitFunTys ty
 
 -- Is this the constructor for a product type (i.e. algebraic, single constructor) 
+-- NB: isProductTyCon replies 'False' for unboxed tuples
 isConProdType :: Con -> Bool
-isConProdType (DataCon con) = isProductTyCon tycon && not (isUnLiftedTyCon tycon)
-                             where
+isConProdType (DataCon con) = isProductTyCon tycon
+                           where
                              tycon = dataConTyCon con
 isConProdType _ = False