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

@ -14,6 +14,7 @@ import qualified Git.Config
import Git.Types
import Command
import Types.TrustLevel
import Types.Messages
import qualified Annex
import qualified Remote
import qualified Limit
@ -85,3 +86,7 @@ toOption = Option.field ['t'] "to" paramRemote "destination remote"
fromToOptions :: [Option]
fromToOptions = [fromOption, toOption]
jsonOption :: Option
jsonOption = Option ['j'] ["json"] (NoArg (Annex.setOutput JSONOutput))
"enable JSON output"