From 69d3c83986233daa7bab7beb382a79274f9fe7af Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 3 Jul 2020 20:32:45 +0100
Subject: Improve select-builds-with-context

Support specifying the limit, and improve the ordering.
---
 guix-data-service/model/build.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'guix-data-service')

diff --git a/guix-data-service/model/build.scm b/guix-data-service/model/build.scm
index ac1e870..23e94bd 100644
--- a/guix-data-service/model/build.scm
+++ b/guix-data-service/model/build.scm
@@ -119,7 +119,8 @@ ORDER BY status"))
 
 (define* (select-builds-with-context conn build-statuses build-server-ids
                                      #:key revision-commit
-                                     system target)
+                                     system target
+                                     limit)
   (define where-conditions
     (filter
      string?
@@ -180,8 +181,12 @@ ON latest_build_status.build_id = builds.id
                         "WHERE "
                         (string-join where-conditions " AND ")))
                    "
-ORDER BY latest_build_status.timestamp DESC
-LIMIT 100"))
+ORDER BY latest_build_status.timestamp DESC NULLS LAST, derivations.file_name
+"
+                   (if limit
+                       (string-append
+                        "LIMIT " (number->string limit))
+                       "")))
 
   (exec-query-with-null-handling conn
                                  query
-- 
cgit v1.2.3