diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-11 10:01:02 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-18 13:23:58 +0100 |
| commit | 1042a2c3c34670496dffee4f5f89aeade2e2f284 (patch) | |
| tree | 0b8c5d8919da734c2e56b67777c6341344ea986c /libraries/base/Foreign | |
| parent | 51ea3e6246cd08f3ed013a861d684d86181e8e91 (diff) | |
| download | haskell-1042a2c3c34670496dffee4f5f89aeade2e2f284.tar.gz | |
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.
Diffstat (limited to 'libraries/base/Foreign')
| -rw-r--r-- | libraries/base/Foreign/Marshal/Unsafe.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Foreign/Marshal/Unsafe.hs b/libraries/base/Foreign/Marshal/Unsafe.hs index 1fa0e3aa59..e7d17bc78f 100644 --- a/libraries/base/Foreign/Marshal/Unsafe.hs +++ b/libraries/base/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 |