diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-04 17:13:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-04 17:13:20 -0400 |
| commit | 950a549dc1fb8dc4e64812dcbdc17a7ac0a4204f (patch) | |
| tree | 3864cc91a386bd0e1736ed219ae7443d5f77fa99 /Command | |
| parent | ecb430460d417d3e48921964f8ee36c44c46415f (diff) | |
drop -Jn
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Drop.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 5c5328618..b26a4842a 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -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) |