diff options
Diffstat (limited to 'CmdLine')
| -rw-r--r-- | CmdLine/Usage.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/CmdLine/Usage.hs b/CmdLine/Usage.hs index 1355c4316..0b1cade05 100644 --- a/CmdLine/Usage.hs +++ b/CmdLine/Usage.hs @@ -10,8 +10,6 @@ module CmdLine.Usage where import Common.Annex import Types.Command -import System.Console.GetOpt - usageMessage :: String -> String usageMessage s = "Usage: " ++ s @@ -41,20 +39,6 @@ usage header cmds = unlines $ usageMessage header : concatMap go [minBound..] longest f = foldl max 0 $ map (length . f) cmds scmds = sort cmds -{- Usage message for a single command. -} -commandUsage :: Command -> String -commandUsage cmd = unlines - [ usageInfo header (cmdoptions cmd) - , "To see additional options common to all commands, run: git annex help options" - ] - where - header = usageMessage $ unwords - [ "git-annex" - , cmdname cmd - , cmdparamdesc cmd - , "[option ...]" - ] - {- Descriptions of params used in usage messages. -} paramPaths :: String paramPaths = paramRepeating paramPath -- most often used |