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

notifications on drop

Browse source
This commit is contained in:
Joey Hess 2014-03-22 15:01:48 -04:00
parent a5dcd0e4bd
commit fb8a32cc7f
6 changed files with 99 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/DropUnused.hs
View file

@ -35,7 +35,7 @@ perform numcopies key = maybe droplocal dropremote =<< Remote.byNameWithUUID =<<
dropremote r = do
showAction $ "from " ++ Remote.name r
Command.Drop.performRemote key numcopies r
droplocal = Command.Drop.performLocal key numcopies Nothing
droplocal = Command.Drop.performLocal key Nothing numcopies Nothing
from = Annex.getField $ optionName Command.Drop.dropFromOption
performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform