slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix:setup: refactor, fix a case not returning installed version

Browse Source
This commit is contained in:
Simon Michael 2025-04-22 09:06:27 -10:00
parent 6b5be96d27
commit 2288f5193d
1 changed files with 17 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
hledger/Hledger/Cli/Commands/Setup.hs
View File

@ -175,35 +175,23 @@ setupHledger = do
_ -> p U $ "couldn't detect arch in --version output" _ -> p U $ "couldn't detect arch in --version output"
pdesc "is up to date ?" pdesc "is up to date ?"
elatestversionnumstr <- getLatestHledgerVersion case drop 1 versionwords of
case elatestversionnumstr of [] -> p U "couldn't parse --version output" >> return Nothing
Right latestversionnumstr -> detailedversionstr:_ -> do
case drop 1 versionwords of let
[] -> p U "couldn't parse --version output" >> return Nothing versionnumstr = takeWhile (`elem` ("0123456789." :: String)) detailedversionstr
detailedversionstr:_ -> do mversion = toVersion versionnumstr
let case mversion of
versionnumstr = takeWhile (`elem` ("0123456789." :: String)) detailedversionstr Nothing -> p U "couldn't parse --version's version number" >> return Nothing
mversion = toVersion versionnumstr Just version -> do
mlatestversion = toVersion latestversionnumstr elatestversionnumstr <- getLatestHledgerVersion
case (mversion, mlatestversion) of case elatestversionnumstr of
(Nothing, _) -> p U "couldn't parse --version's version number" >> return Nothing Left e -> p U ("couldn't read " <> latestHledgerVersionUrlStr <> " , " <> e)
(_, Nothing) -> p U "couldn't parse latest version number" >> return Nothing Right latestversionnumstr ->
(Just version, Just latest) -> do case toVersion latestversionnumstr of
p (if version >= latest then Y else N) (versionnumstr <> " installed, latest is " <> latestversionnumstr) Nothing -> p U "couldn't parse latest version number"
return (Just (versionoutput, version)) Just latest -> p (if version >= latest then Y else N) (versionnumstr <> " installed, latest is " <> latestversionnumstr)
Left e -> do return $ Just (versionoutput, version)
-- couldn't detect the latest version, but still return version info for the installed version
-- XXX duplication, refactor
case drop 1 versionwords of
[] -> p U "couldn't parse --version output" >> return Nothing
detailedversionstr:_ -> do
let
versionnumstr = takeWhile (`elem` ("0123456789." :: String)) detailedversionstr
mversion = toVersion versionnumstr
p U ("couldn't read " <> latestHledgerVersionUrlStr <> " : " <> e)
return $ case mversion of
Nothing -> Nothing
Just version -> Just (versionoutput, version)
------------------------------------------------------------------------------ ------------------------------------------------------------------------------