diff options
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/Version.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/Version.hs b/Build/Version.hs index e34237e5b..7ff2fe662 100644 --- a/Build/Version.hs +++ b/Build/Version.hs @@ -32,7 +32,7 @@ getVersion = do ( return changelogversion , catchDefaultIO changelogversion $ do let major = takeWhile (/= '.') changelogversion - autoversion <- takeWhile isAlphaNum <$> readProcess "sh" + autoversion <- takeWhile (\c -> isAlphaNum c || c == '-') <$> readProcess "sh" [ "-c" , "git log -n 1 --format=format:'%ci %h'| sed -e 's/-//g' -e 's/ .* /-g/'" ] "" |