From ecf0782b93019747f3801e6b077ecf1482a5fb25 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 9 Jan 2009 09:06:58 +0000 Subject: [PATCH] FIX BUILD on Windows (fix for #2873 broke it) --- utils/ghc-pkg/Main.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- 1.7.10.4