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.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.hs')
| -rw-r--r-- | Command.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command.hs b/Command.hs index d1d539f45..b886e4fe2 100644 --- a/Command.hs +++ b/Command.hs @@ -79,9 +79,9 @@ allowMessages = do noRepo :: (String -> Parser (IO ())) -> Command -> Command noRepo a c = c { cmdnorepo = Just (a (cmdparamdesc c)) } -{- Adds global options to a command's. -} -withGlobalOptions :: [GlobalOption] -> Command -> Command -withGlobalOptions os c = c { cmdglobaloptions = cmdglobaloptions c ++ os } +{- Adds global options to a command. -} +withGlobalOptions :: [[GlobalOption]] -> Command -> Command +withGlobalOptions os c = c { cmdglobaloptions = cmdglobaloptions c ++ concat os } {- For start and perform stages to indicate what step to run next. -} next :: a -> Annex (Maybe a) |