[commit: base] master: Implement unsafeLocalState by unsafeDupablePerformIO, not (f1732ae)

[Simon Marlow]

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