diff options
| author | spf50 <danielaluraa@gmail.com> | 2020-03-28 02:10:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-28 14:15:00 +0000 |
| commit | f980b6c2acd4388627b5abb30bdf98fcbb18fb7f (patch) | |
| tree | 1643c6b83db42ce01ed6c2ada7cc3c4851f72cc0 | |
| parent | d1c243f7fd8902f359ff06fb78dce663cf4297ce (diff) | |
| download | data-service-f980b6c2acd4388627b5abb30bdf98fcbb18fb7f.tar data-service-f980b6c2acd4388627b5abb30bdf98fcbb18fb7f.tar.gz | |
Include data in JSON response for the branch page
Signed-off-by: Christopher Baines <mail@cbaines.net>
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 2776773..6735d10 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -74,7 +74,22 @@ '(application/json text/html) mime-types) ((application/json) - (render-json '((error . "unimplemented")))) ; TODO + (render-json + `((revisions + . ,(list->vector + (map (match-lambda + ((date commit-hash _ _) + `((date . ,date) + (commit-hash . ,commit-hash)))) + (most-recent-commits-for-branch + conn + (string->number repository-id) + branch-name + #:limit (assq-ref parsed-query-parameters 'limit_results) + #:after-date (assq-ref parsed-query-parameters + 'after_date) + #:before-date (assq-ref parsed-query-parameters + 'before_date)))))))) (else (render-html #:sxml (if (any-invalid-query-parameters? parsed-query-parameters) |