{-# LANGUAGE TemplateHaskell #-}

-- | Podenv version
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
""