X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FIO.hs;h=7295a2cd3e7b38563ffecdab606ee82cda0fe271;hb=eb87007595377966ab5544f6e204e58a49deb3a9;hp=9fa7299dd5ec522c8c0a504a5ee3b17ad1e002ed;hpb=41e8fba828acbae1751628af50849f5352b27873;p=ghc-base.git

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