From 6e81acf0a5c0b75c3f491d875753ae4231aac55d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 13 Mar 2020 23:34:56 +0000 Subject: [PATCH] Set an order for select-outputs-without-known-nar-entries Pulling out the recent entries first. --- guix-data-service/model/nar.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index 4c5d070..ff6a5d5 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -305,7 +305,7 @@ ORDER BY COUNT(*) DESC") (define query (string-append " -SELECT DISTINCT derivation_output_details.path +SELECT DISTINCT derivation_output_details.path, derivation_output_details.id FROM derivations INNER JOIN derivation_outputs ON derivations.id = derivation_outputs.derivation_id @@ -346,6 +346,7 @@ WHERE derivation_output_details.path NOT IN ( ") )")) " +ORDER BY derivation_output_details.id DESC LIMIT 10000")) (map car (exec-query conn query (list (number->string build-server-id)))))