From 7298b006284929ebb189e2e5b7559a9101a1afab Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 30 Aug 2023 09:52:22 +0000 Subject: [PATCH] chore(debug): admin test page generates a log entry --- src/Handler/Admin/Test.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Handler/Admin/Test.hs b/src/Handler/Admin/Test.hs index 906c941bf..1969f8717 100644 --- 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