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

use git queue for rm too

Browse source
This commit is contained in:
Joey Hess 2012-06-07 21:17:10 -04:00
parent 20f425be19
commit 7d78cbf97c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Command/Watch.hs
View file

@ -124,14 +124,14 @@ onAddSymlink file = go =<< Backend.lookupFile file
{- The file could reappear at any time, so --cached is used, to only delete {- The file could reappear at any time, so --cached is used, to only delete
- it from the index. -} - it from the index. -}
onDel :: FilePath -> Annex () onDel :: FilePath -> Annex ()
onDel file = inRepo $ Git.Command.run "rm" onDel file = Annex.Queue.addCommand "rm"
[Params "--quiet --cached --ignore-unmatch --", File file] [Params "--quiet --cached --ignore-unmatch --"] [file]
{- A directory has been deleted, or moved, so tell git to remove anything {- A directory has been deleted, or moved, so tell git to remove anything
- that was inside it from its cache. -} - that was inside it from its cache. -}
onDelDir :: FilePath -> Annex () onDelDir :: FilePath -> Annex ()
onDelDir dir = inRepo $ Git.Command.run "rm" onDelDir dir = Annex.Queue.addCommand "rm"
[Params "--quiet -r --cached --ignore-unmatch --", File dir] [Params "--quiet -r --cached --ignore-unmatch --"] [dir]
{- Called when there's an error with inotify. -} {- Called when there's an error with inotify. -}
onErr :: String -> Annex () onErr :: String -> Annex ()