diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-11 08:14:55 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-11 08:14:55 +0100 |
| commit | 6a063b2cc450b6ac90b38bc5c9ea348430794aa7 (patch) | |
| tree | eb5ba320c173f806a8a59046aed7007aa35f81ad /src/SlackBuilder/CommandLine.hs | |
| parent | e9504fb8e56fe93e4e23c52b45a620432b11570b (diff) | |
| download | slackbuilder-6a063b2cc450b6ac90b38bc5c9ea348430794aa7.tar.gz | |
Accept up2date package parameter
Diffstat (limited to 'src/SlackBuilder/CommandLine.hs')
| -rw-r--r-- | src/SlackBuilder/CommandLine.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/SlackBuilder/CommandLine.hs b/src/SlackBuilder/CommandLine.hs index 7da036a..2a6c2fc 100644 --- a/src/SlackBuilder/CommandLine.hs +++ b/src/SlackBuilder/CommandLine.hs @@ -16,13 +16,14 @@ import Options.Applicative , info , fullDesc , subparser - , command, + , command + , optional ) data SlackBuilderCommand - = CategoryCommand Text + = CategoryCommand | CheckCommand - | Up2DateCommand + | Up2DateCommand (Maybe Text) data PackagistArguments = PackagistArguments { vendor :: Text @@ -49,7 +50,7 @@ slackBuilderCommand = subparser <> command "check" (info checkCommand mempty) <> command "up2date" (info up2DateCommand mempty) where - categoryCommand = CategoryCommand - <$> argument str (metavar "PKGNAM") + categoryCommand = pure CategoryCommand checkCommand = pure CheckCommand - up2DateCommand = pure Up2DateCommand + up2DateCommand = Up2DateCommand + <$> optional (argument str (metavar "PKGNAM")) |