diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-12 15:18:46 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-12 15:18:46 +0100 |
| commit | ab0cf193680a809b26f4ac672bbddcc473c495d1 (patch) | |
| tree | 8cd54f9203a0fe38498a541a1e9ceda047c1fd11 /guix-qa-frontpage | |
| parent | ef74f5b2e373c454abe044d8ef7e3aec3dc994d9 (diff) | |
| download | qa-frontpage-ab0cf193680a809b26f4ac672bbddcc473c495d1.tar qa-frontpage-ab0cf193680a809b26f4ac672bbddcc473c495d1.tar.gz | |
Log the base commit hash used
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 16bfbd9..7aec637 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -166,14 +166,16 @@ 'issue-patches-overall-status #:args (list issue-number))) - (define (insert-log results) + (define (insert-log base-commit-hash results) (define log - (string-join - (map - (lambda (patch) - (assq-ref patch 'output)) - results) - "\n\n")) + (string-append + "Using base commit " base-commit-hash "\n\n" + (string-join + (map + (lambda (patch) + (assq-ref patch 'output)) + results) + "\n\n"))) (insert-create-branch-for-issue-log database issue-number log)) @@ -193,7 +195,7 @@ (results '())) (if (null? patch-data) (begin - (insert-log results) + (insert-log base-commit-hash results) (if (string=? base-commit-hash (with-repository (getcwd) repository @@ -244,7 +246,8 @@ (begin (simple-format #t "Failed to apply \"~A.patch\" (~A)\n" id name) - (insert-log new-results) + (insert-log base-commit-hash + new-results) #f))))))))) (delete-create-branch-for-issue-log database issue-number) |