[commit: packages/directory] tmp: Test something using Travis (5522a30)

git at git.haskell.org git at git.haskell.org
Thu Mar 19 11:37:42 UTC 2015


Repository : ssh://git@git.haskell.org/directory

On branch  : tmp
Link       : http://ghc.haskell.org/trac/ghc/changeset/5522a30b6c126d446600524d5c8b181ebdbc06bb/directory

>---------------------------------------------------------------

commit 5522a30b6c126d446600524d5c8b181ebdbc06bb
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Wed Feb 25 07:31:53 2015 -0500

    Test something using Travis


>---------------------------------------------------------------

5522a30b6c126d446600524d5c8b181ebdbc06bb
 System/Directory.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Directory.hs b/System/Directory.hs
index 8f9b2c1..eab5e99 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -400,7 +400,7 @@ createDirectoryIfMissing create_parents path0
 #else
               canIgnore <- (Posix.isDirectory `fmap` Posix.getFileStatus dir)
 #endif
-                           `E.catch` ((\ _ -> return (isAlreadyExistsError e))
+                           `catchIOError` ((\ _ -> return (isAlreadyExistsError e))
                                     :: IOException -> IO Bool)
               unless canIgnore (throwIO e)
           | otherwise              -> throwIO e



More information about the ghc-commits mailing list