remove git-annex help options display

Common options will be displayed in the --help for a command by
optparse-applicative.
This commit is contained in:
Joey Hess 2015-07-08 15:41:54 -04:00
parent 92d8f80bff
commit 7d9072d1db

View file

@ -19,8 +19,6 @@ import qualified Command.Sync
import qualified Command.Whereis
import qualified Command.Fsck
import System.Console.GetOpt
cmd :: Command
cmd = noCommit $ dontCheck repoExists $
noRepo (parseparams startNoRepo) $
@ -41,13 +39,9 @@ startNoRepo :: CmdParams -> IO ()
startNoRepo = start'
start' :: [String] -> IO ()
start' ["options"] = showCommonOptions
start' [c] = showGitHelp c
start' _ = showGeneralHelp
showCommonOptions :: IO ()
showCommonOptions = putStrLn $ usageInfo "Common options:" gitAnnexOptions
showGeneralHelp :: IO ()
showGeneralHelp = putStrLn $ unlines
[ "The most frequently used git-annex commands are:"
@ -64,7 +58,6 @@ showGeneralHelp = putStrLn $ unlines
]
, "Run 'git-annex' for a complete command list."
, "Run 'git-annex help command' 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