[commit: parallel] master: Remove the use of "lazy" in the Eval monad (0342a1b)

[Simon Marlow]

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 <marlowsd at gmail.com>
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