diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-18 11:54:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-18 11:54:43 -0400 |
| commit | 8b7b01c1b38635b309f4e90c8369c3258766f181 (patch) | |
| tree | 7fc7a46aa3a3d315063fdb6f6a49282b175ac6fe /Command | |
| parent | a0c7d37d1e0ac10b7304e48ff78d0cfb0308d9e5 (diff) | |
Remove --json option from commands not supporting it.
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/ExamineKey.hs | 3 | ||||
| -rw-r--r-- | Command/Find.hs | 3 | ||||
| -rw-r--r-- | Command/Info.hs | 6 |
3 files changed, 8 insertions, 4 deletions
diff --git a/Command/ExamineKey.hs b/Command/ExamineKey.hs index 7dfdadd3d..1e8e2cecf 100644 --- a/Command/ExamineKey.hs +++ b/Command/ExamineKey.hs @@ -12,9 +12,10 @@ import Command import qualified Utility.Format import Command.Find (formatOption, withFormat, showFormatted, keyVars) import Types.Key +import GitAnnex.Options def :: [Command] -def = [noCommit $ noMessages $ withOptions [formatOption] $ +def = [noCommit $ noMessages $ withOptions [formatOption, jsonOption] $ command "examinekey" (paramRepeating paramKey) seek SectionPlumbing "prints information from a key"] diff --git a/Command/Find.hs b/Command/Find.hs index 0591e657e..ddcc4b8c7 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -18,9 +18,10 @@ import qualified Utility.Format import Utility.DataUnits import Types.Key import qualified Option +import GitAnnex.Options def :: [Command] -def = [noCommit $ noMessages $ withOptions [formatOption, print0Option] $ +def = [noCommit $ noMessages $ withOptions [formatOption, print0Option, jsonOption] $ command "find" paramPaths seek SectionQuery "lists available files"] formatOption :: Option diff --git a/Command/Info.hs b/Command/Info.hs index d465f2d84..7a9ec15dc 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -21,6 +21,7 @@ import qualified Remote import qualified Command.Unused import qualified Git import qualified Annex +import GitAnnex.Options import Command import Utility.DataUnits import Utility.DiskFree @@ -70,8 +71,9 @@ data StatInfo = StatInfo type StatState = StateT StatInfo Annex def :: [Command] -def = [noCommit $ command "info" paramPaths seek - SectionQuery "shows general information about the annex"] +def = [noCommit $ withOptions [jsonOption] $ + command "info" paramPaths seek SectionQuery + "shows general information about the annex"] seek :: [CommandSeek] seek = [withWords start] |