[no subject]

[Ludovic Courtès]

branch: main
commit c1b0e2d42a5c66751253c62bd7f974117ec25b17
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 28 10:31:43 2024 +0200

    database: Check the timing of ‘db-get-evaluations-absolute-summary’.
    
    * src/cuirass/database.scm (db-get-evaluations-absolute-summary): Wrap
    query in ‘with-timing-check’.
---
 src/cuirass/database.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index e1059cc..1e1cbf0 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1950,7 +1950,8 @@ ORDER BY Evaluations.id ASC;"))
 
   (with-db-connection db
     (let loop ((rows
-                (exec-query/bind db  "SELECT
+                (with-timing-check "getting evaluations absolute summaries"
+                  (exec-query/bind db  "SELECT
 Evaluations.id, Evaluations.status,
 Evaluations.timestamp, Evaluations.checkouttime, Evaluations.evaltime,
 SUM(CASE WHEN Jobs.status > -100 THEN 1 ELSE 0 END) as total,
@@ -1966,7 +1967,11 @@ LEFT JOIN Builds
 ON Builds.id = Jobs.build
 WHERE Jobs.evaluation = ANY(" eval-ids ")
 GROUP BY Evaluations.id
-ORDER BY Evaluations.id ASC;"))
+ORDER BY Evaluations.id ASC;")
+
+                  ;; This query is used for the home page so it has to be
+                  ;; reasonably fast.
+                  #:threshold 5))
                (summary '()))
       (match rows
         (() (reverse summary))