Repository : ssh://darcs.haskell.org//srv/darcs/packages/parallel On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0342a1b65f4bd5fd89d890030462d3c89f5554af >--------------------------------------------------------------- commit 0342a1b65f4bd5fd89d890030462d3c89f5554af Author: Simon Marlow <[email protected]> Date: Fri Oct 7 14:33:39 2011 +0100 Remove the use of "lazy" in the Eval monad It wasn't doing anything useful (that I could see), and it wasn't being removed by GHC either for tedious reasons because it was around a function, so it was slowing things down. This makes a tiny improvements to the benchmarks. >--------------------------------------------------------------- Control/Parallel/Strategies.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Control/Parallel/Strategies.hs b/Control/Parallel/Strategies.hs index 3fc6aea..fa15111 100644 --- a/Control/Parallel/Strategies.hs +++ b/Control/Parallel/Strategies.hs @@ -202,7 +202,7 @@ runEval (Eval x) = case x realWorld# of (# _, a #) -> a instance Monad Eval where return x = Eval $ \s -> (# s, x #) Eval x >>= k = Eval $ \s -> case x s of - (# s', a #) -> case lazy (k a) of + (# s', a #) -> case k a of Eval f -> f s' #else _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
