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

improve --binary-filename on windows

Browse Source
This commit is contained in:
Simon Michael 2009-06-17 16:18:53 +00:00
parent 29cc846dc0
commit 69227d53ec
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Version.hs
View File

@ -28,7 +28,7 @@ buildversion = version ++ patchlevel :: String
binaryfilename = prettify $ splitAtElement '.' buildversion :: String binaryfilename = prettify $ splitAtElement '.' buildversion :: String
where where
prettify (major:minor:bugfix:patches:[]) = prettify (major:minor:bugfix:patches:[]) =
printf "hledger-%s.%s%s%s-%s-%s" major minor bugfix' patches' os' arch printf "hledger-%s.%s%s%s-%s-%s%s" major minor bugfix' patches' os' arch suffix
where where
bugfix' bugfix'
| bugfix `elem` ["0"{-,"98","99"-}] = "" | bugfix `elem` ["0"{-,"98","99"-}] = ""
@ -36,9 +36,10 @@ binaryfilename = prettify $ splitAtElement '.' buildversion :: String
patches' patches'
| patches/="0" = "+"++patches | patches/="0" = "+"++patches
| otherwise = "" | otherwise = ""
os' (os',suffix)
| os == "darwin" = "mac" | os == "darwin" = ("mac","")
| otherwise = os | os == "mingw32" = ("windows",".exe")
| otherwise = (os,"")
prettify (major:minor:bugfix:[]) = prettify (major:minor:bugfix:"0":[]) prettify (major:minor:bugfix:[]) = prettify (major:minor:bugfix:"0":[])
prettify (major:minor:[]) = prettify (major:minor:"0":"0":[]) prettify (major:minor:[]) = prettify (major:minor:"0":"0":[])
prettify (major:[]) = prettify (major:"0":"0":"0":[]) prettify (major:[]) = prettify (major:"0":"0":"0":[])