{-# LANGUAGE TemplateHaskell #-}
module Podenv.Version (version) where
import Development.GitRev (gitDirty, gitHash)
import Language.Haskell.TH.Env (envQ)
version :: String
version :: String
version = case Maybe String
fromEnv of
Just String
v -> String
v
Maybe String
Nothing -> $(String
gitHash) String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
dirty
where
fromEnv :: Maybe String
fromEnv :: Maybe String
fromEnv = $$(envQ "PODENV_COMMIT")
dirty :: String
dirty
| $(Bool
gitDirty) = String
"-dirty"
| Bool
otherwise = String
""