From f980b6c2acd4388627b5abb30bdf98fcbb18fb7f Mon Sep 17 00:00:00 2001 From: spf50 Date: Sat, 28 Mar 2020 02:10:23 +0100 Subject: [PATCH] Include data in JSON response for the branch page Signed-off-by: Christopher Baines --- guix-data-service/web/repository/controller.scm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) 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)