From 1c7417841773d8dd617ca9d559dcb25c17c428df Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sat, 24 Jun 2023 12:51:42 -0400 Subject: [PATCH] use the tag alone as the version for future releases --- src/Job.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Job.hs b/src/Job.hs index d8f6d48..02d984a 100644 --- a/src/Job.hs +++ b/src/Job.hs @@ -12,7 +12,7 @@ import Control.Monad (when) import Data.Char (toLower) import Data.List (isPrefixOf, isSuffixOf) import Data.Version (showVersion) -import GitHash (giDescribe, tGitInfoCwdTry) +import GitHash (giTag, tGitInfoCwdTry) import qualified Paths_sv2v (version) import System.IO (stderr, hPutStr) import System.Console.CmdArgs @@ -54,7 +54,7 @@ data Job = Job } deriving (Typeable, Data) version :: String -version = either (const backup) giDescribe $$tGitInfoCwdTry +version = either (const backup) giTag $$tGitInfoCwdTry where backup = showVersion Paths_sv2v.version defaultJob :: Job