diff options
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 2c54fb4..c3ae256 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -243,8 +243,13 @@ (invoke-read-line "git" "show-ref" "--hash" base-tag))) (let loop ((patch-data - (vector->list - (assoc-ref patchwork-series "patches"))) + (stable-sort + (vector->list + (assoc-ref patchwork-series "patches")) + (lambda (patch-a patch-b) + (let ((name-a (assoc-ref patch-a "name")) + (name-b (assoc-ref patch-b "name"))) + (string<? name-a name-b))))) (results '())) (if (null? patch-data) (begin |