go go gadget hlint

2011-09-20 23:24:48 -04:00 · 2011-09-20 23:24:48 -04:00 · 9f6b7935dd
commit 9f6b7935dd
parent 9d26192350
21 changed files with 35 additions and 37 deletions
--- a/configure.hs
+++ b/configure.hs
@ -51,7 +51,7 @@ getVersionString = do
 	let verline = head $ lines changelog
 	return $ middle (words verline !! 1)
 	where
-		middle s = drop 1 $ take (length s - 1) s
+		middle = drop 1 . init

 {- Set up cabal file with version. -}
 cabalSetup :: IO ()