mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Remove --json option from commands not supporting it.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
Command/Info.hs
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]