02/02: Support package derivations for the latest revision

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 0b4825427d3ed8ceda2753731d98c6d177818d00
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Jun 20 18:56:42 2020 +0100

    Support package derivations for the latest revision
---
 guix-data-service/web/repository/controller.scm | 30 +++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/guix-data-service/web/repository/controller.scm 
b/guix-data-service/web/repository/controller.scm
index 6a6d445..f60fb69 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -202,6 +202,36 @@
            (render-unknown-revision mime-types
                                     conn
                                     commit-hash))))
+    (('GET "repository" repository-id "branch" branch-name 
"latest-processed-revision" "package-derivations")
+     (let ((commit-hash
+            (latest-processed-commit-for-branch conn repository-id 
branch-name)))
+       (if commit-hash
+           (let ((parsed-query-parameters
+                  (guard-against-mutually-exclusive-query-parameters
+                   (parse-query-parameters
+                    request
+                    `((search_query   ,identity)
+                      (system ,parse-system #:multi-value)
+                      (target ,parse-target #:multi-value)
+                      (maximum_builds ,parse-number)
+                      (minimum_builds ,parse-number)
+                      (field          ,identity #:multi-value
+                                      #:default ("system" "target" "builds"))
+                      (after_name ,identity)
+                      (limit_results  ,parse-result-limit
+                                      #:no-default-when (all_results)
+                                      #:default 10)
+                      (all_results    ,parse-checkbox-value)))
+                   '((limit_results all_results)))))
+
+             (render-revision-package-derivations mime-types
+                                                  conn
+                                                  commit-hash
+                                                  parsed-query-parameters
+                                                  #:path-base path))
+           (render-unknown-revision mime-types
+                                    conn
+                                    commit-hash))))
     (('GET "repository" repository-id "branch" branch-name 
"latest-processed-revision" "package-reproducibility")
      (let ((commit-hash
             (latest-processed-commit-for-branch conn repository-id 
branch-name)))