diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-10-30 13:00:14 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-10-30 13:00:14 +0100 |
| commit | 647f3961fa18bcb87f1ae9b6531644ba147dec72 (patch) | |
| tree | f14a59cf1e9ef36a823880f8f1fd2a37f9833581 | |
| parent | 5ffb2c3089bb696c0dd6067fc8f951c030364123 (diff) | |
| download | cuirass-647f3961fa18bcb87f1ae9b6531644ba147dec72.tar cuirass-647f3961fa18bcb87f1ae9b6531644ba147dec72.tar.gz | |
http: Add route for /admin.
* src/cuirass/http.scm (url-handler): Handle /admin route.
| -rw-r--r-- | src/cuirass/http.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index d1362b5..7579e1a 100644 --- 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))))) |