diff options
author | Joey Hess <joey@kitenet.net> | 2014-02-03 14:20:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-02-03 14:20:39 -0400 |
commit | bed679954ca3c6a4a456a8b1ce499447e5c71593 (patch) | |
tree | a1d4d5b977fcfdbeca257b20eb81c9c241f7473b /Test.hs | |
parent | b02e638bf48470495279cfb52ec8d035a5e6b60e (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.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |