From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 9 Jan 2009 09:06:58 +0000 (+0000)
Subject: FIX BUILD on Windows (fix for #2873 broke it)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ecf0782b93019747f3801e6b077ecf1482a5fb25

FIX BUILD on Windows (fix for #2873 broke it)
---

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index 2cbbc27..8afde04 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -1151,6 +1151,9 @@ isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack)
 #if mingw32_HOST_OS || mingw32_TARGET_OS
 throwIOIO :: Exception.IOException -> IO a
 throwIOIO = Exception.throwIO
+
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+catchIO = Exception.catch
 #endif
 
 catchError :: IO a -> (String -> IO a) -> IO a