diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2013-06-14 14:19:58 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2013-07-09 13:52:50 -0700 |
| commit | 9cf8e5701ea412a33210f246408c3f0eb4b30d2b (patch) | |
| tree | ff4a72b84a1fcc61248eef9dfb46377365cd39ea /libraries/base/Control/Concurrent | |
| parent | d3fbf77f160b30b4b94df485b9a3f4220d57c698 (diff) | |
| download | haskell-9cf8e5701ea412a33210f246408c3f0eb4b30d2b.tar.gz | |
Add atomicReadMVar to Control.Concurrent.MVar and friends.
Also renumber thread statuses as necessary.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'libraries/base/Control/Concurrent')
| -rw-r--r-- | libraries/base/Control/Concurrent/MVar.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libraries/base/Control/Concurrent/MVar.hs b/libraries/base/Control/Concurrent/MVar.hs index 75dc74aaf6..1bccc1e47d 100644 --- a/libraries/base/Control/Concurrent/MVar.hs +++ b/libraries/base/Control/Concurrent/MVar.hs @@ -142,6 +142,7 @@ module Control.Concurrent.MVar , modifyMVarMasked_ , modifyMVarMasked #ifndef __HUGS__ + , atomicReadMVar , mkWeakMVar , addMVarFinalizer #endif @@ -155,7 +156,7 @@ import Hugs.ConcBase ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar, #ifdef __GLASGOW_HASKELL__ import GHC.MVar ( MVar(..), newEmptyMVar, newMVar, takeMVar, putMVar, - tryTakeMVar, tryPutMVar, isEmptyMVar + tryTakeMVar, tryPutMVar, isEmptyMVar, atomicReadMVar ) import qualified GHC.MVar import GHC.Weak |