diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-09-27 12:20:34 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-09-27 12:20:34 +0200 |
| commit | ebbdb6f0f798982fb337b4fd32127e4cb188aecd (patch) | |
| tree | 65aa8817581f03911961b1098ee159ba995e62d4 /src | |
| parent | f758ea7904e703a16fd70568165f9e4d5d977ddf (diff) | |
| download | slackbuilder-ebbdb6f0f798982fb337b4fd32127e4cb188aecd.tar.gz | |
Make version picker a command
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/src/Main.hs b/src/Main.hs index d7adc88..17546fb 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -17,7 +17,6 @@ import SlackBuilder.LatestVersionCheck import SlackBuilder.Update import qualified Toml import Data.Text (Text) -import qualified Data.Text as Text import qualified Data.Text.IO as Text import Control.Monad.Trans.Reader (ReaderT(..), asks) import SlackBuilder.Package (PackageDescription(..)) @@ -117,10 +116,7 @@ autoUpdatable packageSettings = } , PackageDescription { latest = - let textArguments = TextArguments - { textURL = fromJust $ getField @"text" setting - , versionPicker = Right ["grep", "-oh", "Linux—[[:digit:].]\\+"] - } + let textArguments = uncurry TextArguments $ fromJust $ getField @"text" setting setting = fromJust $ find ((== "webex") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting in Package.Updater @@ -146,10 +142,7 @@ autoUpdatable packageSettings = } , PackageDescription { latest = - let textArguments = TextArguments - { textURL = fromJust $ getField @"text" setting - , versionPicker = Left Text.strip - } + let textArguments = uncurry TextArguments $ fromJust $ getField @"text" setting setting = fromJust $ find ((== "dmd") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting in Package.Updater @@ -162,10 +155,7 @@ autoUpdatable packageSettings = } , PackageDescription { latest = - let textArguments = TextArguments - { textURL = fromJust $ getField @"text" setting - , versionPicker = Left Text.strip - } + let textArguments = uncurry TextArguments $ fromJust $ getField @"text" setting setting = fromJust $ find ((== "d-tools") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting in Package.Updater |