diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-08 21:09:33 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-10 19:41:07 +0200 |
| commit | 9b1ebba2af060fef90dcd722313d3f8041ec5a97 (patch) | |
| tree | cea0c5bf5971230ac13ebc0cb5777f03bb9de118 /libraries/base/Data | |
| parent | 2d06a9f19d5b3ab8c3ff0b24f508c15bedae99d2 (diff) | |
| download | haskell-9b1ebba2af060fef90dcd722313d3f8041ec5a97.tar.gz | |
Delete the WayPar way
Also remove 't' and 's' from ALL_WAYS; they don't exist.
Differential Revision: https://phabricator.haskell.org/D1055
Diffstat (limited to 'libraries/base/Data')
| -rw-r--r-- | libraries/base/Data/IORef.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/libraries/base/Data/IORef.hs b/libraries/base/Data/IORef.hs index ff6a8e62d6..c2bc1f7318 100644 --- a/libraries/base/Data/IORef.hs +++ b/libraries/base/Data/IORef.hs @@ -1,5 +1,5 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, UnboxedTuples #-} +{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-} ----------------------------------------------------------------------------- -- | @@ -27,10 +27,7 @@ module Data.IORef atomicModifyIORef, atomicModifyIORef', atomicWriteIORef, - -#if !defined(__PARALLEL_HASKELL__) mkWeakIORef, -#endif -- ** Memory Model -- $memmodel @@ -41,17 +38,13 @@ import GHC.Base import GHC.STRef import GHC.IORef hiding (atomicModifyIORef) import qualified GHC.IORef -#if !defined(__PARALLEL_HASKELL__) import GHC.Weak -#endif -#if !defined(__PARALLEL_HASKELL__) -- |Make a 'Weak' pointer to an 'IORef', using the second argument as a finalizer -- to run when 'IORef' is garbage-collected mkWeakIORef :: IORef a -> IO () -> IO (Weak (IORef a)) mkWeakIORef r@(IORef (STRef r#)) f = IO $ \s -> case mkWeak# r# r f s of (# s1, w #) -> (# s1, Weak w #) -#endif -- |Mutate the contents of an 'IORef'. -- |