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