From 9770cc8829d6fdacd1ae02e1f78fcf270e5a5503 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 4 Nov 2023 14:13:59 +0100
Subject: Remove gem and rake support files

---
 app/Main.hs                     |  8 --------
 app/SlackBuilder/CommandLine.hs | 13 -------------
 2 files changed, 21 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 5c18a7e..535b655 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -416,14 +416,6 @@ main = do
             categories <- liftIO $ findCategory repository'
             liftIO $ print $ splitFileName . makeRelative repository' <$> categories
             pure Nothing
-        ExistsCommand urlPath -> pure . Text.pack . show
-            <$> remoteFileExists urlPath
-        DownloadCommand url target
-            | Just uri' <- mkURI url -> fmap (Text.pack . show)
-                <$> download uri' target
-            | otherwise -> pure Nothing
         CloneCommand repo tarball tagPrefix -> fmap (Text.pack . show)
             <$> clone repo tarball tagPrefix
-        DownloadAndDeployCommand uri' tarball -> fmap (Text.pack . show)
-            <$> downloadAndDeploy uri' tarball
         Up2DateCommand -> up2Date >> pure Nothing
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs
index 9b26671..7cfe747 100644
--- a/app/SlackBuilder/CommandLine.hs
+++ b/app/SlackBuilder/CommandLine.hs
@@ -21,10 +21,7 @@ import Options.Applicative
 
 data SlackBuilderCommand
     = CategoryCommand Text
-    | ExistsCommand Text
-    | DownloadCommand Text String
     | CloneCommand Text Text Text
-    | DownloadAndDeployCommand Text Text
     | Up2DateCommand
 
 data PackagistArguments = PackagistArguments
@@ -49,23 +46,13 @@ slackBuilderParser = info slackBuilderCommand fullDesc
 slackBuilderCommand :: Parser SlackBuilderCommand
 slackBuilderCommand = subparser
     $ command "category" (info categoryCommand mempty)
-    <> command "exists" (info existsCommand mempty)
-    <> command "download" (info downloadCommand mempty)
     <> command "clone" (info cloneCommand mempty)
-    <> command "deploy" (info deployCommand mempty)
     <> command "up2date" (info up2DateCommand mempty)
   where
     categoryCommand = CategoryCommand
         <$> argument str (metavar "PKGNAM")
-    existsCommand = ExistsCommand <$> argument str (metavar "PATH")
-    downloadCommand = DownloadCommand
-        <$> argument str (metavar "URI")
-        <*> argument str (metavar "TARGET")
     cloneCommand = CloneCommand
         <$> argument str (metavar "REPO")
         <*> argument str (metavar "TARBALL")
         <*> argument str (metavar "TAG_PREFIX")
-    deployCommand = DownloadAndDeployCommand
-        <$> argument str (metavar "URI")
-        <*> argument str (metavar "TARBALL")
     up2DateCommand = pure Up2DateCommand
-- 
cgit v1.2.3