From bed679954ca3c6a4a456a8b1ce499447e5c71593 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 3 Feb 2014 14:20:39 -0400
Subject: fix reversion on repo deletion

A broken symlink would cause the mode setting to fail.
---
 Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3