19 lines
359 B
Text
19 lines
359 B
Text
<nav>
|
|
<div id="top-nav">
|
|
<ul id="user-nav">
|
|
$maybe user <- msu
|
|
Logged in as #{fromJust msu}
|
|
<li>
|
|
<a href=@{LogoutR}>Logout
|
|
<li>
|
|
<a href=@{UploadR}>Upload image
|
|
$nothing
|
|
<li>
|
|
<a href=@{LoginR}>Login
|
|
<li>
|
|
<a href=@{SignupR}>Signup
|
|
|
|
|
|
$maybe msg <- mmsg
|
|
<div #message>#{msg}
|
|
^{widget}
|