From: Bas van Dijk <v.dijk.bas@gmail.com>
Date: Thu, 3 Mar 2011 00:42:58 +0000 (+0000)
Subject: Deprecate Control.Exception.blocked in favour of getMaskingState
X-Git-Tag: ghc-darcs-git-switchover~3
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=333e764afeb1c08b239caf9510e5e18a6c81ae31

Deprecate Control.Exception.blocked in favour of getMaskingState
---

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 9fa7299..7295a2c 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -342,6 +342,7 @@ getMaskingState  = IO $ \s ->
                              1# -> MaskedUninterruptible
                              _  -> MaskedInterruptible #)
 
+{-# DEPRECATED blocked "use Control.Exception.getMaskingState instead" #-}
 -- | returns True if asynchronous exceptions are blocked in the
 -- current thread.
 blocked :: IO Bool