diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 648f0ab4cc..0bf4f662eb 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 |