diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2011-11-15 18:40:37 +1100 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2011-11-15 18:40:37 +1100 |
| commit | a589d9d07d82466be5b7d85198a3be4fdcc6f757 (patch) | |
| tree | ea4b087fe9dd2c9d3a14486023b0e31d20b909b6 | |
| parent | 87748ac346e9e68900b55bf2f84176557c601717 (diff) | |
| download | haskell-a589d9d07d82466be5b7d85198a3be4fdcc6f757.tar.gz | |
vectoriser: support tuple constructors up to arity 5
| -rw-r--r-- | compiler/vectorise/Vectorise/Builtins/Initialise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Builtins/Initialise.hs b/compiler/vectorise/Vectorise/Builtins/Initialise.hs index a3cfe2e679..1d48aa369b 100644 --- a/compiler/vectorise/Vectorise/Builtins/Initialise.hs +++ b/compiler/vectorise/Vectorise/Builtins/Initialise.hs @@ -186,7 +186,7 @@ initBuiltinVars (Builtins { }) preludeDataCons :: [(DataCon, FastString)] preludeDataCons - = [mk_tup n (mkFastString $ "tup" ++ show n) | n <- [2..3]] + = [mk_tup n (mkFastString $ "tup" ++ show n) | n <- [2..5]] where mk_tup n name = (tupleCon BoxedTuple n, name) |