fix(status): nix files inaccessible on build server
This commit is contained in:
parent
c59ecf5019
commit
1bb500ab02
@ -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))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user