diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-10-12 21:16:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-10-12 21:16:39 +0100 |
| commit | af1ffc2393a640c5517db12e79035d140738a529 (patch) | |
| tree | 94e60cc2e9fae46b6ea603a5a41bc5425bb1d8ce /guix-data-service/web/controller.scm | |
| parent | 2279f1e0136b48fb9b3cbc685af8d5d14d559e16 (diff) | |
| download | data-service-af1ffc2393a640c5517db12e79035d140738a529.tar data-service-af1ffc2393a640c5517db12e79035d140738a529.tar.gz | |
Add a page for queued jobs
Diffstat (limited to 'guix-data-service/web/controller.scm')
| -rw-r--r-- | guix-data-service/web/controller.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index b418b6b..cee34f1 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -731,6 +731,11 @@ #:sxml (view-jobs (select-jobs-and-events conn)))) +(define (render-job-queue mime-types conn) + (render-html + #:sxml (view-job-queue + (select-unprocessed-jobs-and-events conn)))) + (define (render-job mime-types conn job-id query-parameters) (render-html #:sxml (view-job @@ -1132,6 +1137,9 @@ (('GET "jobs") (render-jobs mime-types conn)) + (('GET "jobs" "queue") + (render-job-queue mime-types + conn)) (('GET "job" job-id) (let ((parsed-query-parameters (parse-query-parameters |