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

improve usage messages

Browse source
This commit is contained in:
Joey Hess 2013-04-20 20:23:11 -04:00
parent 54e7cdb55c
commit 984bc8570d
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Command/Help.hs
View file

@ -42,7 +42,7 @@ showCommonOptions = putStrLn $ usageInfo "Common options:" options
showGeneralHelp :: IO ()
showGeneralHelp = putStrLn $ unlines
[ "The most commonly used git-annex commands are:"
[ "The most frequently used git-annex commands are:"
, unlines $ map cmdline $ concat
[ Command.Init.def
, Command.Add.def
@ -54,7 +54,9 @@ showGeneralHelp = putStrLn $ unlines
, Command.Whereis.def
, Command.Fsck.def
]
, "Run git-annex without any options for a complete command list."
, "Run 'git-annex' for a complete command list."
, "Run 'git-annex command --help' for help on a specific command."
, "Run `git annex help options' for a list of common options."
]
where
cmdline c = "\t" ++ cmdname c ++ "\t" ++ cmddesc c

2
Command/Status.hs
View file

@ -57,7 +57,7 @@ data StatInfo = StatInfo
type StatState = StateT StatInfo Annex
def :: [Command]
def = [command "status" (paramOptional paramPaths) seek
def = [command "status" paramPaths seek
SectionQuery "shows status information about the annex"]
seek :: [CommandSeek]