diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-02-17 14:15:01 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-02-18 18:28:27 +0100 |
| commit | 4c06ae274bfdb9844d71b51d8a71d8d7f0cf667e (patch) | |
| tree | 4c72fc2928a7a5b6db117ca6f78e7b0213f849bc /src/SlackBuilder/CommandLine.hs | |
| parent | c8643a2fd4e8e81fde467c3b00eba606ebb2e761 (diff) | |
| download | slackbuilder-4c06ae274bfdb9844d71b51d8a71d8d7f0cf667e.tar.gz | |
Find the package category automatically
Diffstat (limited to 'src/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | src/SlackBuilder/CommandLine.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/SlackBuilder/CommandLine.hs b/src/SlackBuilder/CommandLine.hs index 7639327..e06a40e 100644 --- a/src/SlackBuilder/CommandLine.hs +++ b/src/SlackBuilder/CommandLine.hs @@ -23,8 +23,7 @@ import Options.Applicative ) data SlackBuilderCommand - = CategoryCommand - | CheckCommand + = CheckCommand | Up2DateCommand (Maybe Text) slackBuilderParser :: ParserInfo SlackBuilderCommand @@ -32,11 +31,9 @@ slackBuilderParser = info slackBuilderCommand fullDesc slackBuilderCommand :: Parser SlackBuilderCommand slackBuilderCommand = subparser - $ command "category" (info categoryCommand mempty) - <> command "check" (info checkCommand mempty) + $ command "check" (info checkCommand mempty) <> command "up2date" (info up2DateCommand mempty) where - categoryCommand = pure CategoryCommand checkCommand = pure CheckCommand up2DateCommand = Up2DateCommand <$> optional (argument str (metavar "PKGNAM")) |