diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-14 21:14:28 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-15 12:13:09 +0100 |
| commit | 801e6d12a2e4175ed5dacd3b812d66623ce0d66e (patch) | |
| tree | 051552022e4fd56adc7e00dad3c26564d3b42c61 /guix-qa-frontpage/derivation-changes.scm | |
| parent | 00808356f65a4bc40aaa66d335a71f6fca9c1f7d (diff) | |
| download | qa-frontpage-801e6d12a2e4175ed5dacd3b812d66623ce0d66e.tar qa-frontpage-801e6d12a2e4175ed5dacd3b812d66623ce0d66e.tar.gz | |
Show the changes to cross derivations on issue pages
Diffstat (limited to 'guix-qa-frontpage/derivation-changes.scm')
| -rw-r--r-- | guix-qa-frontpage/derivation-changes.scm | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/guix-qa-frontpage/derivation-changes.scm b/guix-qa-frontpage/derivation-changes.scm index 6953603..cda0084 100644 --- a/guix-qa-frontpage/derivation-changes.scm +++ b/guix-qa-frontpage/derivation-changes.scm @@ -128,16 +128,26 @@ (cons system '()))) all-systems)) (lambda (a b) - (< (or (list-index - (lambda (s) - (string=? (car a) s)) - all-systems) - 10) - (or (list-index - (lambda (s) - (string=? (car b) s)) - all-systems) - 10))))))) + (let ((a-key (car a)) + (b-key (car b))) + (cond + ((and (string? a-key) + (string? b-key)) + (< (or (list-index + (lambda (s) + (string=? (car a) s)) + all-systems) + 10) + (or (list-index + (lambda (s) + (string=? (car b) s)) + all-systems) + 10))) + ((and (pair? a-key) + (pair? b-key)) + (string<? (cdr a-key) + (cdr b-key))) + (else #f)))))))) `(,@derivation-changes (counts . ,counts))) |