From 258604f22d2bc50480aa4eb57778ab96c97cf1c6 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 18 Aug 2023 07:50:18 +0200
Subject: Support repository directory in the clone function

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

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

diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs
index 4218e6b..8df1b97 100644
--- a/app/SlackBuilder/CommandLine.hs
+++ b/app/SlackBuilder/CommandLine.hs
@@ -26,6 +26,7 @@ data SlackBuilderCommand
     | SlackBuildCommand Text Text
     | CommitCommand Text Text
     | ExistsCommand Text
+    | ArchiveCommand Text Text String Text
     deriving (Eq, Show)
 
 data PackagistArguments = PackagistArguments
@@ -67,6 +68,7 @@ slackBuilderCommand = subparser
     <> command "slackbuild" (info slackBuildCommand mempty)
     <> command "commit" (info commitCommand mempty)
     <> command "exists" (info existsCommand mempty)
+    <> command "archive" (info archiveCommand mempty)
   where
     slackBuildCommand = SlackBuildCommand
         <$> argument str (metavar "PATH")
@@ -75,3 +77,8 @@ slackBuilderCommand = subparser
         <$> argument str (metavar "PATH")
         <*> argument str (metavar "VERSION")
     existsCommand = ExistsCommand <$> argument str (metavar "PATH")
+    archiveCommand = ArchiveCommand
+        <$> argument str (metavar "REPO")
+        <*> argument str (metavar "NAME_VERSION")
+        <*> argument str (metavar "TARBALL")
+        <*> argument str (metavar "TAG_PREFIX")
-- 
cgit v1.2.3