diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:08:39 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:08:39 +0000 |
| commit | 49c08adc199639b1bae7e747642f94f130662e06 (patch) | |
| tree | e56c707a91093b1b889c07a3dfa7f32be1c53009 | |
| parent | e80cbaaa3ac6110a34fe8f593ead09a83ae1bf0a (diff) | |
| download | qa-frontpage-49c08adc199639b1bae7e747642f94f130662e06.tar qa-frontpage-49c08adc199639b1bae7e747642f94f130662e06.tar.gz | |
Log more about recreating branches
As this isn't currently working.
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index aa31a92..563487c 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -293,12 +293,25 @@ (get-git-branch-head-committer-date (simple-format #f "patches/issue-~A" issue-number)))) (if branch-committer-date - (time<? - (date->time-utc branch-committer-date) - (date->time-utc - (string->date - (assoc-ref patchwork-series "date") - "~Y-~m-~dT~H:~M:~S"))) + (let* ((branch-committer-time + (date->time-utc branch-committer-date)) + (patchwork-series-time + (date->time-utc + (string->date + (assoc-ref patchwork-series "date") + "~Y-~m-~dT~H:~M:~S"))) + (recreate-branch? + (time<? branch-committer-time + patchwork-series-time))) + (simple-format + #t + "considering recreating branch for issue ~A (~A, ~A, ~A)\n" + issue-number + branch-committer-time + patchwork-series-time + recreate-branch?) + (time<? branch-committer-time + patchwork-series-time)) #f))) (simple-format #t "creating branch for issue ~A\n" issue-number) (with-exception-handler |