diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:41:54 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:41:54 -0400 |
commit | 85a2cfa4da5ad3d3d89554ddc142062581574cff (patch) | |
tree | 4f0ed60da5da24bd5c9db95691424991bcf40209 /Command | |
parent | b2252febf1355e62a00fb735831d3b2a1aed2566 (diff) |
remove git-annex help options display
Common options will be displayed in the --help for a command by
optparse-applicative.
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Help.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/Command/Help.hs b/Command/Help.hs index 17ed8cd0b..0da7ecc46 100644 --- a/Command/Help.hs +++ b/Command/Help.hs @@ -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 |