From e69bc36d5523a505addaa9cfb5d6431758ac37c2 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 11 Mar 2023 11:30:45 +0000 Subject: Remove unnecessarily duplicated derivation changes procedures --- guix-qa-frontpage/manage-builds.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'guix-qa-frontpage/manage-builds.scm') diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index aa0a7c8..55eabbf 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -61,7 +61,7 @@ #:systems %systems-to-submit-builds-for))))) (if derivation-changes-url - (let ((derivation-changes + (let ((derivation-changes-data change-details (with-exception-handler (lambda (exn) @@ -76,13 +76,13 @@ (with-sqlite-cache database 'derivation-changes - patch-series-derivation-changes + derivation-changes #:args (list derivation-changes-url) #:ttl (* 60 20))) #:unwind? #t))) - (when derivation-changes + (when derivation-changes-data (let ((target-commit (assoc-ref (assoc-ref @@ -95,7 +95,7 @@ guix-data-service 'issue issue-number - derivation-changes + derivation-changes-data target-commit #:build-limit (* (length %systems-to-submit-builds-for) @@ -155,17 +155,17 @@ #:systems %systems-to-submit-builds-for))) (if derivation-changes-url - (let ((derivation-changes + (let ((derivation-changes-data change-details (with-sqlite-cache database 'branch-derivation-changes - branch-derivation-changes + derivation-changes #:args (list derivation-changes-url) #:ttl 0))) - (when derivation-changes + (when derivation-changes-data (let ((target-commit (assoc-ref (assoc-ref @@ -178,7 +178,7 @@ guix-data-service 'branch branch - derivation-changes + derivation-changes-data target-commit #:priority priority-for-change)))) (simple-format #t "no derivation changes url for branch ~A\n" -- cgit v1.2.3