From 6a063b2cc450b6ac90b38bc5c9ea348430794aa7 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 11 Dec 2023 08:14:55 +0100
Subject: Accept up2date package parameter

---
 src/SlackBuilder/CommandLine.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/SlackBuilder/CommandLine.hs')

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"))
-- 
cgit v1.2.3