Port the package changes functionality from branches to issues

1 files changed, 23 insertions, 0 deletions

diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index d7ad216..039a937 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -464,6 +464,29 @@
                        "This could mean the issue does not exist, it
 has no patches or has been closed.")
                #:code 404)))))
+      (('GET "issue" number "package-changes")
+       (let ((revisions
+              derivation-changes
+              substitute-availability
+              up-to-date-with-master
+              master-branch-systems-with-low-substitute-availability
+              (with-sqlite-cache
+               database
+               'issue-data
+               issue-data
+               #:args
+               (list (string->number number))
+               #:version 2
+               #:ttl 6000)))
+         (render-html
+          #:sxml
+          (issue-package-changes-view number
+                                      derivation-changes
+                                      (or
+                                       (and=>
+                                        (uri-query (request-uri request))
+                                        parse-query-string)
+                                       '())))))
       ((method path ...)
        (render-html
         #:sxml (general-not-found