diff --git a/src/Handler/Health.hs b/src/Handler/Health.hs index dc8949226..8cc60de6d 100644 --- a/src/Handler/Health.hs +++ b/src/Handler/Health.hs @@ -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}}
Compile Time {#{comptime}} -
- Alive #{vnr_full} |] - {- -
- Demo #{vnr_demo} -
- 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)) \ No newline at end of file