diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 4 | ||||
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 5 |
2 files changed, 1 insertions, 8 deletions
diff --git a/app/Main.hs b/app/Main.hs index 1793657..0337fba 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -385,7 +385,7 @@ updatePackage package@Package{..} info version = do , checksums = getField @"md5sum" <$> allDownloads } liftIO $ Text.IO.writeFile infoFilePath $ generate package' - updateSlackBuildVersion packagePath version + updateSlackBuildVersion packagePath version $ snd <$> moreDownloads commit packagePath version @@ -416,8 +416,6 @@ main = do categories <- liftIO $ findCategory repository' liftIO $ print $ splitFileName . makeRelative repository' <$> categories pure Nothing - SlackBuildCommand packagePath version -> - updateSlackBuildVersion packagePath version >> pure Nothing CommitCommand packagePath version -> commit packagePath version >> pure Nothing ExistsCommand urlPath -> pure . Text.pack . show diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 4890567..1b51b89 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -21,7 +21,6 @@ import Options.Applicative data SlackBuilderCommand = CategoryCommand Text - | SlackBuildCommand Text Text | CommitCommand Text Text | ExistsCommand Text | ArchiveCommand Text Text String Text @@ -52,7 +51,6 @@ slackBuilderParser = info slackBuilderCommand fullDesc slackBuilderCommand :: Parser SlackBuilderCommand slackBuilderCommand = subparser $ command "category" (info categoryCommand mempty) - <> command "slackbuild" (info slackBuildCommand mempty) <> command "commit" (info commitCommand mempty) <> command "exists" (info existsCommand mempty) <> command "archive" (info archiveCommand mempty) @@ -63,9 +61,6 @@ slackBuilderCommand = subparser where categoryCommand = CategoryCommand <$> argument str (metavar "PKGNAM") - slackBuildCommand = SlackBuildCommand - <$> argument str (metavar "PATH") - <*> argument str (metavar "VERSION") commitCommand = CommitCommand <$> argument str (metavar "PATH") <*> argument str (metavar "VERSION") |