From fd789f84409c43a9ae1ea518780cc25249f82dda Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 10 Dec 2009 22:43:14 +0000
Subject: [PATCH] version number code cleanup

---
 Version.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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