diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-03-25 12:09:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-03-25 12:09:42 -0400 |
| commit | 00c09b2038611de97c26f4141a748f08cc8fe570 (patch) | |
| tree | 7d9702fcd135e7c4f1a743607292525d546f54a4 /Command | |
| parent | 5c8727dea29d5266de481475495eb979038bfa5a (diff) | |
a few command usage fixes
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/DiffDriver.hs | 2 | ||||
| -rw-r--r-- | Command/MetaData.hs | 2 | ||||
| -rw-r--r-- | Command/Reinit.hs | 2 | ||||
| -rw-r--r-- | Command/VCycle.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/Command/DiffDriver.hs b/Command/DiffDriver.hs index fa4f49366..f6ef77ecd 100644 --- a/Command/DiffDriver.hs +++ b/Command/DiffDriver.hs @@ -15,7 +15,7 @@ import Git.Types cmd :: [Command] cmd = [dontCheck repoExists $ - command "diffdriver" ("[-- cmd --opts]") seek + command "diffdriver" ("[-- cmd --]") seek SectionPlumbing "external git diff driver shim"] seek :: CommandSeek diff --git a/Command/MetaData.hs b/Command/MetaData.hs index f1de6b6de..08f205359 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -19,7 +19,7 @@ import Data.Time.Clock.POSIX cmd :: [Command] cmd = [withOptions metaDataOptions $ command "metadata" paramPaths seek - SectionMetaData "sets metadata of a file"] + SectionMetaData "sets or gets metadata of a file"] metaDataOptions :: [Option] metaDataOptions = diff --git a/Command/Reinit.hs b/Command/Reinit.hs index b1264effa..f201c66bb 100644 --- a/Command/Reinit.hs +++ b/Command/Reinit.hs @@ -16,7 +16,7 @@ import qualified Remote cmd :: [Command] cmd = [dontCheck repoExists $ - command "reinit" (paramUUID ++ " or " ++ paramDesc) seek SectionUtility ""] + command "reinit" (paramUUID ++ "|" ++ paramDesc) seek SectionUtility "initialize repository, reusing old UUID"] seek :: CommandSeek seek = withWords start diff --git a/Command/VCycle.hs b/Command/VCycle.hs index f9a21892b..bf253adc1 100644 --- a/Command/VCycle.hs +++ b/Command/VCycle.hs @@ -16,7 +16,7 @@ import Command.View (checkoutViewBranch) cmd :: [Command] cmd = [notBareRepo $ notDirect $ - command "vcycle" paramNothing seek SectionUtility + command "vcycle" paramNothing seek SectionMetaData "switch view to next layout"] seek :: CommandSeek |