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

handle directory deletion

Browse source 
When a directory is deleted, or moved away, git rm -r it to stage
the deletion.
This commit is contained in:
Joey Hess 2012-06-04 13:30:30 -04:00
parent 23dbff4b43
commit 7053f5f947
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/Watch.hs
View file

@ -14,6 +14,7 @@ import CmdLine
import Utility.Inotify
import Control.Exception as E
import qualified Command.Add as Add
import qualified Git.Command
import System.INotify
@ -66,4 +67,4 @@ onDel :: FilePath -> Annex ()
onDel file = liftIO $ print $ "del " ++ file
onDelDir :: FilePath -> Annex ()
onDelDir dir = liftIO $ print $ "del dir " ++ dir
onDelDir dir = inRepo $ Git.Command.run "rm" [Params "--quiet -r", File dir]