diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-01-09 09:06:58 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-01-09 09:06:58 +0000 |
| commit | ecf0782b93019747f3801e6b077ecf1482a5fb25 (patch) | |
| tree | 1a53519a76a9833cbfd09421c1650e9fea979526 /utils | |
| parent | 6b179b9985002f5a9515c85e841d79e0e569239f (diff) | |
| download | haskell-ecf0782b93019747f3801e6b077ecf1482a5fb25.tar.gz | |
FIX BUILD on Windows (fix for #2873 broke it)
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 2cbbc27d0b..8afde04e75 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 |