now hiding administration from non administrators

2016-08-27 13:59:03 +02:00 · 2016-08-27 13:59:03 +02:00 · 947ab624b4
commit 947ab624b4
parent e31200e2e7
1 changed files with 6 additions and 4 deletions
--- a/templates/default-layout.hamlet
+++ b/templates/default-layout.hamlet
@ -24,7 +24,9 @@
              <li>
                <a href=@{LogoutR}>
                  Logout
-              $maybe _ <- madmin
+              $case madmin
+                $of Just admin
+                  $if admin
                    <li>
                      <a href=@{AdminR} .red>
                        Administration