From 0023fe033731180afe8bc2242c2a512b31b8c0bf Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 3 Nov 2023 18:09:36 +0100
Subject: Remove unused tasks

---
 app/Main.hs                     |  4 ----
 app/SlackBuilder/CommandLine.hs | 12 ------------
 2 files changed, 16 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 0337fba..5c18a7e 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -416,12 +416,8 @@ main = do
             categories <- liftIO $ findCategory repository'
             liftIO $ print $ splitFileName . makeRelative repository' <$> categories
             pure Nothing
-        CommitCommand packagePath version ->
-            commit packagePath version >> pure Nothing
         ExistsCommand urlPath -> pure . Text.pack . show
             <$> remoteFileExists urlPath
-        ArchiveCommand repo nameVersion tarball tagPrefix ->
-            cloneAndArchive repo nameVersion tarball tagPrefix >> pure Nothing
         DownloadCommand url target
             | Just uri' <- mkURI url -> fmap (Text.pack . show)
                 <$> download uri' target
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs
index 1b51b89..9b26671 100644
--- a/app/SlackBuilder/CommandLine.hs
+++ b/app/SlackBuilder/CommandLine.hs
@@ -21,9 +21,7 @@ import Options.Applicative
 
 data SlackBuilderCommand
     = CategoryCommand Text
-    | CommitCommand Text Text
     | ExistsCommand Text
-    | ArchiveCommand Text Text String Text
     | DownloadCommand Text String
     | CloneCommand Text Text Text
     | DownloadAndDeployCommand Text Text
@@ -51,9 +49,7 @@ slackBuilderParser = info slackBuilderCommand fullDesc
 slackBuilderCommand :: Parser SlackBuilderCommand
 slackBuilderCommand = subparser
     $ command "category" (info categoryCommand mempty)
-    <> command "commit" (info commitCommand mempty)
     <> command "exists" (info existsCommand mempty)
-    <> command "archive" (info archiveCommand mempty)
     <> command "download" (info downloadCommand mempty)
     <> command "clone" (info cloneCommand mempty)
     <> command "deploy" (info deployCommand mempty)
@@ -61,15 +57,7 @@ slackBuilderCommand = subparser
   where
     categoryCommand = CategoryCommand
         <$> argument str (metavar "PKGNAM")
-    commitCommand = CommitCommand
-        <$> 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")
     downloadCommand = DownloadCommand
         <$> argument str (metavar "URI")
         <*> argument str (metavar "TARGET")
-- 
cgit v1.2.3