only admins can see "add challenge"

This commit is contained in:
Filip Gralinski 2015-11-11 13:28:34 +01:00
parent 1846e10016
commit f57d80637b

View File

@ -2,7 +2,8 @@
$maybe user <- maybeUser $maybe user <- maybeUser
_{MsgLoggedAs} #{userIdent $ entityVal user} _{MsgLoggedAs} #{userIdent $ entityVal user}
\ | <a href="@{HomeR}">_{MsgHome}</a> \ | <a href="@{HomeR}">_{MsgHome}</a>
\ | <a href="@{CreateChallengeR}">_{MsgCreateChallenge}</a> $if userIsAdmin $ entityVal user
\ | <a href="@{CreateChallengeR}">_{MsgCreateChallenge}</a>
\ | <a href="@{ListChallengesR}">_{MsgListChallenges}</a> \ | <a href="@{ListChallengesR}">_{MsgListChallenges}</a>
\ | <a href="@{YourAccountR}">_{MsgYourAccount}</a> \ | <a href="@{YourAccountR}">_{MsgYourAccount}</a>
\ | <a href="@{AuthR LogoutR}">_{MsgLogOut}</a> \ | <a href="@{AuthR LogoutR}">_{MsgLogOut}</a>