luke/sv2v
1
0
Fork 0
mirror of https://github.com/zachjs/sv2v.git synced 2026-08-22 05:47:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

use the tag alone as the version for future releases

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/Job.hs
+2 -2
View File
@@ -12,7 +12,7 @@ import Control.Monad (when)
import Data.Char (toLower) import Data.Char (toLower)
import Data.List (isPrefixOf, isSuffixOf) import Data.List (isPrefixOf, isSuffixOf)
import Data.Version (showVersion) import Data.Version (showVersion)
import GitHash (giDescribe, tGitInfoCwdTry) import GitHash (giTag, tGitInfoCwdTry)
import qualified Paths_sv2v (version) import qualified Paths_sv2v (version)
import System.IO (stderr, hPutStr) import System.IO (stderr, hPutStr)
import System.Console.CmdArgs import System.Console.CmdArgs
@@ -54,7 +54,7 @@ data Job = Job
} deriving (Typeable, Data) } deriving (Typeable, Data)
version :: String version :: String
version = either (const backup) giDescribe $$tGitInfoCwdTry version = either (const backup) giTag $$tGitInfoCwdTry
where backup = showVersion Paths_sv2v.version where backup = showVersion Paths_sv2v.version
defaultJob :: Job defaultJob :: Job