luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

use the tag alone as the version for future releases

This commit is contained in:
Zachary Snow 2023-06-24 12:51:42 -04:00
parent 6082cae4d1
commit 1c74178417
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Job.hs
View File

@ -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