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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
