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 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
<head>
<title>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")
-- 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))