link to administration

This commit is contained in:
nek0 2016-07-12 22:07:44 +02:00
parent 6cf0a46ca8
commit 016e4438a0
3 changed files with 16 additions and 0 deletions

View file

@ -83,6 +83,13 @@ renderLayout widget = do
return $ userSlug user
Nothing ->
return ("" :: T.Text)
madmin <- case msu of
Just a -> do
let uId = getUserIdFromText a
user <- runDB $ getJust uId
return $ Just $ userAdmin user
Nothing ->
return Nothing
let block = appSignupBlocked $ appSettings master
-- We break up the default layout into two components:

View file

@ -264,6 +264,11 @@
background: #47d65f url('/static/css/images/overlay.png');
}
.red
{
background: #ffeeee url('/static/css/images/overlay.png') !important;
}
#message
{
padding: 20px;

View file

@ -24,6 +24,10 @@
<li>
<a href=@{LogoutR}>
Logout
$maybe admin <- madmin
<li>
<a href=@{AdminR} .red>
Administration
$nothing
<li>
<a href=@{LoginR}>