sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 02:14:52 +09:00
Code Issues Activity

UI: Display all messages in defaultLayout, not just one

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Foundation.hs
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

5
templates/default-layout.hamlet
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}