03/18: Add in call-with-worker-thread to try to avoid sort problems

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 221394eafb2a141715d7dd7c192f75fa0b61d5af
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Fri Nov 29 10:49:23 2024 +0000

    Add in call-with-worker-thread to try to avoid sort problems
---
 guix-data-service/jobs/load-new-guix-revision.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index d5bd431..1cad403 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1925,8 +1925,12 @@ SELECT 1 FROM derivation_source_file_nars WHERE 
derivation_source_file_id = $1"
                             (list
                              name
                              network-dependent
-                             
(lint-checker-description-data->lint-checker-description-set-id
-                              conn descriptions-by-locale))))
+                             ;; Uses of sort may cause problems
+                             (call-with-worker-thread
+                              utility-thread-channel
+                              (lambda ()
+                                
(lint-checker-description-data->lint-checker-description-set-id
+                                 conn descriptions-by-locale))))))
                          inferior-lint-checkers-data))))
                 (lint-warnings-data
                  (fibers-map