diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-11-03 18:09:36 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-11-03 18:09:36 +0100 |
| commit | 0023fe033731180afe8bc2242c2a512b31b8c0bf (patch) | |
| tree | 74644e69836f08164c13722b70eb08ea047cad63 /app | |
| parent | 24e62c343946e0413648f14a1d17fb2007b91a86 (diff) | |
| download | slackbuilder-0023fe033731180afe8bc2242c2a512b31b8c0bf.tar.gz | |
Remove unused tasks
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 4 | ||||
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 12 |
2 files changed, 0 insertions, 16 deletions
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") |