[commit: base] master: Deprecate Control.Concurrent.{QSem, QSemNSampleVar} (4553fda)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4553fdaf4607928ce76bfb034f6b1273127f938c

>---------------------------------------------------------------

commit 4553fdaf4607928ce76bfb034f6b1273127f938c
Author: Ian Lynagh <igloo at earth.li>
Date:   Sat Jun 23 13:44:08 2012 +0100

    Deprecate Control.Concurrent.{QSem,QSemNSampleVar}
    
    Also Control.Concurrent.{mergeIO,nmergeIO}, which use those modules.

>---------------------------------------------------------------

 Control/Concurrent.hs           |    5 +++++
 Control/Concurrent/QSem.hs      |    1 +
 Control/Concurrent/QSemN.hs     |    1 +
 Control/Concurrent/SampleVar.hs |    1 +
 4 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 1bac565..0f3bb5d 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -6,6 +6,9 @@
            , ScopedTypeVariables
   #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-deprecations #-}
+-- kludge for the Control.Concurrent.QSem, Control.Concurrent.QSemN
+-- and Control.Concurrent.SampleVar imports.
 
 -----------------------------------------------------------------------------
 -- |
@@ -229,6 +232,8 @@ forkFinally action and_then =
 max_buff_size :: Int
 max_buff_size = 1
 
+{-# DEPRECATED mergeIO "Control.Concurrent.mergeIO will be removed in GHC 7.8. Please use an alternative, e.g. the SafeSemaphore package, instead." #-}
+{-# DEPRECATED nmergeIO "Control.Concurrent.nmergeIO will be removed in GHC 7.8. Please use an alternative, e.g. the SafeSemaphore package, instead." #-}
 mergeIO :: [a] -> [a] -> IO [a]
 nmergeIO :: [[a]] -> IO [a]
 
diff --git a/Control/Concurrent/QSem.hs b/Control/Concurrent/QSem.hs
index 5ed887d..2fd2ad6 100644
--- a/Control/Concurrent/QSem.hs
+++ b/Control/Concurrent/QSem.hs
@@ -19,6 +19,7 @@
 -----------------------------------------------------------------------------
 
 module Control.Concurrent.QSem
+        {-# DEPRECATED "Control.Concurrent.QSem will be removed in GHC 7.8. Please use an alternative, e.g. the SafeSemaphore package, instead." #-}
         ( -- * Simple Quantity Semaphores
           QSem,         -- abstract
           newQSem,      -- :: Int  -> IO QSem
diff --git a/Control/Concurrent/QSemN.hs b/Control/Concurrent/QSemN.hs
index 7e2cb2c..9126365 100644
--- a/Control/Concurrent/QSemN.hs
+++ b/Control/Concurrent/QSemN.hs
@@ -20,6 +20,7 @@
 -----------------------------------------------------------------------------
 
 module Control.Concurrent.QSemN
+        {-# DEPRECATED "Control.Concurrent.QSemN will be removed in GHC 7.8. Please use an alternative, e.g. the SafeSemaphore package, instead." #-}
         (  -- * General Quantity Semaphores
           QSemN,        -- abstract
           newQSemN,     -- :: Int   -> IO QSemN
diff --git a/Control/Concurrent/SampleVar.hs b/Control/Concurrent/SampleVar.hs
index a621193..e3852fa 100644
--- a/Control/Concurrent/SampleVar.hs
+++ b/Control/Concurrent/SampleVar.hs
@@ -19,6 +19,7 @@
 -----------------------------------------------------------------------------
 
 module Control.Concurrent.SampleVar
+        {-# DEPRECATED "Control.Concurrent.SampleVar will be removed in GHC 7.8. Please use an alternative, e.g. the SafeSemaphore package, instead." #-}
        (
          -- * Sample Variables
          SampleVar,         -- :: type _ =