git-annex/Git/Version.hs

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

module Git.Version (
	installed,
	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
better git version checking 2013-08-02 22:31:01 +00: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 18:59:25 +00:00			`-`
better git version checking 2013-08-02 22:31:01 +00:00			`- Copyright 2011, 2013 Joey Hess <joey@kitenet.net>`
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 18:59:25 +00: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 18:04:40 +00:00			`module Git.Version (`
			`installed,`
			`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 18:59:25 +00:00
			`import Common`
Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 18:04:40 +00: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 18:59:25 +00:00
Use wget -q --show-progress for less verbose wget output, when built with wget 1.16. 2014-12-16 18:04:40 +00:00			`type GitVersion = DottedVersion`
better git version checking 2013-08-02 22:31:01 +00: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 18:53:13 +00:00			`extract s = case lines s of`
better git version checking 2013-08-02 22:31:01 +00:00			`[] -> ""`
			`(l:_) -> unwords $ drop 2 $ words l`