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:
parent
5e4ddd32a0
commit
ef4b4c3856
4 changed files with 15 additions and 2 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue