cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix sorting license sets

Browse source
This commit is contained in:
Christopher Baines 2024-11-08 12:52:29 +00:00
parent c58ee6726b
commit 3f07df510e
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/model/license-set.scm
View file

@ -77,7 +77,12 @@ FROM license_sets")
((null? a) #f) ((null? a) #f)
((null? b) #t) ((null? b) #t)
(else (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 (new-license-set-entries
(if (null? missing-license-sets) (if (null? missing-license-sets)
'() '()