From 605b3d6b941ac45086cb9fe755b7f3521a2019f2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 21 Oct 2023 03:30:51 +0100
Subject: [PATCH] imp:cli:Hledger.Cli.Version: export packagemajorversion

---
 hledger/Hledger/Cli/Version.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hledger/Hledger/Cli/Version.hs b/hledger/Hledger/Cli/Version.hs
index 645eb0d46..a0f1143b8 100644
--- a/hledger/Hledger/Cli/Version.hs
+++ b/hledger/Hledger/Cli/Version.hs
@@ -8,6 +8,7 @@ module Hledger.Cli.Version (
   PackageVersion,
   VersionString,
   packageversion,
+  packagemajorversion,
   progname,
   versionStringWith,
 )
@@ -18,6 +19,8 @@ import System.Info (os, arch)
 import Data.List (intercalate)
 import Data.Maybe (fromMaybe)
 
+import Hledger.Utils (splitAtElement)
+
 type ProgramName    = String
 type PackageVersion = String
 type VersionString  = String
@@ -32,6 +35,10 @@ packageversion =
   ""
 #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.
 progname :: ProgramName
 progname = "hledger"