From 6b15ccd0f53c7ffd57820fb15664ecadee74392a Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 15 Aug 2023 10:33:19 +0200
Subject: Support repository path in commits

---
 app/SlackBuilder/CommandLine.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs
index 1313abb..6b915f2 100644
--- a/app/SlackBuilder/CommandLine.hs
+++ b/app/SlackBuilder/CommandLine.hs
@@ -23,6 +23,9 @@ data SlackBuilderCommand
     = PackagistCommand PackagistArguments
     | TextCommand TextArguments
     | GhCommand GhArguments
+    | SlackBuildCommand Text Text
+    | CommitCommand Text Text
+    deriving (Eq, Show)
 
 data PackagistArguments = PackagistArguments
     { vendor :: Text
@@ -36,6 +39,7 @@ data GhArguments = GhArguments
     } deriving (Eq, Show)
 
 newtype TextArguments = TextArguments Text
+    deriving (Eq, Show)
 
 packagistArguments :: Parser PackagistArguments
 packagistArguments = PackagistArguments
@@ -59,3 +63,12 @@ slackBuilderCommand = subparser
     $ command "packagist" (info (PackagistCommand <$> packagistArguments) mempty)
     <> command "text" (info (TextCommand <$> textArguments) mempty)
     <> command "github" (info (GhCommand <$> ghArguments) mempty)
+    <> command "slackbuild" (info slackBuildCommand mempty)
+    <> command "commit" (info commitCommand mempty)
+  where
+    slackBuildCommand = SlackBuildCommand
+        <$> argument str (metavar "PATH")
+        <*> argument str (metavar "VERSION")
+    commitCommand = CommitCommand
+        <$> argument str (metavar "PATH")
+        <*> argument str (metavar "VERSION")
-- 
cgit v1.2.3