Fix sorting license sets

2024-11-08 12:52:29 +00:00 · 2024-11-08 12:52:29 +00:00 · 3f07df510e
commit 3f07df510e
parent c58ee6726b
1 changed files with 6 additions and 1 deletions
--- 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)
              '()