diff --git a/src/Handler/Health.hs b/src/Handler/Health.hs index 0bb11765b..f0229160c 100644 --- a/src/Handler/Health.hs +++ b/src/Handler/Health.hs @@ -101,26 +101,30 @@ getInstanceR = do -- Most simple page for simple liveness checks getStatusR :: Handler Html -getStatusR = withUrlRenderer +getStatusR = do + currtime <- show <$> liftIO getCurrentTime + withUrlRenderer [hamlet| $doctype 5 Alive <body> + <p> + Current Time {#{currtime}} <p> Compile Time {#{comptime}} + <p> + Alive #{vnr_full} |] {- - <p> - Alive #{vnr_full} <p> Demo #{vnr_demo} <p> CI #{vnr_ci} -} where - -- vnr_full :: Text = $(embedStringFile "./nix/docker/version.json") + 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))