diff --git a/Version.hs b/Version.hs index 27cd956a1..1b373cc12 100644 --- a/Version.hs +++ b/Version.hs @@ -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"