http: Add route for /admin.

* src/cuirass/http.scm (url-handler): Handle /admin route.
2019-10-30 13:00:14 +01:00 · 2019-10-30 13:00:14 +01:00 · 647f3961fa
parent 5ffb2c3089
commit 647f3961fa
1 changed files with 6 additions and 0 deletions
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@ -284,6 +284,12 @@ Hydra format."
                    "Cuirass [Admin]"
                    (specifications-table (db-get-specifications) 'admin)
                    '())))
+    (('GET "admin")
+     (respond-html (html-page
+                    "Cuirass [Admin]"
+                    `(ul (li (a (@ (href "/admin/specifications"))
+                                "Edit specifications")))
+                    '())))
    (('GET (or "jobsets" "specifications") . rest)
     (respond-json (object->json-string
                    (list->vector (db-get-specifications)))))