diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-20 20:23:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-20 20:23:11 -0400 |
| commit | dee68af9700412117364432f48ea3d51a775cc12 (patch) | |
| tree | cfde6d98ed4846f2997a030705b3707854253cb7 /Command | |
| parent | d9302fb524ac487bfd394e07d54e5dce4f5b33e3 (diff) | |
improve usage messages
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Help.hs | 6 | ||||
| -rw-r--r-- | Command/Status.hs | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Command/Help.hs b/Command/Help.hs index 576298226..7852201e8 100644 --- a/Command/Help.hs +++ b/Command/Help.hs @@ -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 diff --git a/Command/Status.hs b/Command/Status.hs index 9192202f5..0009ff075 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -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] |