summaryrefslogtreecommitdiff
path: root/CmdLine
diff options
context:
space:
mode:
Diffstat (limited to 'CmdLine')
-rw-r--r--CmdLine/Usage.hs16
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