Repository : ssh://darcs.haskell.org//srv/darcs/packages/directory On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/03bcfde61e6c95043ff312e9544e6ad0d9dd96c9 >--------------------------------------------------------------- commit 03bcfde61e6c95043ff312e9544e6ad0d9dd96c9 Author: Simon Marlow <[email protected]> Date: Mon Jan 16 15:03:59 2012 +0000 As per discussion in #2924, filter out permission errors >--------------------------------------------------------------- tests/createDirectoryIfMissing001.hs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/tests/createDirectoryIfMissing001.hs b/tests/createDirectoryIfMissing001.hs index 6f26a39..f6d2911 100644 --- a/tests/createDirectoryIfMissing001.hs +++ b/tests/createDirectoryIfMissing001.hs @@ -46,7 +46,9 @@ main = do -- createDirectoryIfMissing is allowed to fail with isDoesNotExistError if -- another process/thread removes one of the directories during the proces -- of creating the hierarchy. -create = tryJust (guard . isDoesNotExistError) $ createDirectoryIfMissing True testdir_a +-- +-- It is also allowed to fail with permission errors (see #2924) +create = tryJust (guard . (\e -> isDoesNotExistError e || isPermissionError e)) $ createDirectoryIfMissing True testdir_a cleanup = ignore $ removeDirectoryRecursive testdir _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
