diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-27 17:53:45 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-27 17:53:45 +0100 |
| commit | 4df889fc3ce99cdb418f1af8f1360cfec77968a7 (patch) | |
| tree | 39404932ea33c41e4f5659702fdd18c4f092cfd3 /guix-data-service/web/controller.scm | |
| parent | 00ac080297f03b05b13360d96226ea526245bd3e (diff) | |
| download | data-service-4df889fc3ce99cdb418f1af8f1360cfec77968a7.tar data-service-4df889fc3ce99cdb418f1af8f1360cfec77968a7.tar.gz | |
Add JSON output for the branch package versions page
Diffstat (limited to 'guix-data-service/web/controller.scm')
| -rw-r--r-- | guix-data-service/web/controller.scm | 41 |
1 files changed, 31 insertions, 10 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 77fcc93..0f68969 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -883,16 +883,37 @@ #:before-date (assq-ref parsed-query-parameters 'before_date))))))) (('GET "repository" repository-id "branch" branch-name "package" package-name) - (render-html - #:sxml (view-branch-package - repository-id - branch-name - package-name - (package-versions-for-branch - conn - (string->number repository-id) - branch-name - package-name)))) + (let ((package-versions + (package-versions-for-branch conn + (string->number repository-id) + branch-name + package-name))) + (case (most-appropriate-mime-type + '(application/json text/html) + mime-types) + ((application/json) + (render-json + `((versions . ,(list->vector + (map (match-lambda + ((package-version first-guix-revision-commit + first-datetime + last-guix-revision-commit + last-datetime) + `((version . ,package-version) + (first_revision + . ((commit . ,first-guix-revision-commit) + (datetime . ,first-datetime))) + (last_revision + . ((commit . ,last-guix-revision-commit) + (datetime . ,last-datetime)))))) + package-versions)))))) + (else + (render-html + #:sxml (view-branch-package + repository-id + branch-name + package-name + package-versions)))))) (('GET "repository" repository-id "branch" branch-name "latest-processed-revision") (let ((commit-hash (latest-processed-commit-for-branch conn repository-id branch-name))) |