diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-11 11:30:45 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-11 11:30:45 +0000 |
| commit | e69bc36d5523a505addaa9cfb5d6431758ac37c2 (patch) | |
| tree | 4aa2cb962e61747b6cc0ae1cfbfe9f0c35eb1887 /guix-qa-frontpage/manage-builds.scm | |
| parent | e7d3c6464df33b759718d8747e8a32be74d2957a (diff) | |
| download | qa-frontpage-e69bc36d5523a505addaa9cfb5d6431758ac37c2.tar qa-frontpage-e69bc36d5523a505addaa9cfb5d6431758ac37c2.tar.gz | |
Remove unnecessarily duplicated derivation changes procedures
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 16 |
1 files changed, 8 insertions, 8 deletions
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" |