01/06: Set an order for select-outputs-without-known-nar-entries

[Christopher Baines]

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

commit 6e81acf0a5c0b75c3f491d875753ae4231aac55d
Author: Christopher Baines <address@hidden>
AuthorDate: Fri Mar 13 23:34:56 2020 +0000

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