[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