diff options
author | 2015-11-05 18:24:15 -0400 | |
---|---|---|
committer | 2015-11-05 18:24:15 -0400 | |
commit | d8a1741254643a7c5b324cabe8c00e36b58434d8 (patch) | |
tree | 6390bcea81c5b8271e92a07de4b8c8e20de9f4bf /Command/AddUrl.hs | |
parent | a2c9cbbdc4047b799321ec388a94d4f96951a6f2 (diff) |
-J for add/addurl/import
Diffstat (limited to 'Command/AddUrl.hs')
-rw-r--r-- | Command/AddUrl.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 4b34051e9..6ed4fb2e2 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -38,7 +38,7 @@ import qualified Utility.Quvi as Quvi #endif cmd :: Command -cmd = notBareRepo $ +cmd = notBareRepo $ withGlobalOptions [jobsOption] $ command "addurl" SectionCommon "add urls to annex" (paramRepeating paramUrl) (seek <$$> optParser) @@ -87,11 +87,12 @@ parseRawOption = switch ) seek :: AddUrlOptions -> CommandSeek -seek o = forM_ (addUrls o) $ \u -> do - r <- Remote.claimingUrl u - if Remote.uuid r == webUUID || rawOption o - then void $ commandAction $ startWeb o u - else checkUrl r o u +seek o = allowConcurrentOutput $ + forM_ (addUrls o) $ \u -> do + r <- Remote.claimingUrl u + if Remote.uuid r == webUUID || rawOption o + then void $ commandAction $ startWeb o u + else checkUrl r o u checkUrl :: Remote -> AddUrlOptions -> URLString -> Annex () checkUrl r o u = do |