diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-08 15:30:30 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-08 15:30:45 +0200 |
| commit | 3d5f8e7493c40da855518f7b602760ed6fc0c234 (patch) | |
| tree | 436b8206621a9ec2a2ee5057f1ffa84d7244319c /utils/ghc-pkg | |
| parent | d71b65f53a1daa2631d2c818c7ea6add77813532 (diff) | |
| download | haskell-3d5f8e7493c40da855518f7b602760ed6fc0c234.tar.gz | |
Unbreak Windows build: delete unusud throwIOIO
Should have been part of 9aa0e4b23d074af44363236fb0f120f07c6e0067.
Diffstat (limited to 'utils/ghc-pkg')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 61330177d9..1d80e97a5f 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1977,11 +1977,6 @@ installSignalHandlers = do return () #endif -#if mingw32_HOST_OS || mingw32_TARGET_OS -throwIOIO :: Exception.IOException -> IO a -throwIOIO = Exception.throwIO -#endif - catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a catchIO = Exception.catch |