02/02: Add latest revision version of the fixed output package derivations

[Christopher Baines]

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

commit 8d6f255646bf09aaea4909cf000d425037e2223d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Dec 27 09:09:47 2020 +0000

    Add latest revision version of the fixed output package derivations
---
 guix-data-service/web/repository/controller.scm | 31 +++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/guix-data-service/web/repository/controller.scm 
b/guix-data-service/web/repository/controller.scm
index c38c387..ee543c4 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -293,6 +293,37 @@
            (render-no-latest-revision mime-types
                                       repository-id
                                       branch-name))))
+    (('GET "repository" repository-id "branch" branch-name
+           "latest-processed-revision" "fixed-output-package-derivations")
+     (letpar& ((commit-hash
+                (with-thread-postgresql-connection
+                 (lambda (conn)
+                   (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
+                    `((system ,parse-system #:default "x86_64-linux")
+                      (target ,parse-target #:default "")
+                      (latest_build_status   ,parse-build-status)
+                      (after_name ,identity)
+                      (limit_results  ,parse-result-limit
+                                      #:no-default-when (all_results)
+                                      #:default 50)
+                      (all_results    ,parse-checkbox-value)))
+                   '((limit_results all_results)))))
+
+             (render-revision-fixed-output-package-derivations
+              mime-types
+              commit-hash
+              parsed-query-parameters
+              #:path-base path))
+           (render-no-latest-revision mime-types
+                                      repository-id
+                                      branch-name))))
     (('GET "repository" repository-id "branch" branch-name 
"latest-processed-revision" "package-derivation-outputs")
      (letpar& ((commit-hash
                 (with-thread-postgresql-connection