diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-04 05:56:52 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-04 05:56:52 +0000 |
| commit | 2c0188fca52f73de0d97a7f03bc42f133807126f (patch) | |
| tree | 87a35b5792c36f923afa7ee51d70081d3d63228d | |
| parent | bdd99c8989d84373439b667e1ef26c471f78de84 (diff) | |
| download | haskell-2c0188fca52f73de0d97a7f03bc42f133807126f.tar.gz | |
Vectorise unlifted and tuple tycons
| -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 |