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 ----
 1 file changed, 4 deletions(-)

(limited to 'app/Main.hs')

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