UI: Display all messages in defaultLayout, not just one

This commit is contained in:
fr33domlover 2019-11-03 13:20:48 +00:00
parent 4dcd6eb1b2
commit deba50f835
2 changed files with 4 additions and 3 deletions

View file

@ -240,7 +240,7 @@ instance Yesod App where
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
mmsg <- getMessage msgs <- getMessages
mperson <- do mperson <- do
mperson' <- maybeAuthAllowUnverified mperson' <- maybeAuthAllowUnverified
for mperson' $ \ (p@(Entity pid person), verified) -> runDB $ do for mperson' $ \ (p@(Entity pid person), verified) -> runDB $ do

View file

@ -81,8 +81,9 @@ $if federationDisabled
^{breadcrumbsW} ^{breadcrumbsW}
$maybe msg <- mmsg <div #messages>
<div #message>#{msg} $forall (_status, msg) <- msgs
<div .message>#{msg}
^{widget} ^{widget}