UI: Display all messages in defaultLayout, not just one

src/Vervis/Foundation.hs

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

templates/default-layout.hamlet

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