diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-11-04 14:13:59 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-11-04 14:13:59 +0100 |
| commit | 9770cc8829d6fdacd1ae02e1f78fcf270e5a5503 (patch) | |
| tree | 7f730f5e0708366f8eb5788acd268636825b88cc /app | |
| parent | 0023fe033731180afe8bc2242c2a512b31b8c0bf (diff) | |
| download | slackbuilder-9770cc8829d6fdacd1ae02e1f78fcf270e5a5503.tar.gz | |
Remove gem and rake support files
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 8 | ||||
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 13 |
2 files changed, 0 insertions, 21 deletions
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 |