fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(health): include compile time instead of version number

Browse Source
This commit is contained in:
Steffen Jost 2021-10-28 11:22:33 +02:00
parent ecdb22aa61
commit 8130eb6b7f
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Handler/Health.hs
View File

@ -11,8 +11,9 @@ import qualified Data.Set as Set
import Control.Concurrent.STM.Delay import Control.Concurrent.STM.Delay
import Data.FileEmbed (embedStringFile) import Language.Haskell.TH (stringE,runIO)
-- import Data.FileEmbed (embedStringFile)
getHealthR :: Handler TypedContent getHealthR :: Handler TypedContent
getHealthR = do getHealthR = do
@ -97,8 +98,9 @@ getInstanceR = do
provideJson instanceInfo provideJson instanceInfo
provideRep . return $ tshow instanceInfo provideRep . return $ tshow instanceInfo
-- Most simple page for simple liveness checks -- Most simple page for simple liveness checks
getStatusR :: Handler Html getStatusR :: Handler Html
getStatusR = withUrlRenderer getStatusR = withUrlRenderer
[hamlet| [hamlet|
$doctype 5 $doctype 5
@ -106,15 +108,20 @@ getStatusR = withUrlRenderer
<head> <head>
<title>Alive <title>Alive
<body> <body>
<p>
Compile Time {#{comptime}}
|]
{-
<p> <p>
Alive #{vnr_full} Alive #{vnr_full}
<p> <p>
Demo #{vnr_demo} Demo #{vnr_demo}
<p> <p>
CI #{vnr_ci} CI #{vnr_ci}
|] -}
where 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_demo :: Text = $(embedStringFile "./nix/docker/demo-version.json")
vnr_ci :: Text = $(embedStringFile "./nix/docker/ci-version.json") -- vnr_ci :: Text = $(embedStringFile "./nix/docker/ci-version.json")
comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime))