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

chore(status): minor code cleaning

Browse Source
This commit is contained in:
Steffen Jost 2022-03-03 16:58:28 +01:00
parent 7b8e566f65
commit 864c2f13ad
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Health.hs
View File

@ -2,7 +2,7 @@ module Handler.Health where
import Import import Import
import Handler.Utils -- import Handler.Utils
import qualified Data.Aeson.Encode.Pretty as Aeson import qualified Data.Aeson.Encode.Pretty as Aeson
import qualified Data.Text.Lazy.Builder as Builder import qualified Data.Text.Lazy.Builder as Builder
@ -106,7 +106,7 @@ getStatusR :: Handler Html
getStatusR = do getStatusR = do
starttime <- getsYesod appStartTime starttime <- getsYesod appStartTime
currtime <- liftIO getCurrentTime currtime <- liftIO getCurrentTime
ft <- formatTime' "%Y%m%d %H:%M:%S" currtime -- use me throughout or delete me (delete, since this Handler is for mechanised tests only) -- ft <- formatTime' "%Y-%m-%d %H:%M:%S" currtime
withUrlRenderer withUrlRenderer
[hamlet| [hamlet|
$doctype 5 $doctype 5
@ -117,7 +117,6 @@ getStatusR = do
<p> <p>
Current Time <br> Current Time <br>
#{show currtime} <br> #{show currtime} <br>
#{ft}
<p> <p>
Instance Start <br> Instance Start <br>
#{show starttime} # #{show starttime} #