Repository : ssh://darcs.haskell.org//srv/darcs/nofib On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e3902142716327924710c9f5a1e2756188e9f932 >--------------------------------------------------------------- commit e3902142716327924710c9f5a1e2756188e9f932 Author: Simon Marlow <[email protected]> Date: Tue Apr 5 10:00:58 2011 +0100 reduce the parallelism depth, to avoid creating too many sparks >--------------------------------------------------------------- parallel/coins/coins.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/parallel/coins/coins.hs b/parallel/coins/coins.hs index 4d796b5..a0796ef 100644 --- a/parallel/coins/coins.hs +++ b/parallel/coins/coins.hs @@ -195,7 +195,7 @@ main = do -- sequential, append-list of results 2 -> print $ lenA $ payA arg coins1 [] -- parallel, append-list of results - 3 -> print $ lenA $ payA_par 4 arg coins1 [] + 3 -> print $ lenA $ payA_par 3 arg coins1 [] 4 -> print $ length (pay 0 arg coins []) 5 -> print $ length (pay1 0 arg coins1 (map (\(c,q) -> (c,0)) coins1)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
