diff options
author | Joey Hess <joeyh@joeyh.name> | 2018-02-19 14:28:17 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2018-02-19 14:32:15 -0400 |
commit | ec1e50642b62fa3dcf5a2c9f7fd582e403c17627 (patch) | |
tree | 96463a73c79b274cc8f54123719f292547faa0ad /Command/Unlock.hs | |
parent | 0366c6eac698327ced9c63e241a9474a5c2a7e20 (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/Unlock.hs')
-rw-r--r-- | Command/Unlock.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Unlock.hs b/Command/Unlock.hs index 44e3f1bf3..221c9f0ad 100644 --- a/Command/Unlock.hs +++ b/Command/Unlock.hs @@ -26,8 +26,9 @@ editcmd :: Command editcmd = mkcmd "edit" "same as unlock" mkcmd :: String -> String -> Command -mkcmd n d = notDirect $ withGlobalOptions (jsonOption : annexedMatchingOptions) $ - command n SectionCommon d paramPaths (withParams seek) +mkcmd n d = notDirect $ + withGlobalOptions [jsonOptions, annexedMatchingOptions] $ + command n SectionCommon d paramPaths (withParams seek) seek :: CmdParams -> CommandSeek seek ps = withFilesInGit (whenAnnexed start) =<< workTreeItems ps |