From fd0969ad678e9c9fa47f6e13082378b70b4c1755 Mon Sep 17 00:00:00 2001 From: "marko.kocic" Date: Wed, 23 Sep 2009 09:48:14 +0000 Subject: [PATCH] Hlint: Warning: Use list literal --- Version.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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"