diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 34 |
1 files changed, 21 insertions, 13 deletions
diff --git a/app/Main.hs b/app/Main.hs index ec9f310..99be344 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -93,7 +93,8 @@ autoUpdatable = , transform = Nothing } checkVersion x - | Text.isPrefixOf "php-8.2." x = Text.stripPrefix "php-" x + | not $ Text.isInfixOf "RC" x + , Text.isPrefixOf "php-8.2." x = Text.stripPrefix "php-" x | otherwise = Nothing latest' = latestGitHub ghArguments checkVersion template = Package.DownloadTemplate @@ -127,6 +128,25 @@ autoUpdatable = , name = "kitty" , reupload = Just [RawCommand "go" ["mod", "vendor"]] } + , Package + { latest = + let ghArguments = GhArguments + { owner = "rdiff-backup" + , name = "rdiff-backup" + , transform = Nothing + } + latest' = latestGitHub ghArguments $ Text.stripPrefix "v" + template = Package.DownloadTemplate + $ Package.StaticPlaceholder "https://github.com/rdiff-backup/rdiff-backup/releases/download/v" + :| Package.VersionPlaceholder + : Package.StaticPlaceholder "/rdiff-backup-" + : Package.VersionPlaceholder + : [Package.StaticPlaceholder ".tar.gz"] + in Package.Updater latest' template + , category = "system" + , name = "rdiff-backup" + , reupload = Just mempty + } ] up2Date :: SlackBuilderT () @@ -227,8 +247,6 @@ main = do where executeCommand = \case TextCommand textArguments -> latestText textArguments - GhCommand ghArguments@GhArguments{ transform } - -> latestGitHub ghArguments $ chooseTransformFunction transform SlackBuildCommand packagePath version -> updateSlackBuildVersion packagePath version >> pure Nothing CommitCommand packagePath version -> @@ -246,13 +264,3 @@ main = do DownloadAndDeployCommand uri' tarball -> fmap (Text.pack . show) <$> downloadAndDeploy uri' tarball Up2DateCommand -> up2Date >> pure Nothing - chooseTransformFunction (Just "php") = phpTransform - chooseTransformFunction (Just "rdiff-backup") = Text.stripPrefix "v" - chooseTransformFunction _ = stripPrefix "v" - stripPrefix prefix string = Just - $ fromMaybe string - $ Text.stripPrefix prefix string - phpTransform version - | (majorPrefix, _patchVersion) <- Text.breakOnEnd "." version - , majorPrefix == "php-8.2." = Just $ Text.drop (Text.length "php-") version - | otherwise = Nothing |