2013-08-02 22:31:01 +00:00
|
|
|
{- git build version
|
|
|
|
|
-
|
2015-01-21 16:50:09 +00:00
|
|
|
- Copyright 2011 Joey Hess <id@joeyh.name>
|
2013-08-02 22:31:01 +00:00
|
|
|
-
|
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
|
-}
|
|
|
|
|
|
|
|
|
|
module Git.BuildVersion where
|
|
|
|
|
|
|
|
|
|
import Git.Version
|
|
|
|
|
import qualified Build.SysConfig
|
|
|
|
|
|
|
|
|
|
{- Using the version it was configured for avoids running git to check its
|
|
|
|
|
- version, at the cost that upgrading git won't be noticed.
|
|
|
|
|
- This is only acceptable because it's rare that git's version influences
|
|
|
|
|
- code's behavior. -}
|
|
|
|
|
buildVersion :: GitVersion
|
|
|
|
|
buildVersion = normalize Build.SysConfig.gitversion
|
|
|
|
|
|
|
|
|
|
older :: String -> Bool
|
|
|
|
|
older n = buildVersion < normalize n
|
