renameremote: Support --json and --json-error-messages

Seems unlikely to be useful, but it works so

Sponsored-By: the NIH-funded NICEMAN (ReproNim TR&D3) project
This commit is contained in:
Joey Hess 2023-05-08 16:25:40 -04:00
parent a5d0c85ae1
commit a71c831949
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 8 additions and 7 deletions

View file

@ -18,10 +18,11 @@ import Types.ProposedAccepted
import qualified Data.Map as M
cmd :: Command
cmd = command "renameremote" SectionSetup
"changes name of special remote"
(paramPair paramName paramName)
(withParams seek)
cmd = withAnnexOptions [jsonOptions] $
command "renameremote" SectionSetup
"changes name of special remote"
(paramPair paramName paramName)
(withParams seek)
seek :: CmdParams -> CommandSeek
seek = withWords (commandAction . start)