X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FException.hs;h=fa067b0859a3ea6449997e78c4d1b899c7d0d361;hb=75f9f3559b9959f067c893ae3f7c89da7fd18813;hp=de7863454accd21952606b8c822cd0e83993c481;hpb=75736ff2a36d165eed7c216b3fd510d525094b79;p=ghc-hetmet.git

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