[commit: base] master: use seq# as the implementation of evaluate (see #5129) (8fbf420)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8fbf420e3ac53243032c3bbb85632ecc8e69c1be

>---------------------------------------------------------------

commit 8fbf420e3ac53243032c3bbb85632ecc8e69c1be
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Jun 29 11:52:30 2011 +0100

    use seq# as the implementation of evaluate (see #5129)

>---------------------------------------------------------------

 GHC/IO.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 99dc093..6cdbacc 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -469,4 +469,4 @@ a `finally` sequel =
 -- >   evaluate x = (return $! x) >>= return
 --
 evaluate :: a -> IO a
-evaluate a = IO $ \s -> let !va = a in (# s, va #) -- NB. see #2273
+evaluate a = IO $ \s -> seq# a s -- NB. see #2273, #5129