Merge branch 'list-rooms' into main

1 files changed, 17 insertions, 0 deletions

diff --git a/server/lib/Uplcg/Version.hs b/server/lib/Uplcg/Version.hs
new file mode 100644
index 0000000..b718a10
--- /dev/null
+++ b/server/lib/Uplcg/Version.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Uplcg.Version
+    ( version
+    ) where
+
+import           Control.Monad.Trans (liftIO)
+import           Data.Version        (showVersion)
+import qualified Language.Haskell.TH as TH
+import qualified Paths_uplcg
+import           System.Process      (readProcess)
+
+version :: String
+version = showVersion Paths_uplcg.version ++ " (" ++
+    $(do
+        hash <- liftIO $ readProcess "git" ["rev-parse", "HEAD"] ""
+        pure . TH.LitE . TH.StringL $ take 8 hash) ++
+    ")"