summaryrefslogtreecommitdiff
path: root/Test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-03 14:20:39 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-03 14:20:39 -0400
commitbed679954ca3c6a4a456a8b1ce499447e5c71593 (patch)
treea1d4d5b977fcfdbeca257b20eb81c9c241f7473b /Test.hs
parentb02e638bf48470495279cfb52ec8d035a5e6b60e (diff)
fix reversion on repo deletion
A broken symlink would cause the mode setting to fail.
Diffstat (limited to 'Test.hs')
-rw-r--r--Test.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Test.hs b/Test.hs
index 4b590a1ce..8d2b7d3fd 100644
--- a/Test.hs
+++ b/Test.hs
@@ -1178,7 +1178,7 @@ cleanup' final dir = whenM (doesDirectoryExist dir) $ do
-- they can be deleted. Both git and git-annex use file
-- permissions to prevent deletion.
recurseDir SystemFS dir >>=
- mapM_ Utility.FileMode.allowWrite
+ mapM_ (void . tryIO . Utility.FileMode.allowWrite)
-- This sometimes fails on Windows, due to some files
-- being still opened by a subprocess.
catchIO (removeDirectoryRecursive dir) $ \e -> do