From 8130eb6b7f6a14be6fa6bbab73eb47622736e28e Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 28 Oct 2021 11:22:33 +0200 Subject: [PATCH] fix(health): include compile time instead of version number --- src/Handler/Health.hs | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/src/Handler/Health.hs b/src/Handler/Health.hs index 7d0fa38d6..0bb11765b 100644 --- a/src/Handler/Health.hs +++ b/src/Handler/Health.hs @@ -11,8 +11,9 @@ import qualified Data.Set as Set import Control.Concurrent.STM.Delay -import Data.FileEmbed (embedStringFile) +import Language.Haskell.TH (stringE,runIO) +-- import Data.FileEmbed (embedStringFile) getHealthR :: Handler TypedContent getHealthR = do @@ -97,8 +98,9 @@ getInstanceR = do provideJson instanceInfo provideRep . return $ tshow instanceInfo + -- Most simple page for simple liveness checks -getStatusR :: Handler Html +getStatusR :: Handler Html getStatusR = withUrlRenderer [hamlet| $doctype 5 @@ -106,15 +108,20 @@ getStatusR = withUrlRenderer Alive <body> + <p> + Compile Time {#{comptime}} + |] + {- <p> Alive #{vnr_full} <p> Demo #{vnr_demo} <p> CI #{vnr_ci} - |] + -} where - vnr_full :: Text = $(embedStringFile "./nix/docker/version.json") - vnr_demo :: Text = $(embedStringFile "./nix/docker/demo-version.json") - vnr_ci :: Text = $(embedStringFile "./nix/docker/ci-version.json") - \ No newline at end of file + -- vnr_full :: Text = $(embedStringFile "./nix/docker/version.json") + -- vnr_demo :: Text = $(embedStringFile "./nix/docker/demo-version.json") + -- vnr_ci :: Text = $(embedStringFile "./nix/docker/ci-version.json") + comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime)) + \ No newline at end of file