From c9048589c48d43b2fefd1fc71c5793fef90d6c2d Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Fri, 11 Oct 2024 23:54:36 +0700
Subject: [PATCH] Added git revision tracking

Added `transaqConnector_gitrev` field to `Version.hs` to store git revision.
---
 src/Version.hs          | 15 ++++++++++++++-
 transaq-connector.cabal |  1 +
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/Version.hs b/src/Version.hs
index fc2ea7d..b159238 100644
--- a/src/Version.hs
+++ b/src/Version.hs
@@ -1,11 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Version
   (
     transaqConnectorVersion,
-    transaqConnectorVersionText
+    transaqConnectorVersionText,
+    transaqConnector_gitrev
   ) where
 
 import qualified Data.Text               as T
 import           Data.Version
+import           Development.GitRev
 import           Paths_transaq_connector
 
 
@@ -15,3 +18,13 @@ transaqConnectorVersion = version
 transaqConnectorVersionText :: T.Text
 transaqConnectorVersionText = T.pack $ showVersion version
 
+transaqConnector_gitrev :: String
+transaqConnector_gitrev = concat [ "transaq-connector-",
+                            $(gitBranch),
+                            "@",
+                            $(gitHash),
+                            dirty ]
+  where
+    dirty | $(gitDirty) = "+"
+          | otherwise   = ""
+
diff --git a/transaq-connector.cabal b/transaq-connector.cabal
index e144a69..6e4e1c3 100644
--- a/transaq-connector.cabal
+++ b/transaq-connector.cabal
@@ -67,6 +67,7 @@ executable transaq-connector
                      , barbies
                      , xeno
                      , megaparsec
+                     , gitrev
   extra-lib-dirs:      lib
   ghc-options:         -Wall
                        -Wcompat