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

2023-08-30 09:52:22 +00:00 · 2023-08-30 09:52:22 +00:00 · 7298b00628
commit 7298b00628
parent a452b032c4
1 changed files with 2 additions and 0 deletions
--- a/src/Handler/Admin/Test.hs
+++ b/src/Handler/Admin/Test.hs
@ -115,6 +115,8 @@ postAdminTestR = do
        , 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."
  ((demoResult, formWidget),formEnctype) <- runFormPost $ makeDemoForm 7