diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-08-10 12:47:43 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-08-10 12:47:43 +0200 |
| commit | 5a9e87cd5f65439ef8f2717b3b3e561f42f2e24c (patch) | |
| tree | bf5c0c2d854dbabbb6d95925d63143f1ed75a878 /app | |
| parent | 43ebbc5e6705d2cf86650f1918e28b9b7e94406d (diff) | |
| download | slackbuilder-5a9e87cd5f65439ef8f2717b3b3e561f42f2e24c.tar.gz | |
Move gh check to the Haskell binary
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 10 | ||||
| -rw-r--r-- | app/SlackBuilder/CommandLine.hs | 4 |
2 files changed, 12 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index 7e821e5..6901fa6 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -19,10 +19,18 @@ main = do PackagistCommand packagistArguments -> latestPackagist packagistArguments TextCommand textArguments -> latestText textArguments - GhCommand ghArguments -> latestGitHub settings ghArguments (stripPrefix "v") + GhCommand ghArguments@GhArguments{ transform } -> + latestGitHub settings ghArguments $ chooseTransformFunction transform Text.IO.putStrLn $ fromMaybe "" latestVersion where + 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 diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs index 5680c81..1313abb 100644 --- a/app/SlackBuilder/CommandLine.hs +++ b/app/SlackBuilder/CommandLine.hs @@ -16,7 +16,7 @@ import Options.Applicative , info , fullDesc , subparser - , command + , command, optional ) data SlackBuilderCommand @@ -32,6 +32,7 @@ data PackagistArguments = PackagistArguments data GhArguments = GhArguments { owner :: Text , name :: Text + , transform :: Maybe Text } deriving (Eq, Show) newtype TextArguments = TextArguments Text @@ -48,6 +49,7 @@ ghArguments :: Parser GhArguments ghArguments = GhArguments <$> argument str (metavar "OWNER") <*> argument str (metavar "NAME") + <*> optional (argument str (metavar "TRANSFORM")) slackBuilderParser :: ParserInfo SlackBuilderCommand slackBuilderParser = info slackBuilderCommand fullDesc |