Repository : ssh://darcs.haskell.org//srv/darcs/packages/directory On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4f47883e29822335e1dbfea7e6c66764c0cb96ff >--------------------------------------------------------------- commit 4f47883e29822335e1dbfea7e6c66764c0cb96ff 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
