diff options
author | Jasper Van der Jeugt | 2020-08-16 12:33:35 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-16 12:33:35 +0200 |
commit | 915aa0a168dce36013193be1c76a8448e3417556 (patch) | |
tree | b2e669581db6ab32b8851f0436f1ed6636e8e870 /server/lib/Uplcg/Version.hs | |
parent | e0555c0fc44404befef4eeb51bb7745a79cac1a5 (diff) | |
parent | d543ef8b1f68a23f9bc3706363fc3807ccbabf30 (diff) |
Merge branch 'list-rooms' into main
Diffstat (limited to 'server/lib/Uplcg/Version.hs')
-rw-r--r-- | server/lib/Uplcg/Version.hs | 17 |
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) ++ + ")" |