diff options
| -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 |