diff options
author | Jasper Van der Jeugt | 2020-08-16 12:29:31 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-16 12:29:31 +0200 |
commit | 5a3fc14c1a92b28423d1b64b64e12d0502a90219 (patch) | |
tree | e013cf42b8c2b04d1ebb04914335df1ab2eec048 /server/lib/Uplcg/Version.hs | |
parent | 9f2d12f0b098a365d7b0d4cc00b03fd2e5284740 (diff) |
Move client to server
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) ++ + ")" |