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

version number code cleanup

Browse Source
This commit is contained in:
Simon Michael 2009-12-10 22:43:14 +00:00
parent 9b6f5e26d0
commit fd789f8440
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Version.hs
View File

@ -45,7 +45,7 @@ binaryfilename = prettify $ splitAtElement '.' buildversion :: String
versionstr = prettify $ splitAtElement '.' buildversion :: String versionstr = prettify $ splitAtElement '.' buildversion :: String
where where
prettify (major:minor:bugfix:patches:[]) = prettify (major:minor:bugfix:patches:[]) =
printf "%s.%s%s%s%s" major minor bugfix' patches' desc printf "%s.%s%s%s" major minor bugfix' patches'
where where
bugfix' bugfix'
| bugfix `elem` ["0"{-,"98","99"-}] = "" | bugfix `elem` ["0"{-,"98","99"-}] = ""
@ -53,10 +53,6 @@ versionstr = prettify $ splitAtElement '.' buildversion :: String
patches' patches'
| patches/="0" = "+"++patches++" patches" | patches/="0" = "+"++patches++" patches"
| otherwise = "" | otherwise = ""
desc
-- | bugfix=="98" = " (alpha)"
-- | bugfix=="99" = " (beta)"
| otherwise = ""
prettify s = intercalate "." s prettify s = intercalate "." s
versionmsg = progname ++ "-" ++ versionstr ++ configmsg :: String versionmsg = progname ++ "-" ++ versionstr ++ configmsg :: String