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

unlock, lock: Support --json.

Browse source
This commit is contained in:
Joey Hess 2017-10-30 14:44:11 -04:00
parent 325c40afef
commit 75ec0227f8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
7 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Lock.hs
View file

@ -23,7 +23,7 @@ import Logs.Location
import Git.FilePath
cmd :: Command
cmd = notDirect $ withGlobalOptions annexedMatchingOptions $
cmd = notDirect $ withGlobalOptions (jsonOption : annexedMatchingOptions) $
command "lock" SectionCommon
"undo unlock command"
paramPaths (withParams seek)

2
Command/Unlock.hs
View file

@ -26,7 +26,7 @@ editcmd :: Command
editcmd = mkcmd "edit" "same as unlock"
mkcmd :: String -> String -> Command
mkcmd n d = notDirect $ withGlobalOptions annexedMatchingOptions $
mkcmd n d = notDirect $ withGlobalOptions (jsonOption : annexedMatchingOptions) $
command n SectionCommon d paramPaths (withParams seek)
seek :: CmdParams -> CommandSeek