Sanitize debian changelog version before putting it into cabal file. Closes: #708619

Build/Configure.hs

@@ -10,6 +10,7 @@ import System.FilePath
 import System.Environment
 import Data.Maybe
 import Control.Monad.IfElse
+import Data.Char
 
 import Build.TestConfig
 import Utility.SafeCommand
@@ -129,7 +130,8 @@ getSshConnectionCaching = Config "sshconnectioncaching" . BoolConfig <$>
 {- Set up cabal file with version. -}
 cabalSetup :: IO ()
 cabalSetup = do
-	version <- takeWhile (/= '~') <$> getChangelogVersion
+	version <- takeWhile (\c -> isDigit c || c == '.')
+		<$> getChangelogVersion
 	cabal <- readFile cabalfile
 	writeFile tmpcabalfile $ unlines $ 
 		map (setfield "Version" version) $

debian/changelog

@@ -1,3 +1,10 @@
+git-annex (4.20130517) UNRELEASED; urgency=low
+
+  * Sanitize debian changelog version before putting it into cabal file.
+    Closes: #708619
+
+ -- Joey Hess <joeyh@debian.org>  Fri, 17 May 2013 11:17:03 -0400
+
 git-annex (4.20130516) unstable; urgency=low
 
   * Android: The webapp is ported and working.