Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f1732ae138879529ed1f6ff55bdc8492214e4e5f >--------------------------------------------------------------- commit f1732ae138879529ed1f6ff55bdc8492214e4e5f Author: Simon Marlow <[email protected]> Date: Mon Jul 11 10:01:02 2011 +0100 Implement unsafeLocalState by unsafeDupablePerformIO, not unsafePerformIO. The latter is more efficient, and will work correctly for clients that are using unsafeLocalState for its documented uses. >--------------------------------------------------------------- Foreign/Marshal/Unsafe.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Foreign/Marshal/Unsafe.hs b/Foreign/Marshal/Unsafe.hs index 1fa0e3a..e7d17bc 100644 --- a/Foreign/Marshal/Unsafe.hs +++ b/Foreign/Marshal/Unsafe.hs @@ -45,5 +45,5 @@ It is expected that this operation will be replaced in a future revision of Haskell. -} unsafeLocalState :: IO a -> a -unsafeLocalState = unsafePerformIO +unsafeLocalState = unsafeDupablePerformIO _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
