1{- git build version
2 -
3 - Copyright 2011 Joey Hess <id@joeyh.name>
4 -
5 - Licensed under the GNU AGPL version 3 or higher.
6 -}
7
8module Git.BuildVersion where
9
10import Git.Version
11import qualified BuildInfo
12
13{- Using the version it was configured for avoids running git to check its
14 - version, at the cost that upgrading git won't be noticed.
15 - This is only acceptable because it's rare that git's version influences
16 - code's behavior. -}
17buildVersion :: GitVersion
18buildVersion = normalize BuildInfo.gitversion
19
20older :: String -> Bool
21older n = buildVersion < normalize n
22