21 lines
457 B
Text
21 lines
457 B
Text
<nav>
|
|
<div id="top-nav">
|
|
<ul id="user-nav">
|
|
$maybe userId <- msu
|
|
Logged in as <a href=@{ProfileR $ getUserIdFromText userId}>#{username}
|
|
<li>
|
|
<a href=@{LogoutR}>Logout
|
|
<li>
|
|
<a href=@{NewAlbumR}>Create album
|
|
<li>
|
|
<a href=@{UploadR}>Upload image
|
|
$nothing
|
|
<li>
|
|
<a href=@{LoginR}>Login
|
|
<li>
|
|
<a href=@{SignupR}>Signup
|
|
|
|
|
|
$maybe msg <- mmsg
|
|
<div #message>#{msg}
|
|
^{widget}
|