From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 4 Jul 2007 05:56:52 +0000 (+0000)
Subject: Vectorise unlifted and tuple tycons
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2c0188fca52f73de0d97a7f03bc42f133807126f

Vectorise unlifted and tuple tycons
---

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 648f0ab..0bf4f66 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -204,7 +204,9 @@ paArgType' ty k
 
 vectTyCon :: TyCon -> VM TyCon
 vectTyCon tc
-  | isFunTyCon tc = builtin closureTyCon
+  | isFunTyCon tc        = builtin closureTyCon
+  | isBoxedTupleTyCon tc = return tc
+  | isUnLiftedTyCon tc   = return tc
   | otherwise = do
                   r <- lookupTyCon tc
                   case r of