summaryrefslogtreecommitdiff
path: root/src/SlackBuilder/CommandLine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/SlackBuilder/CommandLine.hs')
-rw-r--r--src/SlackBuilder/CommandLine.hs13
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"))