mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix changelog version parse to work on windows

Browse source 
The CHANGELOG file, as a symlink, cannot be read on windows. So read
debian/changelog. Also, newline compat.
This commit is contained in:
Joey Hess 2013-05-10 15:26:53 -05:00
parent 258af9c6da
commit 524ffd1e68
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Build/Configure.hs Normal file → Executable file
View file

@ -109,8 +109,8 @@ getVersion = do
getChangelogVersion :: IO String getChangelogVersion :: IO String
getChangelogVersion = do getChangelogVersion = do
changelog <- readFile "CHANGELOG" changelog <- readFile "debian/changelog"
let verline = head $ lines changelog let verline = takeWhile (/= '\n') changelog
return $ middle (words verline !! 1) return $ middle (words verline !! 1)
where where
middle = drop 1 . init middle = drop 1 . init