diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-04 15:27:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-04 15:27:39 +0000 |
| commit | c7c9db4c5e82c403668a4d1801b41f13ded344b0 (patch) | |
| tree | 07169a3d1f167d6d25bd2ab3f2b4f4b70e8b3289 /libraries/base/Foreign.hs | |
| parent | f2067ca807f2767b73a7eeb5c3627bafd644eaa6 (diff) | |
| download | haskell-c7c9db4c5e82c403668a4d1801b41f13ded344b0.tar.gz | |
use MVar to define fixIO, for thread-safety (see #5421)
Diffstat (limited to 'libraries/base/Foreign.hs')
| -rw-r--r-- | libraries/base/Foreign.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/Foreign.hs b/libraries/base/Foreign.hs index fc32835d56..caad10442e 100644 --- a/libraries/base/Foreign.hs +++ b/libraries/base/Foreign.hs @@ -45,11 +45,11 @@ import Foreign.Storable import Foreign.Marshal import GHC.IO (IO) -import qualified System.IO.Unsafe (unsafePerformIO) +import qualified GHC.IO (unsafePerformIO) {-# DEPRECATED unsafePerformIO "Use System.IO.Unsafe.unsafePerformIO instead; This function will be removed in the next release" #-} {-# INLINE unsafePerformIO #-} unsafePerformIO :: IO a -> a -unsafePerformIO = System.IO.Unsafe.unsafePerformIO +unsafePerformIO = GHC.IO.unsafePerformIO |