diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-11-08 12:52:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-11-08 12:52:29 +0000 |
| commit | 3f07df510ea900057cf097db54f6d85bd79a4d64 (patch) | |
| tree | 4d9c2c6c3ef673404864fa484df220892b4d448b | |
| parent | c58ee6726b5f4d8a209d1af85e393edd0ca4d02a (diff) | |
| download | data-service-3f07df510ea900057cf097db54f6d85bd79a4d64.tar data-service-3f07df510ea900057cf097db54f6d85bd79a4d64.tar.gz | |
Fix sorting license sets
| -rw-r--r-- | guix-data-service/model/license-set.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-data-service/model/license-set.scm b/guix-data-service/model/license-set.scm index cff68b7..102d838 100644 --- a/guix-data-service/model/license-set.scm +++ b/guix-data-service/model/license-set.scm @@ -77,7 +77,12 @@ FROM license_sets") ((null? a) #f) ((null? b) #t) (else - (< (car a) (car b)))))))) + (let ((a1 (car a)) + (b1 (car b))) + (if (= a1 b1) + (loop (cdr a) + (cdr b)) + (< a1 b1))))))))) (new-license-set-entries (if (null? missing-license-sets) '() |