diff --git a/Version.hs b/Version.hs index eb85c03a1..35c144ce3 100644 --- a/Version.hs +++ b/Version.hs @@ -45,7 +45,7 @@ binaryfilename = prettify $ splitAtElement '.' buildversion :: String versionstr = prettify $ splitAtElement '.' buildversion :: String where 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 bugfix' | bugfix `elem` ["0"{-,"98","99"-}] = "" @@ -53,10 +53,6 @@ versionstr = prettify $ splitAtElement '.' buildversion :: String patches' | patches/="0" = "+"++patches++" patches" | otherwise = "" - desc --- | bugfix=="98" = " (alpha)" --- | bugfix=="99" = " (beta)" - | otherwise = "" prettify s = intercalate "." s versionmsg = progname ++ "-" ++ versionstr ++ configmsg :: String