From 3f07df510ea900057cf097db54f6d85bd79a4d64 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 8 Nov 2024 12:52:29 +0000
Subject: [PATCH] Fix sorting license sets

---
 guix-data-service/model/license-set.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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)
               '()