Remove --json option from commands not supporting it.

This commit is contained in:
Joey Hess 2014-01-18 11:54:43 -04:00
parent dce9faf6e4
commit 1d90e72e91
6 changed files with 19 additions and 6 deletions

View file

@ -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]