diff options
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")) |
