diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-09-24 21:28:01 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-09-24 21:28:01 +0200 |
| commit | f758ea7904e703a16fd70568165f9e4d5d977ddf (patch) | |
| tree | 6e0e28e4961d7a7c44769db37b064d2da4ee22f3 /src | |
| parent | 00cc58f87eeb90bc67c9f2642958161166054b11 (diff) | |
| download | slackbuilder-f758ea7904e703a16fd70568165f9e4d5d977ddf.tar.gz | |
Implement experimental version picking command
... for webex.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/Main.hs b/src/Main.hs index 31186a3..d7adc88 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,7 +6,6 @@ module Main ( main ) where -import Data.Char (isNumber) import Control.Monad.Catch (MonadThrow(..), handle) import Control.Monad.IO.Class (MonadIO(..)) import qualified Data.Map as Map @@ -118,13 +117,9 @@ autoUpdatable packageSettings = } , PackageDescription { latest = - let needle = "Linux—" - textArguments = TextArguments + let textArguments = TextArguments { textURL = fromJust $ getField @"text" setting - , versionPicker = Text.takeWhile (liftA2 (||) (== '.') isNumber) - . Text.drop (Text.length needle) - . snd - . Text.breakOn needle + , versionPicker = Right ["grep", "-oh", "Linux—[[:digit:].]\\+"] } setting = fromJust $ find ((== "webex") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting @@ -153,7 +148,7 @@ autoUpdatable packageSettings = { latest = let textArguments = TextArguments { textURL = fromJust $ getField @"text" setting - , versionPicker = Text.strip + , versionPicker = Left Text.strip } setting = fromJust $ find ((== "dmd") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting @@ -169,7 +164,7 @@ autoUpdatable packageSettings = { latest = let textArguments = TextArguments { textURL = fromJust $ getField @"text" setting - , versionPicker = Text.strip + , versionPicker = Left Text.strip } setting = fromJust $ find ((== "d-tools") . getField @"name") packageSettings template = Package.DownloadTemplate $ getField @"template" setting |