[commit: packages/directory] improve-tests, improve-tests-for-real, master, tmp: Disambiguate catch for older GHC (9393527)
git at git.haskell.org
git at git.haskell.org
Thu Mar 19 11:37:05 UTC 2015
Repository : ssh://git@git.haskell.org/directory
On branches: improve-tests,improve-tests-for-real,master,tmp
Link : http://ghc.haskell.org/trac/ghc/changeset/9393527136c2fbac675c4afd7e1f4f3266d331da/directory
>---------------------------------------------------------------
commit 9393527136c2fbac675c4afd7e1f4f3266d331da
Author: Michael Snoyman <michael at snoyman.com>
Date: Tue Feb 17 14:26:11 2015 +0200
Disambiguate catch for older GHC
>---------------------------------------------------------------
9393527136c2fbac675c4afd7e1f4f3266d331da
System/Directory.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/System/Directory.hs b/System/Directory.hs
index 29addf1..5e77f4d 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -399,7 +399,7 @@ createDirectoryIfMissing create_parents path0
#else
canIgnore <- (Posix.isDirectory `fmap` Posix.getFileStatus dir)
#endif
- `catch` ((\ _ -> return (isAlreadyExistsError e))
+ `E.catch` ((\ _ -> return (isAlreadyExistsError e))
:: IOException -> IO Bool)
unless canIgnore (throwIO e)
| otherwise -> throwIO e
More information about the ghc-commits
mailing list