Implement experimental version picking command

... for webex.

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