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

fix(status): module imports fixed

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

8
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
@ -124,8 +124,8 @@ getStatusR = do
CI #{vnr_ci} CI #{vnr_ci}
-} -}
where where
vnr_full :: Text = $(embedStringFile "./nix/docker/version.json") vnr_full :: Text = $(embedStringFile "nix/docker/version.json")
-- vnr_demo :: Text = $(embedStringFile "./nix/docker/demo-version.json") -- vnr_demo :: Text = $(embedStringFile "nix/docker/demo-version.json")
-- vnr_ci :: Text = $(embedStringFile "./nix/docker/ci-version.json") -- vnr_ci :: Text = $(embedStringFile "nix/docker/ci-version.json")
comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime)) comptime :: Text = $(stringE =<< runIO (show <$> getCurrentTime))