From: Simon Marlow <marlowsd@gmail.com>
Date: Sat, 2 Oct 2010 19:51:18 +0000 (+0000)
Subject: remove unnecessary/broken definition of mask_
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5a185e27def3ee8ace1704235eb277bc60c38618

remove unnecessary/broken definition of mask_
---

diff --git a/compiler/utils/Exception.hs b/compiler/utils/Exception.hs
index de78634..fa067b0 100644
--- a/compiler/utils/Exception.hs
+++ b/compiler/utils/Exception.hs
@@ -10,11 +10,6 @@ import Prelude hiding (catch)
 
 import Control.Exception
 
-#if __GLASGOW_HASKELL__ < 613
-mask_ :: ((IO a -> IO a) -> IO b) -> IO b
-mask_ f = block (f unblock)
-#endif
-
 catchIO :: IO a -> (IOException -> IO a) -> IO a
 catchIO = catch