Remove block and unblock (deprecated since GHC 7.0)
authorIan Lynagh <ian@well-typed.com>
Tue, 19 Feb 2013 17:50:11 +0000 (17:50 +0000)
committerIan Lynagh <ian@well-typed.com>
Tue, 19 Feb 2013 17:54:55 +0000 (17:54 +0000)
libraries/base/Control/Exception.hs
libraries/base/Control/Exception/Base.hs
libraries/base/GHC/IO.hs

index 35f1e8a..7a5f8d3 100644 (file)
@@ -117,8 +117,6 @@ module Control.Exception (
 
         -- ** (deprecated) Asynchronous exception control
 
-        block,
-        unblock,
         blocked,
 
         -- *** Applying @mask@ to an exception handler
index 0f16bdd..266b74b 100644 (file)
@@ -92,8 +92,6 @@ module Control.Exception.Base (
 
         -- ** (deprecated) Asynchronous exception control
 
-        block,
-        unblock,
         blocked,
 
         -- * Assertions
@@ -241,10 +239,6 @@ throwIO e = Hugs.Exception.throwIO (toException e)
 #ifndef __GLASGOW_HASKELL__
 -- Dummy definitions for implementations lacking asynchonous exceptions
 
-block   :: IO a -> IO a
-block    = id
-unblock :: IO a -> IO a
-unblock  = id
 blocked :: IO Bool
 blocked  = return False
 #endif
index c5239a4..a073d7b 100644 (file)
@@ -37,7 +37,7 @@ module GHC.IO (
         catchException, catchAny, throwIO,
         mask, mask_, uninterruptibleMask, uninterruptibleMask_, 
         MaskingState(..), getMaskingState,
-        block, unblock, blocked, unsafeUnmask,
+        blocked, unsafeUnmask,
         onException, bracket, finally, evaluate
     ) where
 
@@ -302,9 +302,6 @@ throwIO e = IO (raiseIO# (toException e))
 -- -----------------------------------------------------------------------------
 -- Controlling asynchronous exception delivery
 
-{-# DEPRECATED block "use Control.Exception.mask instead" #-} -- deprecated in 7.0
--- | Note: this function is deprecated, please use 'mask' instead.
---
 -- Applying 'block' to a computation will
 -- execute that computation with asynchronous exceptions
 -- /blocked/.  That is, any thread which
@@ -322,9 +319,6 @@ throwIO e = IO (raiseIO# (toException e))
 block :: IO a -> IO a
 block (IO io) = IO $ maskAsyncExceptions# io
 
-{-# DEPRECATED unblock "use Control.Exception.mask instead" #-} -- deprecated in 7.0
--- | Note: this function is deprecated, please use 'mask' instead.
---
 -- To re-enable asynchronous exceptions inside the scope of
 -- 'block', 'unblock' can be
 -- used.  It scopes in exactly the same way, so on exit from