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

drop -Jn

Browse source
This commit is contained in:
Joey Hess 2015-11-04 17:13:20 -04:00
parent c6fc0945f3
commit c4d45ef83d
Failed to extract signature
3 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Command/Drop.hs
View file

@ -24,7 +24,7 @@ import System.Log.Logger (debugM)
import qualified Data.Set as S
cmd :: Command
cmd = withGlobalOptions annexedMatchingOptions $
cmd = withGlobalOptions (jobsOption : annexedMatchingOptions) $
command "drop" SectionCommon
"remove content of files from repository"
paramPaths (seek <$$> optParser)
@ -51,10 +51,11 @@ parseDropFromOption = parseRemoteOption $ strOption
)
seek :: DropOptions -> CommandSeek
seek o = withKeyOptions (keyOptions o) (autoMode o)
(startKeys o)
(withFilesInGit $ whenAnnexed $ start o)
(dropFiles o)
seek o = allowConcurrentOutput $
withKeyOptions (keyOptions o) (autoMode o)
(startKeys o)
(withFilesInGit $ whenAnnexed $ start o)
(dropFiles o)
start :: DropOptions -> FilePath -> Key -> CommandStart
start o file key = start' o key (Just file)