diff options
author | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:38:41 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:38:41 +0000 |
commit | 0970dc25112804fa1a0575ed97aba9b9be327ca2 (patch) | |
tree | eab815a57c8a92d429371a68e2cb0c0e14a23e49 /guix-qa-frontpage/manage-patch-branches.scm | |
parent | f4920496f6c345d0fae411555e4ff0378c007c9c (diff) | |
download | qa-frontpage-0970dc25112804fa1a0575ed97aba9b9be327ca2.tar qa-frontpage-0970dc25112804fa1a0575ed97aba9b9be327ca2.tar.gz |
Guard against missing patchwork series dates
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index d6df13c..67ff67e 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -302,14 +302,17 @@ ;; Does the branch need re-creating with a new series? (let ((branch-committer-date (get-git-branch-head-committer-date - (simple-format #f "patches/issue-~A" issue-number)))) - (if branch-committer-date + (simple-format #f "patches/issue-~A" issue-number))) + (patchwork-series-date + (assoc-ref patchwork-series "date"))) + (if (and branch-committer-date + patchwork-series-date) (let* ((branch-committer-time (date->time-utc branch-committer-date)) (patchwork-series-time (date->time-utc (string->date - (assoc-ref patchwork-series "date") + patchwork-series-date "~Y-~m-~dT~H:~M:~S"))) (recreate-branch? (time<? branch-committer-time |