a few command usage fixes

This commit is contained in:
Joey Hess 2015-03-25 12:09:42 -04:00
parent 0850e8eaf9
commit c955fb2736
4 changed files with 4 additions and 4 deletions

View file

@ -15,7 +15,7 @@ import Git.Types
cmd :: [Command] cmd :: [Command]
cmd = [dontCheck repoExists $ cmd = [dontCheck repoExists $
command "diffdriver" ("[-- cmd --opts]") seek command "diffdriver" ("[-- cmd --]") seek
SectionPlumbing "external git diff driver shim"] SectionPlumbing "external git diff driver shim"]
seek :: CommandSeek seek :: CommandSeek

View file

@ -19,7 +19,7 @@ import Data.Time.Clock.POSIX
cmd :: [Command] cmd :: [Command]
cmd = [withOptions metaDataOptions $ cmd = [withOptions metaDataOptions $
command "metadata" paramPaths seek command "metadata" paramPaths seek
SectionMetaData "sets metadata of a file"] SectionMetaData "sets or gets metadata of a file"]
metaDataOptions :: [Option] metaDataOptions :: [Option]
metaDataOptions = metaDataOptions =

View file

@ -16,7 +16,7 @@ import qualified Remote
cmd :: [Command] cmd :: [Command]
cmd = [dontCheck repoExists $ cmd = [dontCheck repoExists $
command "reinit" (paramUUID ++ " or " ++ paramDesc) seek SectionUtility ""] command "reinit" (paramUUID ++ "|" ++ paramDesc) seek SectionUtility "initialize repository, reusing old UUID"]
seek :: CommandSeek seek :: CommandSeek
seek = withWords start seek = withWords start

View file

@ -16,7 +16,7 @@ import Command.View (checkoutViewBranch)
cmd :: [Command] cmd :: [Command]
cmd = [notBareRepo $ notDirect $ cmd = [notBareRepo $ notDirect $
command "vcycle" paramNothing seek SectionUtility command "vcycle" paramNothing seek SectionMetaData
"switch view to next layout"] "switch view to next layout"]
seek :: CommandSeek seek :: CommandSeek