Vectorise unlifted and tuple tycons

[ghc-hetmet.git] / compiler / vectorise / Vectorise.hs

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 648f0ab..0bf4f66 100644 (file)
--- 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