diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-16 00:43:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-16 00:56:29 +0000 |
| commit | 36f2d30d5dfd01f647b09365da84dcbf592aee83 (patch) | |
| tree | 0a8370c7170642af21a47c07606b0ef58894fd46 /libraries/base/Control/Concurrent | |
| parent | 25d1eafeb41f046630f978da3655ae578c9c83b1 (diff) | |
| download | haskell-36f2d30d5dfd01f647b09365da84dcbf592aee83.tar.gz | |
Mark DEPRECATED pragmas with when they were added
Diffstat (limited to 'libraries/base/Control/Concurrent')
| -rw-r--r-- | libraries/base/Control/Concurrent/Chan.hs | 4 | ||||
| -rw-r--r-- | libraries/base/Control/Concurrent/MVar.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/Control/Concurrent/Chan.hs b/libraries/base/Control/Concurrent/Chan.hs index 5781b9f476..ca4c17cffb 100644 --- a/libraries/base/Control/Concurrent/Chan.hs +++ b/libraries/base/Control/Concurrent/Chan.hs @@ -142,7 +142,7 @@ unGetChan (Chan readVar _) val = do modifyMVar_ readVar $ \read_end -> do putMVar new_read_end (ChItem val read_end) return new_read_end -{-# DEPRECATED unGetChan "if you need this operation, use Control.Concurrent.STM.TChan instead. See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} +{-# DEPRECATED unGetChan "if you need this operation, use Control.Concurrent.STM.TChan instead. See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} -- deprecated in 7.0 -- |Returns 'True' if the supplied 'Chan' is empty. isEmptyChan :: Chan a -> IO Bool @@ -151,7 +151,7 @@ isEmptyChan (Chan readVar writeVar) = do w <- readMVar writeVar let eq = r == w eq `seq` return eq -{-# DEPRECATED isEmptyChan "if you need this operation, use Control.Concurrent.STM.TChan instead. See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} +{-# DEPRECATED isEmptyChan "if you need this operation, use Control.Concurrent.STM.TChan instead. See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} -- deprecated in 7.0 -- Operators for interfacing with functional streams. diff --git a/libraries/base/Control/Concurrent/MVar.hs b/libraries/base/Control/Concurrent/MVar.hs index 5f1b4fce6e..f941be9089 100644 --- a/libraries/base/Control/Concurrent/MVar.hs +++ b/libraries/base/Control/Concurrent/MVar.hs @@ -263,7 +263,7 @@ modifyMVarMasked m io = putMVar m a' return b -{-# DEPRECATED addMVarFinalizer "use mkWeakMVar instead" #-} +{-# DEPRECATED addMVarFinalizer "use mkWeakMVar instead" #-} -- deprecated in 7.6 addMVarFinalizer :: MVar a -> IO () -> IO () addMVarFinalizer = GHC.MVar.addMVarFinalizer |