Skip to content
This repository was archived by the owner on Feb 2, 2023. It is now read-only.

Set page render log messages to DEBUG level. #952

Merged
merged 1 commit into from
Aug 9, 2016
Merged

Set page render log messages to DEBUG level. #952

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions src/Frontend/Core.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -604,7 +604,7 @@ form formHandler = getH :<|> postH
let fa = absoluteUriPath . relPath $ formAction page
v <- getForm fa (processor1 page)
t <- getCsrfToken
logEvent INFO $ "render form " <> cshow (typeOf page)
logEvent DEBUG $ "render form " <> cshow (typeOf page)
pure $ FormPageRep t v fa page

-- If form is not filled out successfully, 'postH' responds with a new page to render. This
Expand Down Expand Up @@ -669,15 +669,15 @@ coreRunHandler mp mr = do
access0 <- isAuthorized (LoggedIn user Nothing :: AccessInput p)
case access0 of
AccessGranted -> do
logEvent INFO $ "access page " <> cshow mpp
logEvent DEBUG $ "access page " <> cshow mpp
mr (Just user) =<< mp (Just user)
AccessDenied s u -> handleDenied s u
AccessDeferred -> do
p <- mp (Just user)
access1 <- isAuthorized (LoggedIn user (Just p))
case access1 of
AccessGranted -> do
logEvent INFO $ "access page " <> cshow mpp
logEvent DEBUG $ "access page " <> cshow mpp
mr (Just user) p
AccessDenied s u -> handleDenied s u
AccessDeferred ->
Expand Down