diff options
Diffstat (limited to 'configure.hs')
-rw-r--r-- | configure.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/configure.hs b/configure.hs index c81aa17e6..2e39feb16 100644 --- a/configure.hs +++ b/configure.hs @@ -56,12 +56,24 @@ unicodeFilePath = do {- Pulls package version out of the changelog. -} getVersion :: Test getVersion = do - changelog <- readFile "debian/changelog" + changelog <- readFile "CHANGELOG" let verline = head $ lines changelog let version = middle (words verline !! 1) + + -- Replace Version field in cabal file, so I don't have to maintain + -- the version there too. + cabal <- readFile cabalfile + writeFile tmpcabalfile $ unlines $ map (setversion version) $ lines cabal + renameFile tmpcabalfile cabalfile + return $ Config "packageversion" (StringConfig version) where middle s = drop 1 $ take (length s - 1) s + cabalfile = "git-annex.cabal" + tmpcabalfile = cabalfile++".tmp" + setversion version s + | "Version:" `isPrefixOf` s = "Version: " ++ version + | otherwise = s setup :: IO () setup = do |