mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: Fix deletion of current repository directory.

Browse source 
removeDirectoryRecursive "." fails; need full path.

I think this is a reversion introduced in the relative path conversion, in
january of *last* year!
This commit is contained in:
Joey Hess 2016-01-29 14:04:39 -04:00
parent 5e4ddd32a0
commit ef4b4c3856
Failed to extract signature
4 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators/Delete.hs
View file

@ -104,7 +104,7 @@ deleteCurrentRepository = dangerPage $ do
liftIO $ do
recurseDir SystemFS dir
>>= mapM_ (void . tryIO . allowWrite)
removeDirectoryRecursive dir
removeDirectoryRecursive =<< absPath dir
redirect ShutdownConfirmedR
_ -> $(widgetFile "configurators/delete/currentrepository")