webapp: Fix deletion of current repository directory.

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

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")