From 5a185e27def3ee8ace1704235eb277bc60c38618 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Sat, 2 Oct 2010 19:51:18 +0000 Subject: [PATCH] remove unnecessary/broken definition of mask_ --- compiler/utils/Exception.hs | 5 ----- 1 file changed, 5 deletions(-) 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 -- 1.7.10.4