12 lines
414 B
Plaintext
12 lines
414 B
Plaintext
<div id="heading">
|
|
$maybe user <- maybeUser
|
|
_{MsgLoggedAs} #{userIdent $ entityVal user}
|
|
\ | <a href="@{CreateChallengeR}">_{MsgCreateChallenge}</a>
|
|
\ | <a href="@{ListChallengesR}">_{MsgListChallenges}</a>
|
|
\ | <a href="@{AuthR LogoutR}">_{MsgLogOut}</a>
|
|
$nothing
|
|
<a href="@{AuthR LoginR}">_{MsgLogIn}</a>
|
|
$maybe msg <- mmsg
|
|
<div #message>#{msg}
|
|
^{widget}
|