Commit 1c741784 by Zachary Snow

use the tag alone as the version for future releases

parent 6082cae4
...@@ -12,7 +12,7 @@ import Control.Monad (when) ...@@ -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 ...@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment