summaryrefslogtreecommitdiff
path: root/Command/AddUrl.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-11-05 18:24:15 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-11-05 18:24:15 -0400
commitd8a1741254643a7c5b324cabe8c00e36b58434d8 (patch)
tree6390bcea81c5b8271e92a07de4b8c8e20de9f4bf /Command/AddUrl.hs
parenta2c9cbbdc4047b799321ec388a94d4f96951a6f2 (diff)
-J for add/addurl/import
Diffstat (limited to 'Command/AddUrl.hs')
-rw-r--r--Command/AddUrl.hs13
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