summaryrefslogtreecommitdiff
path: root/Command/Add.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2018-02-19 14:28:17 -0400
committerJoey Hess <joeyh@joeyh.name>2018-02-19 14:32:15 -0400
commit6583448bab011c1e74eba6ced9bc2b859d91025d (patch)
tree58fc9139f5053090d9b4fd739cf57c80cf121c13 /Command/Add.hs
parentfa65f1d240142f22049c35e8fdea5b67bdda1784 (diff)
add --json-error-messages (not yet implemented)
Added --json-error-messages option, which includes error messages in the json output, rather than outputting them to stderr. The actual rediretion of errors is not implemented yet, this is only the docs and option plumbing. This commit was supported by the NSF-funded DataLad project.
Diffstat (limited to 'Command/Add.hs')
-rw-r--r--Command/Add.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/Add.hs b/Command/Add.hs
index 638da101e1..10148ad50a 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -22,9 +22,10 @@ import Annex.Version
import Git.FilePath
cmd :: Command
-cmd = notBareRepo $ withGlobalOptions (jobsOption : jsonOption : fileMatchingOptions) $
- command "add" SectionCommon "add files to annex"
- paramPaths (seek <$$> optParser)
+cmd = notBareRepo $
+ withGlobalOptions [jobsOption, jsonOptions, fileMatchingOptions] $
+ command "add" SectionCommon "add files to annex"
+ paramPaths (seek <$$> optParser)
data AddOptions = AddOptions
{ addThese :: CmdParams