fix(status): nix files inaccessible on build server

This commit is contained in:
Steffen Jost 2021-11-22 16:22:14 +01:00
parent c59ecf5019
commit 1bb500ab02

View File

@ -13,7 +13,7 @@ import Control.Concurrent.STM.Delay
import Language.Haskell.TH (stringE,runIO)
import Data.FileEmbed (embedStringFile)
-- import Data.FileEmbed (embedStringFile)
getHealthR :: Handler TypedContent
getHealthR = do
@ -114,18 +114,8 @@ getStatusR = do
Current Time {#{currtime}}
<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") -- nix/ files not accessible on build server
comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime))