diff options
Diffstat (limited to 'CmdLine/Usage.hs')
-rw-r--r-- | CmdLine/Usage.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/CmdLine/Usage.hs b/CmdLine/Usage.hs index 58408762b..1355c4316 100644 --- a/CmdLine/Usage.hs +++ b/CmdLine/Usage.hs @@ -11,7 +11,6 @@ import Common.Annex import Types.Command import System.Console.GetOpt -import qualified Options.Applicative as O usageMessage :: String -> String usageMessage s = "Usage: " ++ s @@ -56,13 +55,6 @@ commandUsage cmd = unlines , "[option ...]" ] -{- Simple CommandParser generator, for when the CommandSeek wants all - - non-option parameters. -} -withParams :: (CmdParams -> CommandSeek) -> String -> CommandParser -withParams mkseek paramdesc = mkseek <$> O.many cmdparams - where - cmdparams = O.argument O.str (O.metavar paramdesc) - {- Descriptions of params used in usage messages. -} paramPaths :: String paramPaths = paramRepeating paramPath -- most often used |