directory: Remove empty hash directories when dropping content
Failure to remove is not treated as a problem, and no permissions modifications are done, to avoid unexpected states. Sponsored-by: Luke Shumaker on Patreon
This commit is contained in:
parent
7f38355860
commit
b15366494a
5 changed files with 37 additions and 5 deletions
|
@ -439,7 +439,7 @@ remove r rsyncopts accessmethod k = do
|
|||
remove' :: Git.Repo -> Remote -> Remote.Rsync.RsyncOpts -> AccessMethod -> Remover
|
||||
remove' repo r rsyncopts accessmethod k
|
||||
| not $ Git.repoIsUrl repo = guardUsable repo (giveup "cannot access remote") $
|
||||
liftIO $ Remote.Directory.removeDirGeneric
|
||||
liftIO $ Remote.Directory.removeDirGeneric False
|
||||
(fromRawFilePath (Git.repoPath repo))
|
||||
(fromRawFilePath (parentDir (toRawFilePath (gCryptLocation repo k))))
|
||||
| Git.repoIsSsh repo = shellOrRsync r removeshell removersync
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue