diff --git a/src/Handler/Health.hs b/src/Handler/Health.hs index a34361191..aad83d566 100644 --- a/src/Handler/Health.hs +++ b/src/Handler/Health.hs @@ -17,6 +17,8 @@ import qualified Data.Set as Set import Control.Concurrent.STM.Delay +import System.Environment (lookupEnv) -- while git version number is not working + -- import Data.FileEmbed (embedStringFile) getHealthR :: Handler TypedContent @@ -107,7 +109,7 @@ getInstanceR = do getStatusR :: Handler Html getStatusR = do starttime <- getsYesod appStartTime - currtime <- liftIO getCurrentTime + (currtime, env_version) <- liftIO $ (,) <$> getCurrentTime <*> lookupEnv "VERSION_NR" -- ft <- formatTime' "%Y-%m-%d %H:%M:%S" currtime withUrlRenderer [hamlet| @@ -116,6 +118,9 @@ getStatusR = do Status <body> + $maybe env_ver <- env_version + <p> + Environment version #{env_ver} <p> Current Time <br> #{show currtime} <br>