Support multiple messages and statuses

src/Foundation.hs

@@ -107,7 +107,7 @@ instance Yesod UniWorX where
 
     defaultLayout widget = do
         master <- getYesod
-        mmsg <- getMessage
+        mmsgs <- getMessages
 
         muser <- maybeAuthPair
         mcurrentRoute <- getCurrentRoute

templates/default-layout.hamlet

@@ -31,8 +31,9 @@
 
             <li .active>#{title}
 
-    $maybe msg <- mmsg
-      <div .alert.alert-info #message>#{msg}
+    $forall (status, msg) <- mmsgs
+      $with status' <- bool (const "info") id (status == "") status
+        <div class="alert alert-#{status'}">#{msg}
 
 
 $if (Just HomeR == mcurrentRoute)