diff options
Diffstat (limited to 'src/Main.hs')
| -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 |