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

chore(debug): admin test page generates a log entry

Browse Source
This commit is contained in:
Steffen Jost 2023-08-30 09:52:22 +00:00
parent a452b032c4
commit 7298b00628
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Admin/Test.hs
View File

@ -115,6 +115,8 @@ postAdminTestR = do
, formAttrs = [("uw-async-form", "")] , formAttrs = [("uw-async-form", "")]
} }
now <- liftIO getCurrentTime
$logInfoS "TEST" $ "Admin Test Page was retrieved at " <> tshow now <> "." -- to ensure that we can read the right log.
let demoFormAction (_i,_b,_d) = addMessage Info "All ok." let demoFormAction (_i,_b,_d) = addMessage Info "All ok."
((demoResult, formWidget),formEnctype) <- runFormPost $ makeDemoForm 7 ((demoResult, formWidget),formEnctype) <- runFormPost $ makeDemoForm 7