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