link to administration

Foundation.hs

@@ -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:

static/css/style-global.css

@@ -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;

templates/default-layout.hamlet

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