fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support multiple messages and statuses

Browse Source
This commit is contained in:
Gregor Kleen 2017-10-12 02:13:42 +02:00
parent a401610263
commit 02c034b14a
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/Foundation.hs
View File

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

5
templates/default-layout.hamlet
View File

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