chore(status): show environment variable VERSION_NR

2023-05-03 16:43:29 +00:00 · 2023-05-03 16:43:29 +00:00 · 96a81cf85d
commit 96a81cf85d
parent 73a62a653b
1 changed files with 6 additions and 1 deletions
--- 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
        <head>        
          <title>Status
        <body>
+          $maybe env_ver <- env_version
+            <p>
+              Environment version #{env_ver}
          <p> 
            Current Time <br> 
            #{show currtime} <br>