fix reversion on repo deletion

A broken symlink would cause the mode setting to fail.
2014-02-03 14:20:39 -04:00 · 2014-02-03 14:20:39 -04:00 · c91bbc9494
commit c91bbc9494
parent ec417b108d
2 changed files with 3 additions and 2 deletions
--- a/Assistant/WebApp/Configurators/Delete.hs
+++ b/Assistant/WebApp/Configurators/Delete.hs
@ -99,7 +99,8 @@ deleteCurrentRepository = dangerPage $ do
 			{- Make all directories writable and files writable
 			 - so all annexed content can be deleted. -}
 			liftIO $ do
-				recurseDir SystemFS dir >>= mapM_ allowWrite
+				recurseDir SystemFS dir
+					>>= mapM_ (void . tryIO . allowWrite)
 				removeDirectoryRecursive dir
 			
 			redirect ShutdownConfirmedR