diff options
| author |  Joey Hess <id@joeyh.name> | 2013-05-10 15:26:53 -0500 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2013-05-10 15:26:53 -0500 |
| commit | 220076c0ea1ddb5e51e50a1765b6bf7029ef9f11 (patch) | |
| tree | 2749f3e284f179cdcad3d1fa4141a68e28cbf118 /Build/Configure.hs | |
| parent | ee9520e91bf2209446354c3fb93673ea1091d39c (diff) | |
fix changelog version parse to work on windows
The CHANGELOG file, as a symlink, cannot be read on windows. So read
debian/changelog. Also, newline compat.
Diffstat (limited to 'Build/Configure.hs')
| -rwxr-xr-x[-rw-r--r--] | Build/Configure.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs index 46a3a2452..478869582 100644..100755 --- a/Build/Configure.hs +++ b/Build/Configure.hs @@ -109,8 +109,8 @@ getVersion = do getChangelogVersion :: IO String getChangelogVersion = do - changelog <- readFile "CHANGELOG" - let verline = head $ lines changelog + changelog <- readFile "debian/changelog" + let verline = takeWhile (/= '\n') changelog return $ middle (words verline !! 1) where middle = drop 1 . init |