diff --git a/Command/Help.hs b/Command/Help.hs index 17ed8cd0b9..0da7ecc464 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