vectoriser: support tuple constructors up to arity 5
authorBen Lippmeier <benl@ouroborus.net>
Tue, 15 Nov 2011 07:40:37 +0000 (18:40 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Tue, 15 Nov 2011 07:40:37 +0000 (18:40 +1100)
compiler/vectorise/Vectorise/Builtins/Initialise.hs

index a3cfe2e..1d48aa3 100644 (file)
@@ -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)