Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a589d9d07d82466be5b7d85198a3be4fdcc6f757 >--------------------------------------------------------------- commit a589d9d07d82466be5b7d85198a3be4fdcc6f757 Author: Ben Lippmeier <[email protected]> Date: Tue Nov 15 18:40:37 2011 +1100 vectoriser: support tuple constructors up to arity 5 >--------------------------------------------------------------- .../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 a3cfe2e..1d48aa3 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) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
