From 96a81cf85d58e68fce2f482647f72e82b7244ba3 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 3 May 2023 16:43:29 +0000 Subject: [PATCH] chore(status): show environment variable VERSION_NR --- src/Handler/Health.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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>