diff options
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 84afa1f..0fb5383 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -548,6 +548,11 @@ derivations)) #:extra-headers http-headers-for-unchanging-content))))) +(define (render-jobs mime-types conn) + (render-html + #:sxml (view-jobs + (select-jobs-and-events conn)))) + (define (parse-commit conn) (lambda (s) (if (guix-commit-exists? conn s) @@ -831,5 +836,8 @@ base-revision-id target-commit target-revision-id))))) + ((GET "jobs") + (render-jobs mime-types + conn)) ((GET path ...) (not-found (request-uri request))))) |