60 lines
2.4 KiB
Haskell
60 lines
2.4 KiB
Haskell
module Main
|
|
( main
|
|
) where
|
|
|
|
import qualified Data.Text.IO as Text.IO
|
|
import Data.Maybe (fromMaybe)
|
|
import Options.Applicative (execParser)
|
|
import SlackBuilder.CommandLine
|
|
import SlackBuilder.Config
|
|
import SlackBuilder.Trans
|
|
import SlackBuilder.Updater
|
|
import qualified Toml
|
|
import qualified Data.Text as Text
|
|
import Control.Monad.Trans.Reader (ReaderT(..))
|
|
import SlackBuilder.Download
|
|
import Text.URI (mkURI)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
programCommand <- execParser slackBuilderParser
|
|
settings <- Toml.decodeFile settingsCodec "config/config.toml"
|
|
latestVersion <- flip runReaderT settings
|
|
$ runSlackBuilderT
|
|
$ executeCommand programCommand
|
|
|
|
Text.IO.putStrLn $ fromMaybe "" latestVersion
|
|
where
|
|
executeCommand = \case
|
|
PackagistCommand packagistArguments ->
|
|
latestPackagist packagistArguments
|
|
TextCommand textArguments -> latestText textArguments
|
|
GhCommand ghArguments@GhArguments{ transform }
|
|
-> latestGitHub ghArguments $ chooseTransformFunction transform
|
|
SlackBuildCommand packagePath version ->
|
|
updateSlackBuildVersion packagePath version >> 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
|
|
| 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
|
|
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
|