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

Hlint: Warning: Use list literal

Browse Source
This commit is contained in:
marko.kocic 2009-09-23 09:48:14 +00:00
parent 1690de8d00
commit fd0969ad67
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Version.hs
View File

@ -36,9 +36,9 @@ binaryfilename = prettify $ splitAtElement '.' buildversion :: String
| os == "darwin" = ("mac","")
| os == "mingw32" = ("windows",".exe")
| otherwise = (os,"")
prettify (major:minor:bugfix:[]) = prettify (major:minor:bugfix:"0":[])
prettify (major:minor:[]) = prettify (major:minor:"0":"0":[])
prettify (major:[]) = prettify (major:"0":"0":"0":[])
prettify (major:minor:bugfix:[]) = prettify [major,minor,bugfix,"0"]
prettify (major:minor:[]) = prettify [major,minor,"0","0"]
prettify (major:[]) = prettify [major,"0","0","0"]
prettify [] = error "VERSION is empty, please fix"
prettify _ = error "VERSION has too many components, please fix"