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

fix(status): nix files inaccessible on build server

Browse Source
This commit is contained in:
Steffen Jost 2021-11-22 16:22:14 +01:00
parent c59ecf5019
commit 1bb500ab02
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Handler/Health.hs
View File

@ -13,7 +13,7 @@ import Control.Concurrent.STM.Delay
import Language.Haskell.TH (stringE,runIO) import Language.Haskell.TH (stringE,runIO)
import Data.FileEmbed (embedStringFile) -- import Data.FileEmbed (embedStringFile)
getHealthR :: Handler TypedContent getHealthR :: Handler TypedContent
getHealthR = do getHealthR = do
@ -114,18 +114,8 @@ getStatusR = do
Current Time {#{currtime}} Current Time {#{currtime}}
<p> <p>
Compile Time {#{comptime}} Compile Time {#{comptime}}
<p>
Alive #{vnr_full}
|] |]
{-
<p>
Demo #{vnr_demo}
<p>
CI #{vnr_ci}
-}
where where
vnr_full :: Text = $(embedStringFile "nix/docker/version.json") -- vnr_full :: Text = $(embedStringFile "nix/docker/version.json") -- nix/ files not accessible on build server
-- vnr_demo :: Text = $(embedStringFile "nix/docker/demo-version.json")
-- vnr_ci :: Text = $(embedStringFile "nix/docker/ci-version.json")
comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime)) comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime))