Skip to content

GitLab

Commit 5a185e27 authored by Simon Marlow's avatar Simon Marlow
Browse files

remove unnecessary/broken definition of mask_

parent 4da6b466
Hide whitespace changes
Inline Side-by-side
compiler/utils/Exception.hs
View file @ 5a185e27
...@@ -10,11 +10,6 @@ import Prelude hiding (catch) ...@@ -10,11 +10,6 @@ import Prelude hiding (catch)
import Control.Exception 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 :: IO a -> (IOException -> IO a) -> IO a
catchIO = catch catchIO = catch
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment