projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6b179b9
)
FIX BUILD on Windows (fix for #2873 broke it)
author
Simon Marlow
<marlowsd@gmail.com>
Fri, 9 Jan 2009 09:06:58 +0000
(09:06 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Fri, 9 Jan 2009 09:06:58 +0000
(09:06 +0000)
utils/ghc-pkg/Main.hs
patch
|
blob
|
history
diff --git
a/utils/ghc-pkg/Main.hs
b/utils/ghc-pkg/Main.hs
index
2cbbc27
..
8afde04
100644
(file)
--- 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