|
|
|
@ -1,11 +1,14 @@ |
|
|
|
|
|
|
|
{-# LANGUAGE TemplateHaskell #-} |
|
|
|
module Version |
|
|
|
module Version |
|
|
|
( |
|
|
|
( |
|
|
|
transaqConnectorVersion, |
|
|
|
transaqConnectorVersion, |
|
|
|
transaqConnectorVersionText |
|
|
|
transaqConnectorVersionText, |
|
|
|
|
|
|
|
transaqConnector_gitrev |
|
|
|
) where |
|
|
|
) where |
|
|
|
|
|
|
|
|
|
|
|
import qualified Data.Text as T |
|
|
|
import qualified Data.Text as T |
|
|
|
import Data.Version |
|
|
|
import Data.Version |
|
|
|
|
|
|
|
import Development.GitRev |
|
|
|
import Paths_transaq_connector |
|
|
|
import Paths_transaq_connector |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -15,3 +18,13 @@ transaqConnectorVersion = version |
|
|
|
transaqConnectorVersionText :: T.Text |
|
|
|
transaqConnectorVersionText :: T.Text |
|
|
|
transaqConnectorVersionText = T.pack $ showVersion version |
|
|
|
transaqConnectorVersionText = T.pack $ showVersion version |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
transaqConnector_gitrev :: String |
|
|
|
|
|
|
|
transaqConnector_gitrev = concat [ "transaq-connector-", |
|
|
|
|
|
|
|
$(gitBranch), |
|
|
|
|
|
|
|
"@", |
|
|
|
|
|
|
|
$(gitHash), |
|
|
|
|
|
|
|
dirty ] |
|
|
|
|
|
|
|
where |
|
|
|
|
|
|
|
dirty | $(gitDirty) = "+" |
|
|
|
|
|
|
|
| otherwise = "" |
|
|
|
|
|
|
|
|
|
|
|
|