slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

imp:cli:Hledger.Cli.Version: export packagemajorversion

Browse Source
This commit is contained in:
Simon Michael 2023-10-21 03:30:51 +01:00
parent b5bf0cbdb9
commit 605b3d6b94
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger/Hledger/Cli/Version.hs
View File

@ -8,6 +8,7 @@ module Hledger.Cli.Version (
PackageVersion, PackageVersion,
VersionString, VersionString,
packageversion, packageversion,
packagemajorversion,
progname, progname,
versionStringWith, versionStringWith,
) )
@ -18,6 +19,8 @@ import System.Info (os, arch)
import Data.List (intercalate) import Data.List (intercalate)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Hledger.Utils (splitAtElement)
type ProgramName = String type ProgramName = String
type PackageVersion = String type PackageVersion = String
type VersionString = String type VersionString = String
@ -32,6 +35,10 @@ packageversion =
"" ""
#endif #endif
-- | Just the first 1-2 components of packageversion.
packagemajorversion :: PackageVersion
packagemajorversion = intercalate "." $ take 2 $ splitAtElement '.' packageversion
-- | The name of this package's main executable. -- | The name of this package's main executable.
progname :: ProgramName progname :: ProgramName
progname = "hledger" progname = "hledger"