git-annex/Git/Version.hs

{- git versions
 -
 - Copyright 2011, 2013 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Git.Version (
	installed,
	older,
	normalize,
	GitVersion,
) where

import Common
import Utility.DottedVersion

type GitVersion = DottedVersion

installed :: IO GitVersion
installed = normalize . extract <$> readProcess "git" ["--version"]
  where
	extract s = case lines s of
		[] -> ""
		(l:_) -> unwords $ drop 2 $ words l

older :: String -> IO Bool
older n = do
	v <- installed
	return $ v < normalize n
better git version checking 2013-08-02 18:31:01 -04:00			`{- git versions`
Can now be built with older git versions (before 1.7.7); the resulting binary should only be used with old git. Remove git old version check from configure, and use the git version it was built against in the git check-attr code. 2011-12-22 14:59:25 -04:00			`-`
update my email address and homepage url 2015-01-21 12:50:09 -04:00			`- Copyright 2011, 2013 Joey Hess <id@joeyh.name>`
Can now be built with older git versions (before 1.7.7); the resulting binary should only be used with old git. Remove git old version check from configure, and use the git version it was built against in the git check-attr code. 2011-12-22 14:59:25 -04:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 14:04:40 -04:00			`module Git.Version (`
			`installed,`
Check git version at runtime, rather than assuming it will be the same as the git version used at build time when running git-checkattr and git-branch remove. It's ok to probe every time for git-branch remove because that's run quite rarely. For git-checkattr, it's run only once, when starting the --batch mode, and so again the overhead is pretty minimal. This leaves 2 places where the build version is still used. git merge might be interactive or fail if one skews, and --no-gpg-sign might not be pased, or might be passed to a git that doesn't understand it if the other skews. It seems a little expensive to check the git version each time these are used. This doesn't seem likely to cause many problems, at least compared with check-attr hanging on skew. 2015-01-05 15:54:52 -04:00			`older,`
Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 14:04:40 -04:00			`normalize,`
			`GitVersion,`
			`) where`
Can now be built with older git versions (before 1.7.7); the resulting binary should only be used with old git. Remove git old version check from configure, and use the git version it was built against in the git check-attr code. 2011-12-22 14:59:25 -04:00
			`import Common`
Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 14:04:40 -04:00			`import Utility.DottedVersion`
Can now be built with older git versions (before 1.7.7); the resulting binary should only be used with old git. Remove git old version check from configure, and use the git version it was built against in the git check-attr code. 2011-12-22 14:59:25 -04:00
Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 14:04:40 -04:00			`type GitVersion = DottedVersion`
better git version checking 2013-08-02 18:31:01 -04:00
			`installed :: IO GitVersion`
			`installed = normalize . extract <$> readProcess "git" ["--version"]`
			`where`
fix some mixed space+tab indentation This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast. 2014-10-09 14:53:13 -04:00			`extract s = case lines s of`
better git version checking 2013-08-02 18:31:01 -04:00			`[] -> ""`
			`(l:_) -> unwords $ drop 2 $ words l`
Check git version at runtime, rather than assuming it will be the same as the git version used at build time when running git-checkattr and git-branch remove. It's ok to probe every time for git-branch remove because that's run quite rarely. For git-checkattr, it's run only once, when starting the --batch mode, and so again the overhead is pretty minimal. This leaves 2 places where the build version is still used. git merge might be interactive or fail if one skews, and --no-gpg-sign might not be pased, or might be passed to a git that doesn't understand it if the other skews. It seems a little expensive to check the git version each time these are used. This doesn't seem likely to cause many problems, at least compared with check-attr hanging on skew. 2015-01-05 15:54:52 -04:00
			`older :: String -> IO Bool`
			`older n = do`
			`v <- installed`
			`return $ v < normalize n`