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

better git version checking

Browse source
This commit is contained in:
Joey Hess 2013-08-02 18:31:01 -04:00
parent 1452ac38aa
commit 672cfc3923
7 changed files with 52 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Build/Configure.hs
View file

@ -17,6 +17,7 @@ import Utility.SafeCommand
import Utility.Monad
import Utility.Exception
import Utility.ExternalSHA
import qualified Git.Version
tests :: [TestCase]
tests =
@ -121,10 +122,8 @@ getChangelogVersion = do
middle = drop 1 . init
getGitVersion :: Test
getGitVersion = do
s <- readProcess "git" ["--version"] ""
let version = unwords $ drop 2 $ words $ head $ lines s
return $ Config "gitversion" (StringConfig version)
getGitVersion = Config "gitversion" . StringConfig . show
<$> Git.Version.installed
getSshConnectionCaching :: Test
getSshConnectionCaching = Config "sshconnectioncaching" . BoolConfig <$>