addurl, get: Added --json-progress option, which adds progress objects to the json output.

This doesn't work right when used with -J yet, and there is some really
ugly hand-crafting of part of the json output.
This commit is contained in:
Joey Hess 2016-09-09 15:06:54 -04:00
parent f421a7f001
commit 05d4438383
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
12 changed files with 55 additions and 12 deletions

View file

@ -31,7 +31,7 @@ import Annex.Quvi
import qualified Utility.Quvi as Quvi
cmd :: Command
cmd = notBareRepo $ withGlobalOptions [jobsOption, jsonOption] $
cmd = notBareRepo $ withGlobalOptions [jobsOption, jsonOption, jsonProgressOption] $
command "addurl" SectionCommon "add urls to annex"
(paramRepeating paramUrl) (seek <$$> optParser)